主题：[求助]打开网页自动填入用户名及密码

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").Basecontrol
web.Navigate("tfgs.qn.qs12315.com")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

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

----------------读取验证码可以参考

测试了一下，下面的例子都不错。英文的还可以，中文的兼容性不好

有兴趣自己测试一下文字识别。

http://www.cnblogs.com/stone_w/archive/2011/10/08/2202397.html