Foxtable(狐表)用户栏目专家坐堂 → [求助]打开网页自动填入用户名及密码


  共有3433人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
农村人
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:174 积分:2349 威望:0 精华:0 注册:2015/8/12 15:36:00
[求助]打开网页自动填入用户名及密码  发帖心情 Post By:2015/9/12 9:55:00 [只看该作者]

当打开窗口;WebBrowser地址是:tfgs.qn.qs12315.com
自动填入事先设定好的用户名用密码,请问如何做?

 回到顶部
帅哥哟,离线,有人找我吗?
bailang121
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:140 积分:1242 威望:0 精华:0 注册:2015/4/10 15:44:00
  发帖心情 Post By:2015/9/12 10:01:00 [只看该作者]

那需要读取网页信息~ 包括网页内账号密码输入框控件的元素~    无法直接完成这样的步骤的哦   

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/9/12 11:43:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lindong
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:468 积分:4132 威望:0 精华:0 注册:2013/12/9 0:52:00
[分享]  发帖心情 Post By:2015/9/12 11:46:00 [只看该作者]

做了个例子 http://yun.baidu.com/share/link?shareid=3833418876&uk=2569802092
[此贴子已经被作者于2015/9/12 12:06:41编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/13 11:35:00 [只看该作者]

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


 回到顶部