Question

VB这个网站如何实现自动填表，在线等！！

https://passport.baidu.com/?reg&tpl=mn 就这个网页如何实现？

Answer 1

子程序：
Sub guidance(ByVal ID As String, ByVal Value As String)
WebBrowser1.Document.getElementById(ID).Value = Value
End Sub

填表代码：
guidance "usernameforload", "BlackGlory" '用户名
guidance "txtloginpass", "BlackGlory" '密码
guidance "verifypass", "BlackGlory" '确认密码
guidance "email_address", "BlackGlory@BlackGlory.com" '电子邮件

'替换其中的第二个参数即可