Войти

Показать полную графическую версию : Не работает Send("{ENTER}")


voler
05-06-2015, 13:24
Добрый день.

Есть скрипт автоматического входа на сайт, если скрипт запустить вручную то все хорошо, а если выполнить его через schtasks то доходит нажатия Send("{ENTER}") и вход на сайт не проходит.

Подскажите как решить данную проблему?

Iska
05-06-2015, 19:16
Есть скрипт »
И где его код?

voler
08-06-2015, 10:50
Код
#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'

voler
09-06-2015, 08:26
Думаю что нужно делать окно iexplorer.exe активным, т.к. если оно не активно, а активно другое то Enter нажимается там.




© OSzone.net 2001-2012