你在窗体上放一个Command按钮,一个WebBrowser控件并拉大一点,然后把代码放进去。
运行效果是,进入QQ注册页面,并自动在验证码框里输入字。 代码很简单,关键就是getElementsByName的写法:
Private Sub Command1_Click()
Dim objDoc
Set objDoc = WebBrowser1.Document
objDoc.getElementsByName("verifycode")(0).Value = "找到了"
objDoc.getElementsByName("verifycode")(0).Focus
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "
http://reg.qq.com/"
End Sub