Question

求助vb模拟点击“百度一下”按钮，使用这行代码WebBrowser1.Document.GetElementById("su1")应该怎么声明

“百度一下”按钮代码<input type="submit" value="百度一下" id="su1" class="btn" onmousedown="this.className='btn btn_h'" onmouseout="this.className='btn'">
直接使用WebBrowser1.Document.GetElementById("su1").click(),报请使用“RaiseEvent”语句引发事件。新手求助！

百度文本框代码<input type="text" name="wd" id="kw1" maxlength="100" style="width:474px;" autocomplete="off">
vb怎么给文本框赋值？

Answer 1

    先在窗体上拉出一个webbrowser控件,然后加载http://www.baidu.com/
    
    给文本框赋值：
    WebBrowser1.Document.GetElementById("kw1").Value = "vb模拟点击"
    点击“百度一下”
    WebBrowser1.Document.GetElementById("su1").Click

追问

请问这个该怎么处理？

追答

value换成innerhTML看下，click后面不用（）不行吗？
或者用webbrowser1.Document.GetElementById(""su1"").InvokeMember("click")看下
。具体怎么转换你百度下，貌似有朋友问过的

Dim oPW As HtmlElement = WebBrowser1.Document.GetElementById("password")
oPW.SetAttribute("value", TextBox2.Text)
MSDN 上找到的，自己改一下