#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <IE.au3>
;----------------------------------------------------------------------------------------------------------------------------
$Form1 = GUICreate("Tank browser 1.0.0.1", 905, 686, 192, 124)
$Button1 = GUICtrlCreateButton("Сервер 1", 16, 8, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Сервер 2", 96, 8, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
;----------------------------------------------------------------------------------------------------------------------------
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$oIE = ObjCreate("Shell.Explorer.2")
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE,16, 48, 873, 617)
_IENavigate($oIE,"http://tankionline.com/battle-ru9.html")
$oIE.Navigate("http://tankionline.com/battle-ru9.html")
Case $Button2
$oIE = ObjCreate("Shell.Explorer.2")
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE,16, 48, 873, 617)
_IENavigate($oIE,"http://tankionline.com/battle-ru10.html")
$oIE.Navigate("http://tankionline.com/battle-ru10.html")
EndSwitch
WEnd