Версия AutoIt: 3.3.7.14
Описание: Вот сам скрипт который от IE
Примечания: В IE скрипт работает нормально, но связи с некоторыми проблемами, которые указаны в теме http://autoit-script.ru/index.php/topic,3881.msg43937.html#msg43937 приходится переписывать под FF...
Сам вроде начал писать под FF, но дальше строки _FFStart() не сдвинулся :'(
З.Ы. Главное, чтоб можно было открыть ещё одно окно FF и предыдущее не мешало первому...
(FF - Mozila FireFox)
http://autoit-script.ru/index.php?topic=40.0
Добавлено:
Сделал такие наброски:
Но так и не разобрался как сделать, чтоб нажималось на кнопку... (чтоб работала эта функция)
Описание: Вот сам скрипт который от IE
Код:
#include<IE.au3> ; Подключаем библиотеку IE
$Login = 'my_login'
$Pass = 'my_pass'
Dim $oIE = _IECreate('http://worldofrest.com.ua/wap/login.php?user_name=' & $Login & '&user_pass=' & $Pass) ; Открываем окно Internet Explore
AdlibRegister('_Ref', 3500)
AdlibRegister('_Login', 420000)
While 1
_ClickButton($oIE, 'bitvraga')
Sleep(350)
WEnd
Func _ClickButton(ByRef $_Obj, $sName)
Local $oButtons2, $oButton
$oButtons2 = _IETagNameGetCollection($_Obj, 'input')
If Not @error Then
$oButton = $oButtons2($sName)
If IsObj($oButton) Then _IEAction($oButton, "click")
EndIf
EndFunc
; Заставляем нажимать на кнопку при первом её появление
Func _Ref()
$hWnd = WinGetHandle('WAP Game - World of the Rest - Windows Internet Explorer')
If $hWnd Then
ControlSend($hWnd, "", "", "{F5}")
EndIf
EndFunc
; Нажимаем на кнопку F5 для того, чтоб обновить страницу
Func _Login()
_IENavigate($oIE, 'worldofrest.com.ua/wap/login.php?user_name=' & $Login & '&user_pass=' & $Pass)
EndFunc
; Проходим авторизацию связи с тем, что она периодически "слетает"
Примечания: В IE скрипт работает нормально, но связи с некоторыми проблемами, которые указаны в теме http://autoit-script.ru/index.php/topic,3881.msg43937.html#msg43937 приходится переписывать под FF...
Сам вроде начал писать под FF, но дальше строки _FFStart() не сдвинулся :'(
З.Ы. Главное, чтоб можно было открыть ещё одно окно FF и предыдущее не мешало первому...
(FF - Mozila FireFox)
http://autoit-script.ru/index.php?topic=40.0
Добавлено:
Сообщение автоматически объединено:
Сделал такие наброски:
Код:
#include<FF.au3>
$Login=''
$Password=''
_FFStart('http://worldofrest.com.ua/wap/login.php?user_name='& $Login & '&user_pass=' & $Password)
AdlibRegister('_Ref', 2500)
AdlibRegister('_Login', 420000)
Func _Ref()
$hWnd = WinGetHandle('WAP Game - World of the Rest')
If $hWnd Then
ControlSend($hWnd, "", "", "{F5}")
EndIf
EndFunc
Func _Login()
_FFOpenURL('http://worldofrest.com.ua/wap/login.php?user_name=' & $Login & '&user_pass=' & $Password)
EndFunc
Но так и не разобрался как сделать, чтоб нажималось на кнопку... (чтоб работала эта функция)
Код:
While 1
_ClickButton('bitvraga')
Sleep(500)
WEnd