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

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

Dim Inputs = web.Document.GetElementsByTagName("input")
For Each Input As object In Inputs
    If Input.id = "grp_id" Then
        Input.SetAttribute("value", "123")
    ElseIf input.id = "user_id"
        Input.SetAttribute("value", "456")
    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

直接用

 

Dim btn = web.Document.GetElementById("id名称")

.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

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")
For Each Input As object In Inputs
    If Input.id = "grp_id" Then
        Input.SetAttribute("value", 123)
    ElseIf input.id = "user_id"
        Input.SetAttribute("value", 456)
    End If
Next
Dim btn = ie.Document.GetElementById("formfield").GetElementsByTagName("a")(0)
btn.click

 

老师，

  用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

登陆的那个a标签没有id值。不是每一个元素都有id值的。

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

 

Dim btn = web.Document.GetElementById("formfield").GetElementsByTagName("a")(0)
btn.InvokeMember("click")

老师，

   在WEUI中 获取 是不是 会简单些呢？怎么写呢？