- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于自动打开网页并填入用户名和密码的求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109575)
-- 发布时间：2017/11/15 10:00:00
-- [求助]关于自动打开网页并填入用户名和密码的求助
现有“表A”，如下：
此主题相关图片如下：1.png
关联模式窗口，如下：
此主题相关图片如下：2.png
计划，单击窗口中的“登录”按钮，打开“https://12366.gs-n-tax.gov.cn/login-web/login#”网页，并将当前行客户的“用户名”、“密码”自动填到网页显示框中，并触发网页的“登录”按钮，实现客户的自动登录。
此主题相关图片如下：3.png
自己的知识已经是无法完成如此复杂的语句编写，只能求助老师，给予帮助，谢谢！
-- 发布时间：2017/11/15 10:10:00
--
参考例子，自行调试代码
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107739&skin=0
-- 发布时间：2017/11/15 10:18:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自动登陆网页例子.table |
-- 发布时间：2017/11/15 10:20:00
-- 回复：（有点甜）参考例子，自行调试代码 ht...
甜老师，例子是运用的Foxtable自带的网页浏览器，我的这个网站需要单独打开“谷歌浏览器”才能使用。麻烦您想想办法，给予指导一下，谢谢！
-- 发布时间：2017/11/15 10:21:00
--
甜老师，例子是运用的Foxtable自带的网页浏览器，我的这个网站需要单独打开“谷歌浏览器”才能使用。麻烦您想想办法，给予指导一下，谢谢！
那没办法的。无法控制谷歌浏览器。
-- 发布时间：2017/11/15 10:32:00
-- 回复：（有点甜）以下是引用洮沙在2017/11/15 10:20:0...
知道了，另外，问一下是否有其他浏览器的控件，如：360，谷歌等，因为此网址要求如下：
甘肃国税电子税务局温馨提示：
- google chrome浏览器 版本：59.0以上版本／内核版本：55以上版本
下载地址： http://www.google.cn/chrome/browser/index.html
- 360安全浏览器 版本：9.1以上版本／内核版本：55.0以上版本
下载地址： http://se.360.cn/
如果用Foxtable自带的网页控件的话，版本太低，无法使用。
-- 发布时间：2017/11/15 10:35:00
--
修改内核即可
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84931&skin=0
-- 发布时间：2017/11/15 11:09:00
--
如果是打开一个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
-- 发布时间：2017/11/15 11:39:00
-- 回复：（有点甜）如果是打开一个ie浏览器，参考代码...
谢谢！
-- 发布时间：2017/11/15 12:50:00
-- 回复：（有点甜）如果是打开一个ie浏览器，参考代码...
甜老师，
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浏览器”无法打开电子税务局的申报明细表。
拜托了！