Что нового

Помогите переделать скрипт от IE под FF

Trans

Знающий
Сообщения
257
Репутация
6
Версия AutoIt: 3.3.7.14

Описание: Вот сам скрипт который от 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
 
Автор
T

Trans

Знающий
Сообщения
257
Репутация
6
Re: [Данные, строки] Помогите переделать скрипт от IE под FF

Народ, помогите разобраться с этой функцией _FFClick
Прям не знаю что уж делать... осталось только
Код:
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
переделать под FireFox

С остальным уже разобрался:smile:
 
Автор
T

Trans

Знающий
Сообщения
257
Репутация
6
Ап перед сном, вдруг найдётся человек который переделает скрипт от IE под FF :smile:
Буду крайне благодарен ему :beer:
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
622
Trans
апать не чаще раза в сутки. и вообще, на будущее, на этом форуме каждый день заходят примерно одни и те же люди.
 
Верх