SHARE
TWEET

Gunny Client (IE Obj)

lyogadi Sep 11th, 2019 171 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #include <_HttpRequest.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6. #include <File.au3>
  7. #include <WinAPIFiles.au3>
  8. #include <Array.au3>
  9. #include <IE.au3>
  10. _IEErrorHandlerRegister ()
  11. _IE_CheckCompatible(True)
  12. $user = 'gunny001u'
  13. $password = 'gunny001u'
  14. If $user = '' Or $password = '' Then Exit
  15. Local $sever = 'Gà Hoàng Gia'
  16. _HttpRequest(0, 'http://idgunny.360game.vn/login-game?&sid=none&err=1')
  17. $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'))
  18. $id = StringRegExp($data, 'http://idgunny.360game.vn/server-game?&mess=succ&sid="(.*?)">', 3)
  19. $data = _HTMLDecode(_HttpRequest(2, 'http://idgunny.360game.vn/server-game?&sid=none&err=1&mess=succ&sid=' & $id))
  20. $data = StringTrimLeft(StringLower($data), StringInStr($data, 'title="' & StringLower($sever)))
  21. $data = StringRegExp($data, 'href="(.*?)">', 3)
  22. If @error Then Exit
  23. $data = _HttpRequest(2, $data[0])
  24. $Key = StringRegExp($data, 'key=(.*?)"', 3)
  25. If @error Then Exit
  26. $SeverID = StringRegExp($data, 'src="http:\/\/s(.*?)\.', 3)
  27. If @error Then Exit
  28.  
  29. Local $oSWF = _IECreateEmbedded();ObjCreate("Shell.Explorer.2")
  30. GUICreate("Gunny Client", 1000, 620)
  31. GUICtrlCreateObj($oSWF, 0, 20, 1000, 600)
  32. Local $sever = GUICtrlCreateLabel(" ↪ Sever ↩", 0,0, 73, 20)
  33. GUICtrlSetFont(-1,13,500,0,"Times New Roman")
  34. GUICtrlSetColor(-1,0x484848)
  35. GUICtrlSetBkColor($sever,0xFFFFFF)
  36. GUICtrlSetCursor(-1,0)
  37.  
  38. $url = StringFormat("http://s%s.gn.zing.vn/Default.aspx?user=%s&key=%s", $SeverID[0], $user, $Key[0])
  39. ConsoleWrite($url)
  40. MsgBox(262144, 'Debug line ~' & @ScriptLineNumber, 'Selection:' & @CRLF & '$url' & @CRLF & @CRLF & 'Return:' & @CRLF & $url) ;### Debug MSGBOX
  41. _IENavigate($oSWF,$url)
  42. #cs
  43. Local $oSWF = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
  44. If @error Or Not IsObj($oSWF) Then Exit MsgBox(@error, 'Thông báo', 'Vui lòng cài Flash ActiveX')
  45. GUICreate("Gunny Client", 1000, 620)
  46. GUICtrlCreateObj($oSWF, 0, 20, 1000, 600)
  47. Local $sever = GUICtrlCreateLabel(" ↪ Sever ↩", 0,0, 73, 20)
  48. GUICtrlSetFont(-1,13,500,0,"Times New Roman")
  49. GUICtrlSetColor(-1,0x484848)
  50. GUICtrlSetBkColor($sever,0xFFFFFF)
  51. GUICtrlSetCursor(-1,0)
  52.  
  53.  
  54. GUISetState()
  55. With $oSWF
  56.     .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)
  57.     .allowScriptAccess = "always"
  58.     .quality2 = 'high'
  59.     .menu = "false"
  60.     .bgcolor = "#000000"
  61.     .wmode = "direct"
  62. EndWith
  63. #ce
  64. GUISetState()
  65. While 1;GUIGetMsg() <> -3
  66. $nMsg = GUIGetMsg()
  67.        Switch $nMsg
  68.            Case $GUI_EVENT_CLOSE
  69.                _IEQuit($oSWF)
  70.                 Exit
  71.         EndSwitch
  72. WEnd
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top