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

现有“表A”，如下：

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

关联模式窗口，如下：

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

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

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

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

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

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

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

甜老师，

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浏览器”无法打开电子税务局的申报明细表。

拜托了！

甜老师，再弱弱的问一次，谷歌浏览器能否通过以下方法（关键是思路）实现自动填入？

Dim yhm As String = Tables("表A").Current("用户名")
Dim mm As String = Tables("表A").Current("密码")
Dim Proc As New Process
Proc.File = "Chrome.exe" '指定要执行的文件
Proc.Arguments = "https://12366.gs-n-tax.gov.cn/login-web/login#" '指定命令行参数
Proc.Start()
Proc.WaitForInputIdle() '等程序自动结束并进入空闲状态
Sendkeys.Send("{TAB}") '发送按键信息
Sendkeys.Send("" & yhm & "") '发送按键信息
Sendkeys.Send("{TAB}") '发送按键信息
Sendkeys.Send("" & mm & "") '发送按键信息

自己测试后，输入的信息在Foxtable表中。请给于正解，谢谢！

长见识了，谢谢！

现在基本上能自动录入，不过又出现“输入法”的问题，也就是输入的时候，输入法默认为打开且为中文输入时，网页输入结果是其他中文字符！要实现完美自动输入，好像还得添加关闭输入法，输入完成后再打开输入法的命令。

此问题，好像有点啰嗦了！

甜老师，如果您顾得上的话，请给予解答，顾不上的话，那就算了！

如果是打开一个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

现在我用这的代码，第一个客户（第一次运行）成功登陆后，如果是第二个客户登陆的话，出现如下错误信息，麻烦甜老师看看，谢谢！

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2017.10.26.1
错误所在事件：窗口,电子税务局,Button1,Click
详细错误信息：
无法创建 ActiveX 组件。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table