UC知道WebBrowser问题 限VB
来源：百度知道 编辑：UC知道 时间：2024/06/11 11:59:37
WebBrowser还是有些问题
现在会用call来进行循环触发勒，但是新的问题又来勒
当我用WebBrowser.navigate 打开一个网页，再对其进行元素收集的时候，发现WebBrowser.navigate 没有更新，在baidu上搜了一下，说是他使用的是缓存，需要刷新什么的，折腾这么长时间，我也没搞明白。
现在我的目标是，WebBrowser.navigate打开一个网页，就能收集到这个网页的链接信息，而不是系统的缓存
Option Explicit
Dim k, n, g, s As Integer
Dim wenjian(400), lianjie(200), lujing As String
Dim StartWork As Boolean
Dim Pause, wen As Single
Private Sub Command1_Click()
k = 1
Open "文件名集合（过度）.text" For Input As #2
While Not EOF(2)
Line Input #2, wenjian(k)
k = k + 1
Wend
Close #2
lujing = "F:\工程11\输出\222.txt"
Open lujing For Output As #3
Open "F:\工程11\输出\1111.txt" For Output As #1
For n = 1 To k - 1
Me.WebBrowser1.navigate (wenjian(n))
'Delay (0.5)
StartWork = True
Call WebBrowser1_StatusTextChange(wenjian(n))
wen = n
现在会用call来进行循环触发勒，但是新的问题又来勒
当我用WebBrowser.navigate 打开一个网页，再对其进行元素收集的时候，发现WebBrowser.navigate 没有更新，在baidu上搜了一下，说是他使用的是缓存，需要刷新什么的，折腾这么长时间，我也没搞明白。
现在我的目标是，WebBrowser.navigate打开一个网页，就能收集到这个网页的链接信息，而不是系统的缓存
Option Explicit
Dim k, n, g, s As Integer
Dim wenjian(400), lianjie(200), lujing As String
Dim StartWork As Boolean
Dim Pause, wen As Single
Private Sub Command1_Click()
k = 1
Open "文件名集合（过度）.text" For Input As #2
While Not EOF(2)
Line Input #2, wenjian(k)
k = k + 1
Wend
Close #2
lujing = "F:\工程11\输出\222.txt"
Open lujing For Output As #3
Open "F:\工程11\输出\1111.txt" For Output As #1
For n = 1 To k - 1
Me.WebBrowser1.navigate (wenjian(n))
'Delay (0.5)
StartWork = True
Call WebBrowser1_StatusTextChange(wenjian(n))
wen = n
WebBrowser.navigate打开网页
WebBrowser1_StatusTextChange状态内容变化,在打开网页的过程中,它是不断变化的,变化并不表示已经打开网页完成.
WebBrowser.navigateComplete
我没看你的源代码，有点长，不想看了。
如果你是想得到一个网页中所有的链接地址URL，思想是先获得该网页的源代码，再利用查询语句，寻找关键字为<a href="，当找到后，再寻找关键字为">两字符，返回这两者间的字符串，即URL地址。若还想得到中文域名，即继续进行两次查找关键字，返回两者间的字符串，即中文域名。