Script
#NoEnv
#NoTrayIcon
#SingleInstance force
SetKeyDelay, -1
SetWinDelay,-1
SetBatchLines,-1
SetControlDelay,-1
FileMoveDir, CImage, C:\CImage, 2
Gui,2: +LastFound +AlwaysOnTop -Caption +ToolWindow
Gui,2: Color, E0FFFF
Gui,2: Add, Picture, x80 y40 ,C:\CImage\chelper.png
Gui,2: Add, Button, x280 y150 w110 h25 gB1, 설명서
Gui,2: Add, Button, x280 y180 w110 h25 gB2, Macro 만들기
Gui,2: Add, Text, x15 y160 w180 vT2,
Gui,2: Add, Text, x15 y181 vT1 ," [ " 눌러서 Window를 적용시켜주세요
Gui,2: Show, x500 y200 w400 h215, C Helper
Gui,1: Color, E0FFFF
Gui,1: Add, ListView, x1 y40 w200 h210 r30 +Grid, x좌표|y좌표|key값
Gui,1: Add, Picture, x10 y7, C:\CImage\chelper2.png
Gui,1: Add, Text, x212 y30 cRed, " [ " Key : Window 적용
Gui,1: Add, Text, x212 y52 cRed, " ] " Key : 좌표 따기
Gui,1: Add, Text, x212 y92, Delay 값
Gui,1: Add, Text, x212 y120, Key 값
Gui,1: Add, Text, x212 y152, 좌표 값
Gui,1: Add, Edit, x273 y149 w35 h22 vE1,
Gui,1: Add, Edit, x313 y149 w35 h22 vE2,
Gui,1: Add, Edit, x285 y117 w60 h22 vE3,
Gui,1: Add, Edit, x285 y85 w60 h22 vE4,
Gui,1: Add, Button, x207 y185 w70 h30 gB3, List 입력
Gui,1: Add, Button, x280 y185 w85 h30 gB4, List 지우기
Gui,1: Add, Button, x207 y222 w157 h28 gB5, 적용
OnMessage(0x201, "WM_LBUTTONDOWN")
WM_LBUTTONDOWN()
{
PostMessage, 0xA1, 2,,, A
}
WinSet, Transparent, 210 , C Helper
WinSet, Region, R20-20 w400 h215 0-0
Pause
return
[::
WinGetActiveTitle, WindowTitleN
Guicontrol,2:, T1, %WindowTitleN%
GUicontrol,2:, T2, 시작/일시정지 Key : ~
return
]::
coordmode, mouse, relative
mousegetpos, x1, y1
guicontrol, , E1, %x1%
guicontrol, , E2, %y1%
return
B1:
run, http://haha92.tistory.com/10
return
B2:
Gui,1: +LastFound +AlwaysOnTop -Caption +ToolWindow
Gui,1: Show, h260 w370, option
WinSet, Transparent, 220 , option
WinSet, Region, R20-20 W370 H260 0-0
Gui,Submit,nohide
return
B3:
Gui, Submit, Nohide
xData = %E1%
yData = %E2%
kData = %E3%
LV_Add("", xData, yData, kData)
Guicontrol,1:, E1,
Guicontrol,1:, E2,
Guicontrol,1:, E3,
return
B4:
LV_Delete()
return
B5:
Gui,Submit,hide
Settimer, a, on
return
a:
Gui, Submit, Nohide
list := LV_GetCount()
i = 1
Loop, %list% {
LV_GetText(xd, i, 1)
LV_GetText(yd, i, 2)
LV_GetText(kd, i, 3)
gosub, b
i++
}
Sleep, %E4%
return
b:
vx := xd
vy := yd-30
c:= (vy*65536)+vx
PostMessage, 0x200, 0, %c%, , %WindowTitleN%
PostMessage, 0x201, 1, %c%, , %WindowTitleN%
PostMessage, 0x202, 0, %c%, , %WindowTitleN%
ControlSend,, {%kd%}, %WindowTitleN%
Sleep, 100
return
GuiClose:
ExitApp
return
2GuiContextMenu:
ExitApp
`::Pause