打开多个链接始终保持登录状态

时间:2019-09-13 09:45:20

标签: excel vba selenium

我有以下代码,可让我登录特定的网址,然后打开与该网站相关的多个链接

Private bot As New Selenium.ChromeDriver

Sub Test()
Dim arr(), ws As Worksheet, i As Long

Set bot = New ChromeDriver
Set ws = ThisWorkbook.Worksheets("Sheet1")
arr = Application.Transpose(ws.Range("C2:C" & ws.Cells(Rows.Count, 1).End(xlUp).Row))

With bot
    .Start "chrome", "url"
    .Get "/"

    .FindElementById("login-trigger").Click
    .FindElementById("username").SendKeys "username"
    .FindElementById("password").SendKeys "password"
    .FindElementByXPath("//*[@id='actions']/input").Click
    Application.Wait Now + TimeValue("00:00:05")

    Stop
    For i = LBound(arr) To UBound(arr)
        If Not IsEmpty(arr(i)) Then
            .ExecuteScript "window.open(arguments[0])", arr(i)
            .SwitchToNextWindow
        End If
    Next i
End With
End Sub

该代码可以正常工作,我可以登录网站(默认情况下,“记住我”复选框处于选中状态)..但至于在循环中打开的链接并不表示已登录的网站在..

我如何在循环中打开的所有标签中保留标志?

0 个答案:

没有答案