主题：[求助]自动登录网站

老师 ，

   根据精华帖

http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32808&authorid=0&page=1&star=1

 

想要登陆中国银行网站

https://ebsnew.boc.cn/boc15/login.html

 

全局代码应该怎么写

 Case "登录"
                web.Document.Window.Frames(1).Document.GetElementById("txt_username_79443").SetAttribute("Value","用户名") '获得第二个FrAMES框架里面的ID为"username"的的HTML标签元素,并且将其Value设置为"test138"
                web.Document.Window.Frames(1).Document.GetElementById("txt_captcha_79449").SetAttribute("Value","这块是密码") '获得第二个FrAMES框架里面的ID为"pwd1"的的HTML标签元素,并且将其Value设置为"a110110"
                '如果元素不是在Frame框架中,那么直接 web.Document.GetElementById 即可
                '如果元素没有ID怎么办? 按照上面的方法,获得指定类型的元素集合,然后循环判断是否包含该字段的方法来获得.
                '下面的代码都大同小异,就不一一介绍了.
                Dim hec As System.Windows.Forms.HtmlElementCollection = web.Document.Window.Frames(1).Document.GetElementsByTagName("input")
                For i As Integer = 0 To hec.Count-1
                    If hec(i).OuterHtml.Contains("登录") Then
                        hec(i).InvokeMember("click")
                        lb="去精华板块"
                        Exit For
                    End If
                Next
               
                Case "去精华板块"
                web.Navigate(https://ebsnew.boc.cn/boc15/welcome.html?v=20171013030320567&locale=zh)‘这是用我的用户名密码登录后的界面
                lb="查找帖子"

o  想的简单了

 

老师

是所有银行的都不行吗

例如 渣打银行

 

https://s2b.standardchartered.com/ssoapp/login.jsp?langid=zh_CN&_rdurl=

 

 

是这么写吗 ，标注颜色的部分 在哪里找？

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim tb2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim Inputs = web.Document.GetElementById("login").GetElementsByTagName("input")
For Each Input As object In Inputs
    If Input.id = "inputid" Then
        Input.SetAttribute("grp_id", tb1.text)
    ElseIf input.id = "inputPassword"
        Input.SetAttribute("user_id", tb2.text)
    'ElseIf Input.id = "btnQyyhdl" Then
        'Input.InvokeMember("click")
    End If
Next

打开网页显示

此主题相关图片如下：qq图片20171123153230.png

 

执行楼上代码 错误,怎么用户名都没有写入进去呢
.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2017.8.11.1
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
未将对象引用设置到对象的实例。

老师，

老师 ，

  下载了谷歌浏览器 ，然后在哪里能看到 这个login信息呢？

Dim Inputs = web.Document.GetElementById("login").GetElementsByTagName("input")

 

劳烦老师给看下，这样写是不是就对了
Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim tb2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim Inputs = web.Document.GetElementById("_uid").GetElementsByTagName("input")
For Each Input As object In Inputs
    If Input.id = "grp_id" Then
        Input.SetAttribute("grp_id", tb1.text)
    ElseIf input.id = "user_id"
        Input.SetAttribute("user_id", tb2.text)
    'ElseIf Input.id = "btnQyyhdl" Then
        'Input.InvokeMember("click")
    End If
Next

老师 ，

  可以将信息导入了，但是，按钮的代码怎么分析呢

 

Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim tb2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim ie As Object = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate("https://s2b.standardchartered.com/ssoapp/login.jsp?langid=zh_CN&_rdurl=")
Application.DoEvents
Do While ie.busy Or ie.readystate <> 4
    Application.DoEvents
Loop

Dim Inputs = ie.Document.GetElementsByTagName("input")
Dim aas = ie.Document.GetElementById("login-0").GetElementsByTagName("a")
For Each Input As object In Inputs
    If Input.id = "grp_id" Then
        Input.SetAttribute("value", tb1.text)
    ElseIf input.id = "user_id"
        Input.SetAttribute("value", tb2.text)
    End If
Next
For Each a As object In aas
    If a.getAttribute("class").tostring = "javascript:logon();" Then
        a.click
    End If
Next

按钮右键看哪里呢

 

 

 

 

此主题相关图片如下：qq图片20171124111622.png

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2017.10.26.1
错误所在事件：窗口,窗口1,Button2,Click
详细错误信息：
未将对象引用设置到对象的实例。

 

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim tb2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim Inputs = web.Document.GetElementsByTagName("input")
Dim btns = web.Document.GetElementById("div")
For Each Input As object In Inputs
    If Input.id = "grp_id" Then
        Input.SetAttribute("value", tb1.text)
    ElseIf input.id = "user_id"
        Input.SetAttribute("value", tb2.text)
    End If
Next
For Each btn As object In btns
    If btn.id = "formfield" Then
        btn.click
        Exit For
    End If

 

用哪一个ID 呢

此主题相关图片如下：qq图片20171124140045.png

老师，

  用FOXTABLE 自带的WEB 下列代码不行？应该怎么写？

 

Dim btns = web.Document.GetElementsByTagName("a")
For Each btn As object In btns
    If btn.id = "formfield" Then
        btn.click
    End If
Next

那就是 不能用FOXTABLE 自带的WEB  自带的WEB打开 渣打银行了？ 只能用15楼代码了 是否这样 呢