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

参考例子，自行调试代码

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

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

修改内核即可

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

谷歌就用webkit等

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

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

Dim Proc As New Process
Proc.File = "Chrome.exe" '指定要执行的文件
Proc.Arguments = "https://12366.gs-n-tax.gov.cn/login-web/login#" '指定命令行参数
Proc.Start()
system.threading.thread.sleep(2000)
Sendkeys.Send("{TAB}") '发送按键信息
Sendkeys.Send("123") '发送按键信息
Sendkeys.Send("{TAB}") '发送按键信息
Sendkeys.Send("456") '发送按键信息

没办法，你可以试试设置鼠标位置，然后点击

全局代码

Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public const MOUSEEVENTF_MOVE As Int32 = &H1 '  mouse move
Public const MOUSEEVENTF_LEFTDOWN As Int32 = &H2 '  left button down
Public const MOUSEEVENTF_LEFTUP As Int32 = &H4 '  left button up
Public const MOUSEEVENTF_RIGHTDOWN As Int32 = &H8 '  right button down
Public const MOUSEEVENTF_RIGHTUP As Int32 = &H10 '  right button up
Public const MOUSEEVENTF_MIDDLEDOWN As Int32 = &H20 '  middle button down
Public const MOUSEEVENTF_MIDDLEUP As Int32 = &H40 '  middle button up
Public const MOUSEEVENTF_ABSOLUTE As Int32 = &H8000 '  absolute move
Public const MOUSEEVENTF_WHEEL As Int32 = &H800 ' wheel button rolled

<DllImport("user32.dll", EntryPoint := "SetCursorPos")> _
Public Function SetCursorPos(x As Integer, y As Integer) As Boolean

End Function

调用

SetCursorPos (599, 589) '鼠标位置
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

加入一个enter键就好

Dim Proc As New Process
Proc.File = "Chrome.exe" '指定要执行的文件
Proc.Arguments = "https://12366.gs-n-tax.gov.cn/login-web/login#" '指定命令行参数
Proc.Start()
system.threading.thread.sleep(2000)

Sendkeys.Sendwait("{TAB}") '发送按键信息
Sendkeys.Sendwait("aabbccefg") '发送按键信息
system.threading.thread.sleep(2000)
Sendkeys.Sendwait("{enter}") '发送按键信息
Sendkeys.Sendwait("{TAB}") '发送按键信息
system.threading.thread.sleep(2000)
Sendkeys.Send("jikoieiwuw") '发送按键信息

卸载重装ie浏览器就行了。

https://jingyan.baidu.com/article/200957617c7319cb0721b48a.html