主题：[求助] 窗体afterload事件

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
Dim vw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.ScriptErrorsSuppressed = True
vw.Address = "https://XXXXX.com"

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim vu = web.Document.GetElementById("mobile")
Dim vp = web.Document.GetElementById("password")
vu.SetAttribute("value", "test")
vp.SetAttribute("value", "test")
web.Document.InvokeScript("login")

加上条件，比如（具体问题做个例子上来测试）

Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("mobile") isnot Nothing
    Application.DoEvents
Loop