SHARE
TWEET

test

a guest Sep 11th, 2019 157 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. ;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)
  30. Local $oSWF = ObjCreate("Shell.Explorer.2")
  31. GUICreate("Gunny Client", 1000, 620)
  32. GUICtrlCreateObj($oSWF, 0, 20, 1000, 600)
  33. Local $sever = GUICtrlCreateLabel(" ↪ Sever ↩", 0,0, 73, 20)
  34. GUICtrlSetFont(-1,13,500,0,"Times New Roman")
  35. GUICtrlSetColor(-1,0x484848)
  36. GUICtrlSetBkColor($sever,0xFFFFFF)
  37. GUICtrlSetCursor(-1,0)
  38. $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)
  39. _IENavigate($oSWF,$Movie)
  40. #cs
  41. Local $oSWF = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
  42. If @error Or Not IsObj($oSWF) Then Exit MsgBox(@error, 'Thông báo', 'Vui lòng cài Flash ActiveX')
  43. GUICreate("Gunny Client", 1000, 620)
  44. GUICtrlCreateObj($oSWF, 0, 20, 1000, 600)
  45. Local $sever = GUICtrlCreateLabel(" ↪ Sever ↩", 0,0, 73, 20)
  46. GUICtrlSetFont(-1,13,500,0,"Times New Roman")
  47. GUICtrlSetColor(-1,0x484848)
  48. GUICtrlSetBkColor($sever,0xFFFFFF)
  49. GUICtrlSetCursor(-1,0)
  50.  
  51.  
  52. GUISetState()
  53. With $oSWF
  54.     .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)
  55.     .allowScriptAccess = "always"
  56.     .quality2 = 'high'
  57.     .menu = "false"
  58.     .bgcolor = "#000000"
  59.     .wmode = "direct"
  60. EndWith
  61. #ce
  62. GUISetState()
  63. While 1;GUIGetMsg() <> -3
  64. $nMsg = GUIGetMsg()
  65.        Switch $nMsg
  66.         Case $GUI_EVENT_CLOSE
  67.                 Exit
  68.         EndSwitch
  69. 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