Gunny Client (IE Obj)

#include <_HttpRequest.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <WinAPIFiles.au3>
#include <Array.au3>
#include <IE.au3>
_IEErrorHandlerRegister ()
_IE_CheckCompatible(True)
$user = 'gunny001u'
$password = 'gunny001u'
If $user = '' Or $password = '' Then Exit
Local $sever = 'Gà Hoàng Gia'
_HttpRequest(0, 'http://idgunny.360game.vn/login-game?&sid=none&err=1')
$data = _HttpRequest(1, 'https://sso3.zing.vn/xlogin', _Data2SendEncode('u=' & $user & '&p=' & $password & '&u1=http://idgunny.360game.vn/login-game?&sid=none&err=1&fp=http://idgunny.360game.vn/login-game?&sid=none&err=1&pid=243&apikey=848dfc7c1dfe4da3b8dd3c58f8d34be8'))
$id = StringRegExp($data, 'http://idgunny.360game.vn/server-game?&mess=succ&sid="(.*?)">', 3)
$data = _HTMLDecode(_HttpRequest(2, 'http://idgunny.360game.vn/server-game?&sid=none&err=1&mess=succ&sid=' & $id))
$data = StringTrimLeft(StringLower($data), StringInStr($data, 'title="' & StringLower($sever)))
$data = StringRegExp($data, 'href="(.*?)">', 3)
If @error Then Exit
$data = _HttpRequest(2, $data[0])
$Key = StringRegExp($data, 'key=(.*?)"', 3)
If @error Then Exit
$SeverID = StringRegExp($data, 'src="http:\/\/s(.*?)\.', 3)
If @error Then Exit

Local $oSWF = _IECreateEmbedded();ObjCreate("Shell.Explorer.2")
GUICreate("Gunny Client", 1000, 620)
GUICtrlCreateObj($oSWF, 0, 20, 1000, 600)
Local $sever = GUICtrlCreateLabel(" ↪ Sever ↩", 0,0, 73, 20)
GUICtrlSetFont(-1,13,500,0,"Times New Roman")
GUICtrlSetColor(-1,0x484848)
GUICtrlSetBkColor($sever,0xFFFFFF)
GUICtrlSetCursor(-1,0)

$url = StringFormat("http://s%s.gn.zing.vn/Default.aspx?user=%s&key=%s", $SeverID[0], $user, $Key[0])
ConsoleWrite($url)
MsgBox(262144, 'Debug line ~' & @ScriptLineNumber, 'Selection:' & @CRLF & '$url' & @CRLF & @CRLF & 'Return:' & @CRLF & $url) ;### Debug MSGBOX
_IENavigate($oSWF,$url)
#cs
Local $oSWF = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
If @error Or Not IsObj($oSWF) Then Exit MsgBox(@error, 'Thông báo', 'Vui lòng cài Flash ActiveX')
GUICreate("Gunny Client", 1000, 620)
GUICtrlCreateObj($oSWF, 0, 20, 1000, 600)
Local $sever = GUICtrlCreateLabel(" ↪ Sever ↩", 0,0, 73, 20)
GUICtrlSetFont(-1,13,500,0,"Times New Roman")
GUICtrlSetColor(-1,0x484848)
GUICtrlSetBkColor($sever,0xFFFFFF)
GUICtrlSetCursor(-1,0)


GUISetState()
With $oSWF
    .Movie = StringFormat('http://res%s.gn.zing.vn/flash/Loading.swf?user=%s&key=%s&isGuest=False&ua=&fbapp=false&v=&rand=&config=http://s%s.gn.zing.vn/config.xml&sessionId=%s', $SeverID[0], $user, $Key[0], $SeverID[0], $id)
    .allowScriptAccess = "always"
    .quality2 = 'high'
    .menu = "false"
    .bgcolor = "#000000"
    .wmode = "direct"
EndWith
#ce
GUISetState()
While 1;GUIGetMsg() <> -3
$nMsg = GUIGetMsg()
       Switch $nMsg
           Case $GUI_EVENT_CLOSE
               _IEQuit($oSWF)
                Exit
        EndSwitch
WEnd