首页 > 解决方案 > vba 在 Chrome 中打开 URL,包括登录名和密码

问题描述

我想在 chrome 中打开一个 url 并提供登录 ID 和密码。我当前的 IE 代码如下所示。从其他帖子中,我看到 Chrome 可以通过基本的 shell 命令打开。有没有办法将登录 ID 和密码作为 shell 命令的一部分传递?如果不是,完成此操作的代码应该是什么样的?提前致谢!

Public Sub WeltokLogin()
'REFERENCES: MS Internet Controls, and MS HTML Object Library (No longer working in Windows 10)
  On Error Resume Next
    Const URL$ = "https://.../human.aspx"
Exit Sub
    Dim UserName As String, Password As String
    Dim htmlEle As IHTMLElement
    Dim i As Integer

    i = 1
    UserName = "myloginID"
    Password = "mypassword"

    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    Dim AllLinks As Object
    Dim Hyperlink As Object
    With IE

        .navigate URL
        ieBusy IE
        .Visible = True

        Dim oLogin As Object, oPassword As Object
        Set oLogin = .document.getElementsByName("Username")(0)
        Set oPassword = .document.getElementsByName("Password")(0)

        oLogin.Value = UserName
        oPassword.Value = Password
        .document.forms(0).submit

       'Loop Until ie.ReadyState = 4
        Exit Sub
        Set AllLinks = IE.document.getElementsByTagName("div")(0)
        For Each Hyperlink In AllLinks
          If InStr(1, Hyperlink.innerText, "Folders") > 0 Then
            Hyperlink.Click
            Exit For
          End If
        Next Hyperlink


Stop

标签: vbagoogle-chrome

解决方案


推荐阅读