Code: Select all
; script macro universal
; Jones
#NoEnv
SetWorkingDir %A_ScriptDir%
CoordMode, Mouse, Window
SendMode Input
#SingleInstance Force
SetTitleMatchMode 2
#WinActivateForce
SetControlDelay 1
SetWinDelay 0
SetKeyDelay -1
SetMouseDelay -1
SetBatchLines -1
Gui Color, 0x000000
Gui Font, c0xB4BD02
Gui, Add, Text, x20 y75 w75 h20 +0x200 +center, Pause F12
Gui, Add, Text, x20 y45 w75 h20 +0x200 +center, Start F10
Gui Add, Text, x20 y16 w95 h23 +0x200 +center, Simple Bomb Script:
Gui Show, w150 h140,V.01
; UserGlobalVars
F10::
Macro1:
Loop
{
WinSet, AlwaysOnTop, Toggle, Current Window_Dx_Window_Class
Send, {LControl Down}
Send, {b}
Sleep, 1000
Click, 878, 568 Left, 1
Sleep, 1000
Click, 1137, 824 Left, 1
Sleep, 1000
Click, 958, 802 Left, 1
Sleep, 1000
Click, 856, 569 Left, 1
Sleep, 1000
}
Return
F8::ExitApp
F12::
Pause
Suspend
return
como faço isso?
aqui o codigo que ele postou
Code: Select all
BackgroundClick(x, y, messageDelay, PID) {
lParam := x | (y << 16)
SendMessage, 0x006, 00000002, 00000000, , ahk_pid %PID% ;ACTIVE
PostMessage, 0x200, 00000001, %lParam%, , ahk_pid %PID% ;MOUSEMOVE
PostMessage, 0x201, 0x00120BD6, 0x01D80041, , ahk_pid %PID% ;LBUTTONDOWN
Sleep, %messageDelay%
PostMessage, 0x202, 0x00120BD6, 0x01D80041, , ahk_pid %PID% ;LBUTTONUP
return
}
BackgroundClickDrag(startX, startY, endX, endY, messageDelay, PID) {
;MessageDelay is used twice because we are using 3 messages that use the mouse
lParam := startX | (startY << 16)
SendMessage, 0x006, 00000002, 00000000, , ahk_pid %PID% ;ACTIVE
PostMessage, 0x200, 00000001, %lParam%, , ahk_pid %PID% ;MOUSEMOVE
PostMessage, 0x201, 00000001, %lParam%, , ahk_pid %PID% ;LBUTTONDOWN
Sleep, %messageDelay%
lParam := endX | (endY << 16)
PostMessage, 0x200, 0x0001, %lParam%, , ahk_pid %PID% ;MOUSEMOVE
Sleep, %messageDelay%
PostMessage, 0x202, 00000000, 02020001, , ahk_pid %PID% ;LBUTTONUP
return
}