pop22
08-07-2009, 17:11
$answer = MsgBox(4, "Start", "Начать ESC")
If $answer = 7 Then
Exit
EndIf
Opt("TrayIconDebug", 1)
$my_title = "yahoo"
If WinExists($my_title) Then Exit ; Он уже запущен
AutoItWinSetTitle($my_title)
#include <IE.au3>
$file_pass = FileOpen ( @DesktopDir&"\pass.txt", 0)
$login = FileReadLine ($file_pass, 1)
$Parol = FileReadLine ($file_pass, 2)
FileClose ($file_pass)
$oIE = _IECreate ("http://mail.yahoo.com/")
_IELoadWait ($oIE)
$oUser =_IEGetObjByName($oIE,"login")
$oPass =_IEGetObjByName($oIE,"passwd")
$oSabmit =_IEGetObjByName($oIE,".save")
_IEFormElementSetValue ($oUser, $Login)
_IEFormElementSetValue ($oPass, $Parol)
_IEAction ($oSabmit,"click")
_IELoadWait ($oIE)
вылезает ошибка ... тоесть он не кликает по кнопке логин.. в формы все вставляется но дальше ошибка ....
http://i044.radikal.ru/0907/fb/6ac94fcaa141.jpg
<p class="yreglgsb"><input type="submit" name=".save" value="Sign In"
If $answer = 7 Then
Exit
EndIf
Opt("TrayIconDebug", 1)
$my_title = "yahoo"
If WinExists($my_title) Then Exit ; Он уже запущен
AutoItWinSetTitle($my_title)
#include <IE.au3>
$file_pass = FileOpen ( @DesktopDir&"\pass.txt", 0)
$login = FileReadLine ($file_pass, 1)
$Parol = FileReadLine ($file_pass, 2)
FileClose ($file_pass)
$oIE = _IECreate ("http://mail.yahoo.com/")
_IELoadWait ($oIE)
$oUser =_IEGetObjByName($oIE,"login")
$oPass =_IEGetObjByName($oIE,"passwd")
$oSabmit =_IEGetObjByName($oIE,".save")
_IEFormElementSetValue ($oUser, $Login)
_IEFormElementSetValue ($oPass, $Parol)
_IEAction ($oSabmit,"click")
_IELoadWait ($oIE)
вылезает ошибка ... тоесть он не кликает по кнопке логин.. в формы все вставляется но дальше ошибка ....
http://i044.radikal.ru/0907/fb/6ac94fcaa141.jpg
<p class="yreglgsb"><input type="submit" name=".save" value="Sign In"