Показать полную графическую версию : Не работает Send("{ENTER}")
Добрый день.
Есть скрипт автоматического входа на сайт, если скрипт запустить вручную то все хорошо, а если выполнить его через schtasks то доходит нажатия Send("{ENTER}") и вход на сайт не проходит.
Подскажите как решить данную проблему?
Есть скрипт »
И где его код?
Код
#include <IE.au3>
#include <Date.au3>
$filelog = FileOpen ("autoit.log", 1)
If WinExists('[CLASS:AutoIt v3;TITLE:' & @ScriptName & ']') Then
FileWrite($filelog, "Позволено запускать только одну копию программы!" & ' ' & @ScriptName & ' ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF)
Exit
EndIf
AutoItWinSetTitle(@ScriptName)
$iPing = Ping("google.com", 250)
If $iPing Then ; также возможно: If @error = 0 Then ...
FileWrite($filelog, "В онлайне, задержка ответа:" & $iPing & ' '& @ScriptName & ' - ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF )
Else
FileWrite($filelog, "Произошла ошибка, @error=" & @error & ' '& @ScriptName & ' - ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF )
Exit
EndIf
FileClose($filelog)
Run("iexplore.exe")
$sLogin = 'login-users'
$sPass = 'pass-users'
$sUrl = 'https://mail.google.com'
$oIE = _IECreate($sUrl)
_IELoadWait ($oIE)
$oLogin = _IEGetObjByName($oIE, 'login')
$oPass = _IEGetObjByName($oIE, 'passwd')
$oChek = _IEGetObjByName($oIE, 'twoweeks')
_IEFormElementSetValue($oLogin, $sLogin)
_IEFormElementSetValue($oPass, $sPass)
_IEAction($oChek, 'click')
Send("{ENTER}")
Sleep(30000)
_IEQuit ($oIE)
ProcessClose ("iexplore.exe")
$type = '255'
Думаю что нужно делать окно iexplorer.exe активным, т.к. если оно не активно, а активно другое то Enter нажимается там.
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.