Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol web.ScriptErrorsSuppressed = true Dim Inputs = web.Document.GetElementById("form").GetElementsByTagName("input") For Each Input As object In Inputs If Input.id = "kw" Then Input.SetAttribute("value", "abc") ElseIf Input.id = "su" Then input.InvokeMember("click") End If Next
|