Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ^S::
- loop {
- ToolTip, Go To choose Character Screen (Loop %A_index%), 0, 0
- Sleep, 750
- Send {p} ; menu
- Sleep, 750
- send {right}
- sleep ,750
- send {right}
- sleep ,750
- send {right}
- sleep ,750
- send {right}
- sleep ,750
- send {right}
- sleep ,750
- send {enter}
- sleep ,7501
- sleep ,750
- send {down}
- sleep ,750
- send {down}
- sleep ,750
- send {down}
- sleep ,750
- send {down}
- sleep,750
- send {enter}
- sleep, 750
- send {enter}
- ToolTip, Wating For Swap Character Screen Confirmation (Loop %A_index%), 0, 0
- Loop {
- Sleep, 500
- PixelGetColor, color, 785,586
- Sleep, 500
- } Until (color="0xF4F4F4") ; character select screen confirmation
- ToolTip, Step 3/12 - Switching To First Character And Disconnecting , 0, 0
- Sleep, 500
- Send {Left} ; 1st char
- Sleep, 1000
- Send {Enter}
- Sleep, 5000
- ;-------------------------------Edit The Directory Here-------------------------------
- cmdline := "netsh advfirewall firewall add rule name=""BATCH GTA 5 BLOCK"" dir=out action=block program=""E:\gta v\GTAV\GTA5.exe"""
- runwait, %cmdline%,, Hide
- ;-------------------------------------------------------------------------------------
- Sleep, 5000
- Send {Enter}
- Sleep, 50
- cmdline := "netsh advfirewall firewall delete rule name=""BATCH GTA 5 BLOCK"""
- runwait, %cmdline%,, Hide
- Sleep, 7000
- Send {Enter}
- Sleep, 7000
- Send {Enter}
- ToolTip, Suspending And Wating For Second Character To Load (Loop %A_index%), 0, 0
- ;-----Suspend
- Sleep 45000
- Process_Suspend("GTA5.exe")
- Sleep, 15000
- Process_Resume("GTA5.exe")
- ;-----------xxxxxxxxxxxx----------------
- ;----Suspend Function
- Process_Suspend(PID_or_Name){
- PID := (InStr(PID_or_Name,".")) ? ProcExist(PID_or_Name) : PID_or_Name
- h:=DllCall("OpenProcess", "uInt", 0x1F0FFF, "Int", 0, "Int", pid)
- If !h
- Return -1
- DllCall("ntdll.dll\NtSuspendProcess", "Int", h)
- DllCall("CloseHandle", "Int", h)
- }
- ;----Resume Function
- Process_Resume(PID_or_Name){
- PID := (InStr(PID_or_Name,".")) ? ProcExist(PID_or_Name) : PID_or_Name
- h:=DllCall("OpenProcess", "uInt", 0x1F0FFF, "Int", 0, "Int", pid)
- If !h
- Return -1
- DllCall("ntdll.dll\NtResumeProcess", "Int", h)
- DllCall("CloseHandle", "Int", h)
- }
- ProcExist(PID_or_Name=""){
- Process, Exist, % (PID_or_Name="") ? DllCall("GetCurrentProcessID") : PID_or_Name
- Return Errorlevel
- }
- ;------
- Loop {
- Sleep, 5000
- Send {Up}
- PixelGetColor, color, 653, 318
- } Until (color="0x000000")
- ;------------------xxxxxxxxxxxxxx------------------
- ToolTip, Selling Apts (Loop %A_index%), 0, 0
- Sleep, 700
- Send {Down}
- Sleep, 700
- Send {Down}
- Sleep, 700
- Send {Enter}
- Sleep, 2000
- MouseClick, left, 604, 437,2, 10 ; Dynasty8
- Sleep, 1500
- MouseClick, left, 229, 320,2, 10 ; View Property
- Sleep, 1500
- MouseClick, left, 183, 186,2, 10 ; low to high
- Sleep, 1500
- MouseClick, left, 213, 312,2, 10
- Sleep, 1500
- MouseClick, left, 620, 435,2, 10
- Sleep, 800
- Send {Enter}
- Sleep, 800
- Send {Enter}
- Sleep, 5000
- sleep, 2000
- MouseClick, left, 381, 476, 2, 10 ; back to map
- Sleep, 1500
- MouseClick, left, 233, 183, 2, 10 ; high to low
- Sleep, 1500
- MouseClick, left, 183, 186, 2, 10 ; low to high
- Sleep, 1500
- MouseClick, left, 213, 312, 2, 10
- Sleep, 1500
- MouseClick, left, 620, 435, 2, 10
- Sleep, 1500
- send {down}
- Sleep, 800
- Send {Enter}
- Sleep, 800
- Send {Enter}
- Sleep, 5000
- sleep, 2000
- MouseClick, left, 381, 476, 2, 10 ; back to map
- Sleep, 1500
- MouseClick, left, 233, 183, 2, 10 ; high to low
- Sleep, 1500
- MouseClick, left, 183, 186, 2, 10 ; low to high
- Sleep, 1500
- MouseClick, left, 213, 312, 2, 10
- Sleep, 1500
- MouseClick, left, 620, 435, 2, 10
- Sleep, 1500
- send {down}
- Sleep, 800
- send {down}
- Sleep, 800
- Send {Enter}
- Sleep, 800
- Send {Enter}
- Sleep, 5000
- sleep, 2000
- MouseClick, left, 381, 476, 2, 10 ; back to map
- Sleep, 1500
- MouseClick, left, 233, 183, 2, 10 ; high to low
- Sleep, 1500
- MouseClick, left, 183, 186, 2, 10 ; low to high
- Sleep, 1500
- MouseClick, left, 213, 312, 2, 10
- Sleep, 1500
- MouseClick, left, 620, 435, 2, 10
- Sleep, 1500
- send {down}
- Sleep, 800
- send {down}
- Sleep, 800
- send {down}
- Sleep, 800
- Send {Enter}
- Sleep, 800
- Send {Enter}
- Sleep, 5000
- sleep, 2000
- MouseClick, left, 381, 476, 2, 10 ; back to map
- Sleep, 1500
- MouseClick, left, 233, 183, 2, 10 ; high to low
- Sleep, 1500
- MouseClick, left, 183, 186, 2, 10 ; low to high
- Sleep, 1500
- MouseClick, left, 213, 312, 2, 10
- Sleep, 1500
- MouseClick, left, 620, 435, 2, 10
- Sleep, 1500
- send {down}
- Sleep, 800
- send {down}
- Sleep, 800
- send {down}
- Sleep, 800
- send {down}
- Sleep, 800
- Send {Enter}
- Sleep, 800
- Send {Enter}
- Sleep, 5000
- sleep, 2000
- MouseClick, left, 381, 476, 2, 10 ; back to map
- Sleep, 1500
- MouseClick, left, 233, 183, 2, 10 ; high to low
- Sleep, 1500
- MouseClick, left, 183, 186, 2, 10 ; low to high
- Sleep, 1500
- MouseClick, left, 213, 312, 2, 10
- Sleep, 1500
- MouseClick, left, 620, 435, 2, 10
- Sleep, 1500
- send {down}
- Sleep, 800
- send {down}
- Sleep, 800
- send {down}
- Sleep, 800
- send {down}
- Sleep, 800
- send {down}
- Sleep, 800
- Send {Enter}
- Sleep, 800
- Send {Enter}
- Sleep, 5000
- MouseClick, left, 654, 52, 5, 25 ; exit browser
- ToolTip, loading single player (Loop %A_index%), 0, 0
- sleep,800
- send {p}
- sleep,800
- send {right}
- sleep,800
- send {enter}
- sleep,800
- send {up}
- sleep,800
- send {up}
- sleep,800
- send {enter}
- sleep, 800
- send {enter}
- ToolTip, Waiting To Load (Loop %A_index%), 0, 0
- Loop {
- Sleep, 5000
- Send {Up}
- Sleep, 500
- PixelGetColor, color, 653, 318
- } Until (color="0x000000") ; Load Confirmation
- Sleep, 1500
- If (A_Index >= 100) ;
- Return
- }
- ^Esc::ExitApp
Add Comment
Please, Sign In to add comment