Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <_HttpRequest.au3>
- $user='savv02'
- $password='Aa3718303120'
- if $user='' or $password='' Then Exit
- _HttpRequest(0,'http://idgunny.360game.vn/login-game?&sid=none&err=1')
- $data=_HttpRequest(1,'https://sso3.zing.vn/xlogin','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')
- if _GetCookie($data)='' Then
- MsgBox(0,'','Xảy ra lỗi')
- Exit
- EndIf
- $id=StringRegExp(StringRegExp($data,'Location: (.*)',3)[0],'sid=(.*)',3)[0]
- _HttpRequest(2,'http://idgunny.360game.vn/login-game?&sid=none&err=1&mess=succ&sid='&$id)
- $data=StringLower(_HttpRequest(2,'http://idgunny.360game.vn/server-game?&sid=none&err=1&mess=succ&sid='&$id))
- $sever= 'Gà Tí Hon'
- If @error or $sever="" Then
- MsgBox(0,0,'Sai tên Server')
- Exit
- EndIf
- $sever=StringLower($sever)
- $LinkSWF = StringRegExp($data,$sever&'" href="(.*?)">',3)
- If @error Then Exit MsgBox(4096, 'Lỗi', 'Đăng nhập thất bại')
- $LinkSWF = StringReplace($LinkSWF[0], 'amp;', '')
- 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("Web Test", 1000, 600)
- GUICtrlCreateObj($oSWF, 0, 0, 1000, 600)
- GUISetState()
- With $oSWF
- .Movie = $LinkSWF
- .Quality2 = 1
- .AllowScriptAccess = "always"
- .Bgcolor = "#000000"
- .WMode = "window"
- .Menu = "False"
- EndWith
- While GUIGetMsg() <> -3
- Sleep(30)
- WEnd
Advertisement
Add Comment
Please, Sign In to add comment