Foxtable(狐表)用户栏目专家坐堂 → [求助]自动登录网页的例子(内网怎么办)


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

主题:[求助]自动登录网页的例子(内网怎么办)

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/14 15:44:00 [显示全部帖子]

浏览器那里按下F12,调出调试器,查看对应元素的结构,看id值是什么,或者特征是什么。

[此贴子已经被作者于2018/8/14 15:44:20编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/14 16:21:00 [显示全部帖子]

参考红色代码

 

         <td align="right">用户名</td>
         <td>
         <input type="text" size="31" style="border: 1px solid #C0C0C0" id=txt_username  name="txt_username"   ></td>
        </tr>
        <tr>
         <td align="right">密&nbsp; 码</td>
         <td>
         <input size="31" style="border: 1px solid #C0C0C0" id=txt_password type=password name=txt_password   ></td>
        </tr>
        <tr><td align="right"></td>
         <td>
         <input type="checkbox" name="hasPwd" id="hasPwd" value="1"/>记住密码


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/14 17:05:00 [显示全部帖子]

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol

Dim Inputs = web.Document.GetElementById("logon").GetElementsByTagName("input")
For Each Input As object In Inputs
msgbox(Input.id)
    If Input.id = "txt_username" Then
        Input.SetAttribute("value", "jyhui")
    ElseIf input.id = "txt_password"
        Input.SetAttribute("value", "305305")
    End If
Next

web.Document.InvokeScript("eval", new String() {"alert('abc');checkuser();alert('123')"})


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/15 12:06:00 [显示全部帖子]

1、代码没问题;信息绝对能填上。

 

2、如果无法提供实例,请联系客服远程测试。


 回到顶部