在我的网页中,当HTMLdoc.getElementById("gen__1007"(不是时,我想等待
我该怎么做?
Do Until IE.Businy=False:DoEvents:LoopDo Until IE.ReadyState=4:DoEvents:Loop它们不起作用。。。
Sub POPUP_CONTROL()
Dim MSG_DIV = ""
WEB_LOAD2.Text = ""
TIME = 0
Do
Application.DoEvents()
On Error Resume Next
MSG_DIV = WebBrowser1.Document.GetElementById("pb-popup-message").InnerText
On Error GoTo 0
System.Windows.Forms.Application.DoEvents()
WEB_LOAD2.Text = MSG_DIV
If TIME >= 20 Then GoTo CIK
Loop While MSG_DIV = ""
WEB_DURUM2.Text = "Loaded! "
Exit Sub
CIK:
MsgBox("NO INTERNET CONNECTION OR VERY SLOW " & vbLf & "TRY AGAIN LATER!" & vbLf, vbInformation, "ACR")
End Sub
我写的代码哪里会出错?