vba Открыть URL в Chrome, включая логин и пароль - PullRequest
0 голосов
/ 27 апреля 2020

Я хочу открыть URL в chrome и указать логин и пароль. Мой текущий код для IE выглядит следующим образом. Из других сообщений я вижу, что Chrome можно открыть с помощью команды оболочки basi c. Есть ли способ передать логин и пароль как часть команды оболочки? Если нет, как должен выглядеть код для выполнения sh этого? Заранее спасибо!

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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...