Guest User

gunny

a guest
Aug 14th, 2019
236
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.51 KB | None | 0 0
  1. #include <_HttpRequest.au3>
  2. $user='savv02'
  3. $password='Aa3718303120'
  4. if $user='' or $password='' Then Exit
  5. _HttpRequest(0,'http://idgunny.360game.vn/login-game?&sid=none&err=1')
  6. $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')
  7. if _GetCookie($data)='' Then
  8. MsgBox(0,'','Xảy ra lỗi')
  9. Exit
  10. EndIf
  11. $id=StringRegExp(StringRegExp($data,'Location: (.*)',3)[0],'sid=(.*)',3)[0]
  12. _HttpRequest(2,'http://idgunny.360game.vn/login-game?&sid=none&err=1&mess=succ&sid='&$id)
  13. $data=StringLower(_HttpRequest(2,'http://idgunny.360game.vn/server-game?&sid=none&err=1&mess=succ&sid='&$id))
  14. $sever= 'Gà Tí Hon'
  15. If @error or $sever="" Then
  16. MsgBox(0,0,'Sai tên Server')
  17. Exit
  18. EndIf
  19. $sever=StringLower($sever)
  20. $LinkSWF = StringRegExp($data,$sever&'" href="(.*?)">',3)
  21. If @error Then Exit MsgBox(4096, 'Lỗi', 'Đăng nhập thất bại')
  22. $LinkSWF = StringReplace($LinkSWF[0], 'amp;', '')
  23.  
  24.  
  25. Local $oSWF = ObjCreate("ShockwaveFlash.ShockwaveFlash")
  26. If @error Or Not IsObj($oSWF) Then Exit MsgBox(4096, 'Lỗi', 'Vui lòng cài Flash ActiveX')
  27. GUICreate("Web Test", 1000, 600)
  28. GUICtrlCreateObj($oSWF, 0, 0, 1000, 600)
  29. GUISetState()
  30.  
  31. With $oSWF
  32. .Movie = $LinkSWF
  33. .Quality2 = 1
  34. .AllowScriptAccess = "always"
  35. .Bgcolor = "#000000"
  36. .WMode = "window"
  37. .Menu = "False"
  38. EndWith
  39.  
  40. While GUIGetMsg() <> -3
  41. Sleep(30)
  42. WEnd
Advertisement
Add Comment
Please, Sign In to add comment