主题：[求助]关于自动打开网页并填入用户名和密码的求助

现有“表A”，如下：

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

关联模式窗口，如下：

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

计划，单击窗口中的“登录”按钮，打开“https://12366.gs-n-tax.gov.cn/login-web/login#”网页，并将当前行客户的“用户名”、“密码”自动填到网页显示框中，并触发网页的“登录”按钮，实现客户的自动登录。

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

自己的知识已经是无法完成如此复杂的语句编写，只能求助老师，给予帮助，谢谢！

参考例子，自行调试代码

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107739&skin=0

那没办法的。无法控制谷歌浏览器。

知道了，另外，问一下是否有其他浏览器的控件，如：360，谷歌等，因为此网址要求如下：

甘肃国税电子税务局温馨提示：

如果用Foxtable自带的网页控件的话，版本太低，无法使用。

修改内核即可

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84931&skin=0

如果是打开一个ie浏览器，参考代码

Dim ie As Object = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate("https://12366.gs-n-tax.gov.cn/login-web/login")
Application.DoEvents
Do While ie.busy Or ie.readystate <> 4
    Application.DoEvents
Loop

Dim Inputs = ie.Document.GetElementById("login-0").GetElementsByTagName("input")
Dim aas = ie.Document.GetElementById("login-0").GetElementsByTagName("a")
For Each Input As object In Inputs
    If Input.getAttribute("class").tostring = "userID-1" Then
        Input.SetAttribute("value", "abc")
    ElseIf input.id = "password-1"
        Input.SetAttribute("value", "123")
    End If
Next
For Each a As object In aas
    If a.getAttribute("class").tostring = "btn login-btn" Then
        a.click
    End If
Next

甜老师，

IE浏览器自己修改了一下，没有问题了。

Dim yh As String = Tables("表A").Current("用户名")
Dim mm As String = Tables("表A").Current("密码")
Dim ie As Object = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate("https://12366.gs-n-tax.gov.cn/login-web/login")
Application.DoEvents
Do While ie.busy Or ie.readystate <> 4
    Application.DoEvents
Loop
Dim Inputs = ie.Document.GetElementById("login-0").GetElementsByTagName("input")
Dim aas = ie.Document.GetElementById("login-0").GetElementsByTagName("a")
For Each Input As object In Inputs
    If Input.getAttribute("class").tostring = "userID-1" Then
        Input.SetAttribute("value", "" & yh & "")
    ElseIf input.id = "password-1"
        Input.SetAttribute("value", "" & mm & "")
    End If
Next
For Each a As object In aas
    If a.getAttribute("class").tostring = "btn login-btn" Then
        a.click
    End If
Next

哪如果是“谷歌浏览器”，是否有办法？

问题是“IE浏览器”无法打开电子税务局的申报明细表。

拜托了！