Здравствуйте, помогите.
Скрипт отрабатывает один раз без ошибок, на второй итерации возникает:
Как исправить?
Скрипт отрабатывает один раз без ошибок, на второй итерации возникает:
Код:
IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
Как исправить?
Код:
#include "UIAutomate.au3"
#include <String.au3>
#include <IE.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <file.au3>
Global $sUser = "User"
Global $sPass = "Pass"
Dim $i
Opt("SendKeyDelay", 55)
$lFile = FileOpen("okvpn1.txt")
Do
$sL_ip = FileReadLine($lFile)
If @error Then ExitLoop
Run('rundll32.exe inetcpl.cpl, ClearMyTracksByProcess 2')
Sleep(5000)
$Res = Run("Rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,4", "")
$Res = WinWait("Internet Properties", "", 20)
ControlClick("Internet Properties", "", "[CLASS:Button; INSTANCE:10]")
$Res = WinWait("Local Area Network (LAN) Settings", "", 20)
Sleep(1000)
ControlSetText("Local Area Network (LAN) Settings", "", "[CLASS:Edit; INSTANCE:2]", $sL_ip) ;Заменит текущий
Sleep(1000)
ControlClick("Local Area Network (LAN) Settings", "", "[CLASS:Button; INSTANCE:12]")
Sleep(1000)
ControlClick("Internet Properties", "", "[CLASS:Button; INSTANCE:11]")
Sleep(1000)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$sUrl = 'https://2ip.ru/'
$oIEs = _IECreate($sUrl, 0, 1, 0) ;IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
Sleep(4000)
$hLogin = WinGetHandle('[REGEXPCLASS:Credential Dialog Xaml.*]')
$oParent = _UIA_GetElementFromHandle($hLogin)
$oUser = _UIA_GetControlTypeElement($oParent, "UIA_EditControlTypeId", "EditField_0", $UIA_AutomationIdPropertyId)
$oPass = _UIA_GetControlTypeElement($oParent, "UIA_EditControlTypeId", "PasswordField_1", $UIA_AutomationIdPropertyId)
_UIA_ElementTextSetValue($oUser, $sUser)
_UIA_ElementTextSetValue($oPass, $sPass)
ControlSend($hLogin, '', '', '{ENTER}')
_IELoadWait($oIEs)
sleep(500)
_IEQuit ($oIEs)
sleep(5000)
$i = $i + 1 ;
Until $i = 30