Advertisement
Guest User

Untitled

a guest
Apr 21st, 2018
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.74 KB | None | 0 0
  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <WindowsConstants.au3>
  5. #include <MsgBoxConstants.au3>
  6. Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
  7. ;nox acc chính
  8. WinSetTitle("NoxPlayer1(Copied fromNoxPlayer)","","noxclone")
  9. Global $noxchinh = "NoxPlayer" , $noxclone1 = "noxclone"
  10. Global $hWnd = WinWait($noxchinh) , $hWnd1 = WinWait($noxclone1)
  11. Global $g_bPaused = False
  12. HotKeySet("{f3}","pause")
  13.  
  14. #Region ### START Koda GUI section ### Form=c:\users\administrator\desktop\form auto tsubasa.kxf
  15. Global $Form1_1 = GUICreate("Auto Tsubasa ( fb : https://www.facebook.com/hoangakavn ) ", 655, 422, 524, 524)
  16. GUISetFont(14, 800, 0, "Times New Roman")
  17. GUISetBkColor(0x000000)
  18. GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton")
  19.  
  20. Local $btn_autopanel = GUICtrlCreateButton("Auto Panel Club ( 1 acc )", 360, 304, 291, 33)
  21. GUICtrlSetFont(-1, 18, 800, 0, "Times New Roman")
  22. GUICtrlSetOnEvent($btn_autopanel, "autopanel")
  23.  
  24. Local $btn_pause = GUICtrlCreateButton("Stop Auto", 360, 384, 131, 33)
  25. GUICtrlSetFont(-1, 18, 800, 0, "Times New Roman")
  26. GUICtrlSetOnEvent($btn_pause, "pause")
  27.  
  28. Local $btn_thoat = GUICtrlCreateButton("Exit Auto", 504, 384, 147, 33)
  29. GUICtrlSetFont(-1, 18, 800, 0, "Times New Roman")
  30. GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton")
  31.  
  32. GUISwitch($Form1_1)
  33. GUISetState(@SW_SHOW)
  34. #EndRegion ### END Koda GUI section ###
  35. While 1
  36. Sleep(100) ; Sleep to reduce CPU usage
  37. WEnd
  38. Func CLOSEButton()
  39. ; Note: at this point @GUI_CtrlId would equal $GUI_EVENT_CLOSE,
  40. ; @GUI_WinHandle will be either $hMainGUI or $hDummyGUI
  41. If @GUI_WinHandle = $Form1_1 Then
  42. MsgBox($MB_OK, "GUI Event", "You selected CLOSE in the main window! Exiting...")
  43. Exit
  44. EndIf
  45. EndFunc ;==>CLOSEButton
  46.  
  47. Func autopanel()
  48. For $i=1 to 1000
  49. While 1
  50. ControlClick($hWnd,"","","left",2,287,272+30)
  51. Sleep(500)
  52. $color = PixelGetColor(246,51)
  53. $color1 = PixelGetColor(447,52)
  54. if $color = 0x3377EF or $color1 = 0x3377EF Then
  55. ControlClick($hWnd,"","","left",2,343,259+30)
  56. Sleep(100)
  57. ExitLoop
  58. EndIf
  59. WEnd
  60. While 1
  61. ControlClick($hWnd,"","","left",2,349,128+30)
  62. Sleep(500)
  63. $color = PixelGetColor(388,299)
  64. $color1 = PixelGetColor(315,285)
  65. if $color = 0x81CA40 or $color1 = 0xA1F055 Then
  66. ControlClick($hWnd,"","","left",2,343,259+30)
  67. Sleep(100)
  68. ExitLoop
  69. EndIf
  70. WEnd
  71. Sleep(1000)
  72. ;neu full thi ban Do
  73. $color30 = PixelGetColor(465,286)
  74. $color31 = PixelGetColor(301,287)
  75. if $color30 = 0x9FEF53 or $color31 = 0x9EEE52 Then
  76. ControlClick($hWnd,"","","left",2,461,256+30)
  77. Sleep(100)
  78. While 1
  79. $color = PixelGetColor(212,398)
  80. if $color = 0xFED33A Then
  81. ControlClick($hWnd,"","","left",2,210,368+30)
  82. Sleep(100)
  83. ExitLoop
  84. EndIf
  85. WEnd
  86. Sleep(500)
  87. ControlClick($hWnd,"","","left",2,613,366+30)
  88. Sleep(500)
  89. ControlClick($hWnd,"","","left",2,417,341+30)
  90. Sleep(1500)
  91. ;click ok
  92. While 1
  93. $color = PixelGetColor(325,306)
  94. $color1 = PixelGetColor(402,317)
  95. if $color = 0x9DED51 or $color1 = 0x81CA40 Then
  96. ControlClick($hWnd,"","","left",2,347,275+30)
  97. Sleep(100)
  98. ExitLoop
  99. EndIf
  100. WEnd
  101. Sleep(500)
  102. ControlClick($hWnd,"","","left",2,44,372+30)
  103.  
  104. While 1
  105. $color = PixelGetColor(252,317)
  106. $color1 = PixelGetColor(334,314)
  107. if $color = 0x18532B or $color1 = 0x18532B Then
  108. ControlClick($hWnd,"","","left",2,291,272+30)
  109. Sleep(100)
  110. ExitLoop
  111. EndIf
  112. WEnd
  113. Else
  114. ControlClick($hWnd,"","","left",2,346,349+30)
  115. Sleep(100)
  116. EndIf
  117. Next
  118. Sleep(50)
  119. EndFunc
  120.  
  121. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  122.  
  123. Func pause()
  124. $g_bPaused = Not $g_bPaused
  125. While $g_bPaused
  126. ToolTip('Script is Paused"', 500, 500)
  127. Sleep(1000)
  128. WEnd
  129. ToolTip('Script is not Paused"', 500, 500)
  130.  
  131. EndFunc ;==>pause
  132.  
  133. ;thoat
  134. Func thoat()
  135. Exit
  136. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement