Question

VB问题 有没有哪个大哥帮我看看代码，怎样才能让网页完全加载。。

Answer 1

Public Sub waitForDocuement()
WAIT2:
DoEvents
DoEvents
DoEvents
DoEvents

If Form1.WebBrowser1.Busy = True Then
GoTo WAIT2
End If

End Sub

追问

不是一个网页

是循环访问链接然后下载内容

追答

For Each x In WebBrowser1.Document.All
'innerhtml = LCase(x.innerhtml)
'If innerhtml = "立即分享取消" Then
If x.className = "ts-continue J_Continue J_Submit" Then
x.Click
Exit For
End If
Next x

追问

我已经找出问题所在 并成功解决 是网页嵌入时发生错误

Answer 2

你的代码呢？

追问

发不出来 太长了

追答

问题具体说一下

追问

可以Q说吗？

Answer 3

代码哪去了？

追问

代码太长，发不了

就是循环访问网页下载

追答

chaimisin8712@126.com

追问

已发

Answer 4

发来看看。

追问

发不出来 太长了

追答

能把问题说明白点吗。

追问

就是循环访问网页

追答

换个浏览器阿。

追问

可以Q说吗？

追答

求采纳

你换个浏览器就好了嘛。

追问

……vb默认的是ie浏览器，我怎么换

追答

谁告诉你ie不能换。

追问

那怎么换呀

我要换成qq浏览器

追答

直接下载一个然后在你的杀毒软件更改一下就好了