Create DriverPath & Options, DriverFolderPath, Null, pid With CreateObject("WbemScripting.SWbemLocator").ConnectServer.Get("Win32_Process") Options = " -host=localhost -jwp -port=" & PortNo ("Select * From Win32_Process Where Name = '" & DriverName & "'") Set itms = CreateObject("WbemScripting.SWbemLocator").ConnectServer.ExecQuery _ FileExists(DriverPath) = False Then GoTo FinÄriverFolderPath =. With CreateObject("Scripting.FileSystemObject") Optional ByVal PortNo As Long = 17556) As Long Optional ByVal DriverPath As String = "C:\Windows\System32\MicrosoftWebDriver.exe", _ MsgBox "done.", vbInformation + vbSystemModal MsgBox "pause", vbInformation + vbSystemModal FindElementById("sb_form_q").SendKeys "abcdefg" StartRemotely " & pno & "/", "MicrosoftEdge" ('-jwp' option is necessary for new version of EdgeDriver.) Option Explicit
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |