Что нового

Нужна помощь в дописании бота (Не открывается окно GUI)

Trans

Знающий
Сообщения
257
Репутация
6
в название темы, вся суть проблемы...
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("World of the Rest - Click'er", 339, 93, 194, 114)
$Label1 = GUICtrlCreateLabel("Игрок:", 18, 12, 33, 17)
$Login = GUICtrlCreateInput("", 78, 9, 121, 21)
$Label2 = GUICtrlCreateLabel("Пароль:", 11, 39, 40, 27)
$Pass = GUICtrlCreateInput("", 78, 36, 121, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Send = GUICtrlCreateButton("Старт", 10, 63, 75, 21, 0)
$Exit = GUICtrlCreateButton("Выход", 125, 63, 75, 21, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$sURL = 'http://worldofrest.com.ua/wap/login.php?user_name=' & $oLogin & '&user_pass=' & $oPass
$oLogin =  (GUICtrlRead($Login))
$oPass =  (GUICtrlRead($Pass))

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
		Case $Send
$oIE  = _IECreate($sURL)
			_Start()
Case $Exit
		Exit
    EndSwitch
WEnd
Dim $oIE = _IECreate($sURL)

Func _Start()
AdlibRegister('_Ref', 2500)
AdlibRegister('_ReLogin', 420000)
AdlibRegister('_Click')
EndFunc


Func _ClickButton(ByRef $_Obj, $sName)
    Local $oButtons2, $oButton
    $oButtons = _IETagNameGetCollection($_Obj, 'input')
    For $oButton In $oButtons
      If $oButton.Name = $sName Then _IEAction($oButton, "click")
    Next
    _IELoadWait ($oIE)
EndFunc


Func _Ref()
	_IEAction($oIE, "refresh")
EndFunc

Func _ReLogin()
    _IENavigate($oIE, $sURL)
EndFunc

Func _Click()
	 _ClickButton($oIE, 'bitvraga')
 EndFunc
Помогите решить эту делему...:smile:

в чём здесь ошибка?
 

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
Код:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("World of the Rest - Click'er", 339, 93, 194, 114)
$Label1 = GUICtrlCreateLabel("Игрок:", 18, 12, 33, 17)
$Login = GUICtrlCreateInput("", 78, 9, 121, 21)
$Label2 = GUICtrlCreateLabel("Пароль:", 11, 39, 40, 27)
$Pass = GUICtrlCreateInput("", 78, 36, 121, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Send = GUICtrlCreateButton("Старт", 10, 63, 75, 21, 0)
$Exit = GUICtrlCreateButton("Выход", 125, 63, 75, 21, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$oLogin =  (GUICtrlRead($Login))
$oPass =  (GUICtrlRead($Pass))
$sURL = 'http://worldofrest.com.ua/wap/login.php?user_name=' & $oLogin & '&user_pass=' & $oPass


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Send
$oIE  = _IECreate($sURL)
            _Start()
Case $Exit
        Exit
    EndSwitch
WEnd
Dim $oIE = _IECreate($sURL)

Func _Start()
AdlibRegister('_Ref', 2500)
AdlibRegister('_ReLogin', 420000)
AdlibRegister('_Click')
EndFunc


Func _ClickButton(ByRef $_Obj, $sName)
    Local $oButtons2, $oButton
    $oButtons = _IETagNameGetCollection($_Obj, 'input')
    For $oButton In $oButtons
      If $oButton.Name = $sName Then _IEAction($oButton, "click")
    Next
    _IELoadWait ($oIE)
EndFunc


Func _Ref()
    _IEAction($oIE, "refresh")
EndFunc

Func _ReLogin()
    _IENavigate($oIE, $sURL)
EndFunc

Func _Click()
     _ClickButton($oIE, 'bitvraga')
 EndFunc
 
Автор
T

Trans

Знающий
Сообщения
257
Репутация
6
Теперь GUI открывается, но почему-то авторизацию не проходит...
Подозреваю я, что где-то тут проблема с GUI....
 

Fever

Скриптер
Сообщения
308
Репутация
112
Trans [?]
но почему-то авторизацию не проходит...

Код:
$oLogin =  (GUICtrlRead($Login))
$oPass =  (GUICtrlRead($Pass))


всегда будет 0, ибо изначально поля пусты
вставь эти действия после нажатия кнопки "старт"
 
Автор
T

Trans

Знающий
Сообщения
257
Репутация
6
выдает ошибку
Код:
$sURL = 'http://worldofrest.com.ua/wap/login.php?user_name=' & $oLogin & '&user_pass=' & $oPass
$sURL = 'http://worldofrest.com.ua/wap/login.php?user_name=' & ^ ERROR
Что же теперь не так?
 
Верх