参考
Dim web = e.form.controls("webbrowser1").basecontrolweb.ScriptErrorsSuppressed = Trueweb.Navigate("http://www.baidu.com")
Do Until web.ReadyState = 4 Application.DoEventsLoop
Dim pg = web.Document.GetElementById("kw")pg.SetAttribute("Value", "foxtable")