Вот мой недоКОД, естественно не работает ( на сайт заходит дальше - 0 внимания )
(отрывок интерфейса гуи)
(отрывок интерфейса гуи)
Код:
$nick = GUICtrlCreateInput ( "Ник", 40, 30, 60, 20)
$pass = GUICtrlCreateInput ( "Пароль", 115, 30, 60, 20)
$spisok = GUICtrlCreateCombo ( "Server1", 180, 30, 60, 20)
GUICtrlSetData($spisok, "Server2|Server3|Server4|Server5", "Server1" )
$login = GUICtrlCreateButton ( "Вход", 250, 30, 40, 20)
Func LogIn()
$oIE = _IECreate ("www.battleknight.ru", 0, 1)
$2nick = GUICtrlRead ($nick, 1)
$2pass = GUICtrlRead ($pass, 1)
$2spisok = GUICtrlRead ($spisok, 1)
$oForm = _IEFormGetCollection ($oIE)
$oLogin = _IEFormElementGetObjByName($oForm,"user_name")
$oPass = _IEFormElementGetObjByName($oForm,"user_password")
$oSelect = _IEFormElementGetObjByName($oForm,"Server")
$oServer = _IEFormElementOptionSelect($oForm, $2spisok, 1, "byName")
_IEFormElementSetValue($oServer, $2spisok)
_IEFormElementSetValue($oLogin, $2nick)
_IEFormElementSetValue($oPass, $2pass)
_IEFormSubmit($oForm,1)
EndFunc