#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <IE.au3>
Local $oIE, $Gui_1, $Input_1, $Input_2, $Button_1, $Browser_1
Local $idButton_Back, $idButton_Forward
Local $idButton_Home, $idButton_Stop, $iMsg
$Gui_1 = GUICreate("Авторизация", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
GUICtrlCreateLabel("Логин", 10, 10, 60, 30)
$Input_1 = GUICtrlCreateInput("", 80, 10, 300, 30)
GUICtrlCreateLabel("Пароль", 10, 50, 60, 30)
$Input_2 = GUICtrlCreateInput("", 80, 50, 300, 30, $ES_PASSWORD)
$Button_1 = GUICtrlCreateButton("Войти", 90, 90, 100, 30)
$oIE = _IECreateEmbedded()
$Browser_1 = GUICtrlCreateObj($oIE, 10, 140, 600, 360)
_IENavigate($oIE, "about:blank")
$idButton_Back = GUICtrlCreateButton("Back", 10, 520, 100, 30)
$idButton_Forward = GUICtrlCreateButton("Forward", 120, 520, 100, 30)
$idButton_Home = GUICtrlCreateButton("Home", 230, 520, 100, 30)
$idButton_Stop = GUICtrlCreateButton("Stop", 340, 520, 100, 30)
GUICtrlSetState($Button_1, $GUI_DEFBUTTON)
GUISetState()
While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Button_1
_IENavigate($oIE, "http://www.dayzrun.ru/index.php?app=core&module=global§ion=login")
_IELoadWait($oIE)
$oForm = _IEFormGetCollection($oIE, 2)
$oLogin = _IEFormElementGetObjByName($oForm, "ips_username")
$oPass = _IEFormElementGetObjByName($oForm, "ips_password")
_IEFormElementSetValue($oLogin, GUICtrlRead($Input_1))
_IEFormElementSetValue($oPass, GUICtrlRead($Input_2))
_IEFormSubmit($oForm)
_IELoadWait($oIE)
If StringInStr(_IEBodyReadHTML($oIE), "Логин или пароль неверны.") > 0 Then
MsgBox(16, "Ошибка", "Логин или пароль указаны неверно", 60, $Gui_1)
GUICtrlSetState($Input_1, $GUI_FOCUS)
Else
MsgBox(0, "Успешно", "Авторизация прошла успешно", 60, $Gui_1)
EndIf
Case $idButton_Back
_IEAction($oIE, "back")
Case $idButton_Forward
_IEAction($oIE, "forward")
Case $idButton_Home
;~ _IEAction($oIE, "home")
_IENavigate($oIE, "about:blank")
Case $idButton_Stop
_IEAction($oIE, "stop")
EndSwitch
WEnd