主题：打开网页后怎样输入用户名及密码

各位老师：

    帮助中可以打开网页，网页界面有输入用户名及密码，怎样在下面帮助中增加代码能自动输入，并登陆

 

Dim Proc As New Process '定义一个新的Process
Proc.File = "http://bbs.foxtable.com" '指定要打开的网页地址

Proc.Start()

 

谢谢！

蓝老师：

   我在论坛上找到了这个代码：

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").Basecontrol
web.Navigate("网址")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

web.Document.GetElementById("UserName").SetAttribute("Value", "caoxm")
web.Document.GetElementById("Password").SetAttribute("Value", "caoxm")
'web.Document.GetElementById("check_num").SetAttribute("Value", "123456")
'web.Document.GetElementById("cmdLongi").InvokeMember("click")

可以写入用户名及密码，如下图：

 

此主题相关图片如下：微信图片_20201116172934.png

 

但无法直接登陆，请看是不是代码那个地方还地更改？

谢谢！

没有验证码，平常登陆时，输入用户名及密码后直接点击登陆就进去了

 

加上这句后，出现如下提示：

 

 

此主题相关图片如下：微信图片_20201116225523.png