用 WebBrowser 访问百度

最新推荐文章于 2022-12-18 15:41:27 发布

心想才事成

最新推荐文章于 2022-12-18 15:41:27 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： F# 函数编程文章标签： webbrowser html url 百度 fp string

本文链接：https://blog.youkuaiyun.com/hadstj/article/details/7650480

F# 同时被 2 个专栏收录

745 篇文章

订阅专栏

函数编程

728 篇文章

订阅专栏

本文介绍了一种使用F#编程语言通过WebBrowser控件访问百度网站，并执行搜索操作的方法。具体步骤包括打开WebBrowser控件、监听文档加载完成事件、设置搜索关键词并触发搜索。此外，还演示了如何获取页面元素并将搜索结果保存到本地文件。

用 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 非常重要。没有这一句，运行会没有输出。但是，单步运行是可以的。