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


  共有2029人关注过本帖平板打印复制链接

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

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


加好友 发短信
等级:五尾狐 帖子:1137 积分:11224 威望:0 精华:0 注册:2017/9/26 16:30:00
[求助]自动登录网页的例子(内网怎么办)  发帖心情 Post By:2018/8/14 15:36:00 [只看该作者]

用户名:jyhui

密码:305305

 

内网登录前网址:
http://xx.xx.100.221/logon.jsp

 

内网登录后网址:
http://xx.xx.100.205/jnzyweb/platformData/infoplat/pub/jnzyweo?flag=tz&userNameNew=jyhui&jsId=oxmeCRfDlYtqAlAlgQuewhf2hwhMGfxJb_2612/account/loginFun.d

 

其他的怎样改?

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

Dim Inputs = web.Document.GetElementById("login2").GetElementsByTagName("input")
For Each Input As object In Inputs
    If Input.id = "inputid" Then
        Input.SetAttribute("value", "jyhui")
    ElseIf input.id = "inputPassword"
        Input.SetAttribute("value", "305305")
    ElseIf Input.id = "btnQyyhdl" Then
        'Input.InvokeMember("click")
    End If
Next


 回到顶部