用VB写百度一下，找到相关网页

来源：百度知道 编辑：UC知道 时间：2024/06/06 10:46:52
如：百度一下，找到相关网页999篇

我用VB如何实现，输入此词能获得找到的相关网页数量。
我不是用VB做一个搜索引擎
只是在VB设计的小程序里能输入这个关键词获知百度搜索的相关数量。
webbrowser1.webbrowser navigate "http://www.baidu.com & text1.text "
可以print出这个text1的相关网页数量。

您现在不要这样想，好吗？为什么没有人再做一个百度呢？

yiivon-千总,说的好。

Private Sub Form_Load()
WebBrowser1.Navigate "baidu.com/s?wd=aaa"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

temp = WebBrowser1.Document.body.innerHTML
aaa = InStr(temp, "相关网页约") + 5
bbb = InStr(aaa, temp, "篇")

temp = Mid(temp, aaa, bbb - aaa)

MsgBox temp
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "baidu.com/s?wd=aaa"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

temp = WebBrowser1.Document.body.innerHTML
aaa = InStr(temp, "相关网页约") + 5
bbb = InStr(aaa, temp, "篇")

temp = Mid(temp, aaa, bbb - aaa)

MsgBox temp
End Sub