DeLeTeSHift
Знающий
- Сообщения
- 46
- Репутация
- 9
При запуске, скрипт вылетает с ошибкой IE.au3
Раньше всё было нормально, но с какого то момента. по непонятным мне причинам, скрипт начал вылетать. Вот собственно и конфликтный фрагмент:
Кто знает в чём проблема, подскажите.
Код:
>"D:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "D:\Program Files\AutoIt3\Script\Проекты\рс\левый.au3"
D:\Program Files\AutoIt3\Include\IE.au3 (2395) : ==> Variable must be of type "Object".:
If IsObj($o_object.document.getElementById($s_Id)) Then
If IsObj($o_object.document^ ERROR
>Exit code: 1 Time: 0.318
Код:
#include <IE.au3>
$oIE = ObjCreate("Shell.explorer.2")
$Form2 = GUICreate("RealSteelBot", 760, 730 , 50)
$GUIActiveX = GUICtrlCreateObj($oIE, -150, -107, 947, 849)
GUISetState()
$oIE.navigate("http://vk.com/app3274270_168690604?ref=1")
For $i = 1 To 1 ;поиска формы входа ввода логина и пароля
$sUrl = 'http://vk.com';адрес сайта присваеваем переменной $sUrl
$oForm = _IEGetObjById($oIE, 'quick_login_form') ;поиск формы входа на сайт
If @error Then ExitLoop; если ошибка- выход
$oEmail = _IEFormElementGetObjByName($oForm, 'email') ;поиск поля ввода логина
If @error Then ExitLoop; если ошибка- выход
$oPass = _IEFormElementGetObjByName($oForm, 'pass');поиск поля ввода пароля
If @error Then ExitLoop; если ошибка- выход
_IEFormElementSetValue($oEmail, $Login);ввод логина $sLogin
If @error Then ExitLoop; если ошибка- выход
_IEFormElementSetValue($oPass, $Pass);ввод пароля $sPass
If @error Then ExitLoop; если ошибка- выход
_IEFormSubmit($oForm);входим на сайт
If @error Then ExitLoop;если ошибка- выход
Next
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd