UC知道VB编程高手进来看下
来源：百度知道 编辑：UC知道 时间：2024/06/30 09:45:01
我想用VB获得一个网页的源代码，不知道能不能实现，麻烦您看下，要求是：
1.获取一个指定URL网页的源代码，就以百度：http://www.baidu.com这个为例
2.查找源代码，如果发现HTML代码里有“baidu.com”这个字，就弹出对话框“百度”这两个字
3.如果找不到“baidu.com”，延时100微妙，刷新下http://www.baidu.com这个网址，返回，重头开始,重复这个动作
知道怎么用VB写的高手能不能严格按照我上面说的要求写出代码啊，在此谢过了，我不懂VB,有点用处.
1.获取一个指定URL网页的源代码，就以百度：http://www.baidu.com这个为例
2.查找源代码，如果发现HTML代码里有“baidu.com”这个字，就弹出对话框“百度”这两个字
3.如果找不到“baidu.com”，延时100微妙，刷新下http://www.baidu.com这个网址，返回，重头开始,重复这个动作
知道怎么用VB写的高手能不能严格按照我上面说的要求写出代码啊，在此谢过了，我不懂VB,有点用处.
100微秒能打开一个网页么？
以下是你说的代码：（很可能会死循环）
r:
Inet1.Cancel
Inet1.Protocol = icHTTP
Dim sz() As Byte, i As Integer, q As String
sz = Inet1.OpenURL(网页的URL放在这里, 1)
For i = 0 To UBound(sz)
q = q & ChrW(sz(i))
Next i
On Error Resume Next
Call InStr(q,"baidu.com")
If Err=0 Then
msgbox "百度"Private Sub Command3_Click()
Text1.Text = Inet1.OpenURL("http://www.baidu.com/s?wd=" + Text4.Text)
End Sub
循环
查找text1.text字符串，
如果有就msgbox，
没有就等待100ms ，
重新给text1.text赋值，
循环
Else
err.clear:goto r
end if
Private Sub Command3_Click()
Text1.Text = Inet1.OpenURL("http://www.baidu.com/s?wd=" + Text4.Text)
E