用 WebBrowser 访问百度
来源:互联网 发布:linux top命令参数 编辑:程序博客网 时间:2024/06/10 01:12
用 WebBrowser 访问百度
#light
open System
open System.Windows.Forms
open System.IO
open System.Text
let (html:HtmlDocument ref) = ref null
let getPage (url:string) =
// let (html:HtmlDocument ref) = ref null
let handler (sender:obj) (e: WebBrowserDocumentCompletedEventArgs) =
// let handler (sender:obj) (e: _) =
let wb = sender :?> (WebBrowser)
html := (wb.Document)
use wb = new WebBrowser()
wb.Visible<-true
wb.DocumentCompleted.Add(handler wb)
wb.Navigate(url)
while wb.ReadyState <> WebBrowserReadyState.Complete do
Application.DoEvents()
html
let writeToFile filename obj =
let fp = __SOURCE_DIRECTORY__ + "\\" + filename
File.AppendAllText( fp, obj, Encoding.Default )
getPage "http://www.baidu.com"
html.Value.All.Item("wd").SetAttribute("value","XXXXXX")
html.Value.All.Item("su").InvokeMember("click")
let url = (html.Value.All.Item("wd")).OuterHtml
getPage ("http://www.baidu.com" + url )
writeToFile "baidu-Search.txt"
([ for i in html.Value.All do yield i.OuterText] |> Seq.toList |> Seq.reduce (fun a b -> a + b))
后面的一句 getPage 非常重要。没有这一句,运行会没有输出。但是,单步运行是可以的。
- 用 WebBrowser 访问百度
- 跨线程访问webBrowser控件
- 利用WebBrowser控件实现百度自动搜索
- 利用WebBrowser控件实现百度自动搜索
- 利用WebBrowser控件实现百度自动搜索
- 直接访问WebBrowser控件中的HTML源码
- FAQ:如何访问WebBrowser的滚动条
- 如何访问WebBrowser的滚动条
- 如何访问WebBrowser的滚动条
- 阻止WEBBROWSER访问时遇到window.alert
- 直接访问WebBrowser控件中的HTML源码
- 直接访问WebBrowser控件中的HTML源码
- 直接访问webbrowser控件中的html源码
- 直接访问WebBrowser控件中的HTML源码
- WebBrowser控件跨域访问页面内容
- WebBrowser控件跨域访问页面内容
- 直接访问WebBrowser控件中的HTML源码
- 直接访问WebBrowser控件中的HTML源码
- respondsToSelector判断是否实现了某方法
- win7+vs2008下安装配置STLport
- MFC中设置静态文本的字体颜色、背景透明以及解决字体重叠
- Null component Catalina:type=JspMonitor,name=jsp,WebModule=//localhost/sshnews,J2EEApplication=none,
- 最长公共子序列(Longest Common Subsequence LCS)
- 用 WebBrowser 访问百度
- LISP 维基百科
- LaTex下tcolorbox宏包的安装及使用
- lisp 方言sechme圣经 -- SICP
- Drupal 7 设置上传文件的限制大小
- objective c -- helloword
- lisp方言--scheme
- NIS服务器
- OTcl与C++交互—AODV路由协议