в название темы, вся суть проблемы...
Помогите решить эту делему...
в чём здесь ошибка?
Код:
#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в чём здесь ошибка?
