7,765
社区成员
发帖
与我相关
我的任务
分享
'填写到百度搜索框:
webbrowser1.document.getElementById("kw").value="方法1"
webbrowser1.document.getElementsByName("wd")(0).Value = "方法2"
webbrowser1.document.getElementsByTagName("input")(0).Value = "方法3"
'点击搜索按钮:
webbrowser1.document.getElementById("su").click '方法1
webbrowser1.document.getElementsByName("f")(0).submit '方法2
webbrowser1.document.Forms(0).submit '方法3
webbrowser1.document.getElementsByTagName("input")(1).Click '方法4
'使用本代码需要Ctrl+T里面勾选Microsoft Internet Control 6.0,并在窗体上画一个,默认名称是WebBrowser1
'然后添加一个文本框Text1和一个按钮Command1
Private Sub Command1_Click()
WebBrowser1.Document.getElementById("su").Click
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub
Private Sub Text1_Change()
WebBrowser1.Document.getElementById("kw").Value = Text1.Text
End Sub