Gunny Client

#include <_HttpRequest.au3>
$user = 'gunny001u'
$password = 'gunny001u'

If $user = '' Or $password = '' Then Exit
$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 = _GetLocationRedirect()

$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($server)))
$data = StringRegExp($data, 'href="(.*?)">', 3)
If @error Then Exit MsgBox(4096, 'Lỗi', 'Đăng nhập thất bại')
ConsoleWrite($data[0])

$data = _HttpRequest(2, $data[0])

$Key = StringRegExp($data, 'key=(.*?)"', 3)
If @error Then Exit MsgBox(4096, 'Lỗi', 'Đăng nhập thất bại')

$SeverID = StringRegExp($data, 'src="http:\/\/s(.*?)\.', 3)
If @error Then Exit MsgBox(4096, 'Lỗi', 'Đăng nhập thất bại')

Local $oSWF = ObjCreate("ShockwaveFlash.ShockwaveFlash")
If @error Or Not IsObj($oSWF) Then Exit MsgBox(4096, 'Lỗi', 'Vui lòng cài Flash ActiveX')
GUICreate("Gunny Client", 1000, 600)
GUICtrlCreateObj($oSWF, 0, 0, 1000, 600)
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 = 1
    .menu = "false"
    .bgcolor = "#000000"
    .wmode = "direct"
EndWith

While GUIGetMsg() <> -3
    Sleep(10)
WEnd