Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <WindowsConstants.au3>
- #include <MsgBoxConstants.au3>
- Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
- ;nox acc chính
- WinSetTitle("NoxPlayer1(Copied fromNoxPlayer)","","noxclone")
- Global $noxchinh = "NoxPlayer" , $noxclone1 = "noxclone"
- Global $hWnd = WinWait($noxchinh) , $hWnd1 = WinWait($noxclone1)
- Global $g_bPaused = False
- HotKeySet("{f3}","pause")
- #Region ### START Koda GUI section ### Form=c:\users\administrator\desktop\form auto tsubasa.kxf
- Global $Form1_1 = GUICreate("Auto Tsubasa ( fb : https://www.facebook.com/hoangakavn ) ", 655, 422, 524, 524)
- GUISetFont(14, 800, 0, "Times New Roman")
- GUISetBkColor(0x000000)
- GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton")
- Local $btn_autopanel = GUICtrlCreateButton("Auto Panel Club ( 1 acc )", 360, 304, 291, 33)
- GUICtrlSetFont(-1, 18, 800, 0, "Times New Roman")
- GUICtrlSetOnEvent($btn_autopanel, "autopanel")
- Local $btn_pause = GUICtrlCreateButton("Stop Auto", 360, 384, 131, 33)
- GUICtrlSetFont(-1, 18, 800, 0, "Times New Roman")
- GUICtrlSetOnEvent($btn_pause, "pause")
- Local $btn_thoat = GUICtrlCreateButton("Exit Auto", 504, 384, 147, 33)
- GUICtrlSetFont(-1, 18, 800, 0, "Times New Roman")
- GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton")
- GUISwitch($Form1_1)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- Sleep(100) ; Sleep to reduce CPU usage
- WEnd
- Func CLOSEButton()
- ; Note: at this point @GUI_CtrlId would equal $GUI_EVENT_CLOSE,
- ; @GUI_WinHandle will be either $hMainGUI or $hDummyGUI
- If @GUI_WinHandle = $Form1_1 Then
- MsgBox($MB_OK, "GUI Event", "You selected CLOSE in the main window! Exiting...")
- Exit
- EndIf
- EndFunc ;==>CLOSEButton
- Func autopanel()
- For $i=1 to 1000
- While 1
- ControlClick($hWnd,"","","left",2,287,272+30)
- Sleep(500)
- $color = PixelGetColor(246,51)
- $color1 = PixelGetColor(447,52)
- if $color = 0x3377EF or $color1 = 0x3377EF Then
- ControlClick($hWnd,"","","left",2,343,259+30)
- Sleep(100)
- ExitLoop
- EndIf
- WEnd
- While 1
- ControlClick($hWnd,"","","left",2,349,128+30)
- Sleep(500)
- $color = PixelGetColor(388,299)
- $color1 = PixelGetColor(315,285)
- if $color = 0x81CA40 or $color1 = 0xA1F055 Then
- ControlClick($hWnd,"","","left",2,343,259+30)
- Sleep(100)
- ExitLoop
- EndIf
- WEnd
- Sleep(1000)
- ;neu full thi ban Do
- $color30 = PixelGetColor(465,286)
- $color31 = PixelGetColor(301,287)
- if $color30 = 0x9FEF53 or $color31 = 0x9EEE52 Then
- ControlClick($hWnd,"","","left",2,461,256+30)
- Sleep(100)
- While 1
- $color = PixelGetColor(212,398)
- if $color = 0xFED33A Then
- ControlClick($hWnd,"","","left",2,210,368+30)
- Sleep(100)
- ExitLoop
- EndIf
- WEnd
- Sleep(500)
- ControlClick($hWnd,"","","left",2,613,366+30)
- Sleep(500)
- ControlClick($hWnd,"","","left",2,417,341+30)
- Sleep(1500)
- ;click ok
- While 1
- $color = PixelGetColor(325,306)
- $color1 = PixelGetColor(402,317)
- if $color = 0x9DED51 or $color1 = 0x81CA40 Then
- ControlClick($hWnd,"","","left",2,347,275+30)
- Sleep(100)
- ExitLoop
- EndIf
- WEnd
- Sleep(500)
- ControlClick($hWnd,"","","left",2,44,372+30)
- While 1
- $color = PixelGetColor(252,317)
- $color1 = PixelGetColor(334,314)
- if $color = 0x18532B or $color1 = 0x18532B Then
- ControlClick($hWnd,"","","left",2,291,272+30)
- Sleep(100)
- ExitLoop
- EndIf
- WEnd
- Else
- ControlClick($hWnd,"","","left",2,346,349+30)
- Sleep(100)
- EndIf
- Next
- Sleep(50)
- EndFunc
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- Func pause()
- $g_bPaused = Not $g_bPaused
- While $g_bPaused
- ToolTip('Script is Paused"', 500, 500)
- Sleep(1000)
- WEnd
- ToolTip('Script is not Paused"', 500, 500)
- EndFunc ;==>pause
- ;thoat
- Func thoat()
- Exit
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement