소스 복사/붙여넣기 후 마우스 우클릭에서 관리자 권한 실행-> 원하는 핫키 지정 후 적용버튼 클릭
(키지정 입력란이 비활성화 되면 적용된 것임) 닫기 누르면 그냥 종료 됨
;==================소스=================
SendMode Input
SetWorkingDir %A_ScriptDir%
configFile = Path_Of_Exile_Potion.config
if FileExist(configFile) {
file := FileOpen(configFile, "r")
fileContents := file.Read()
fileContentsSplitted := StrSplit(fileContents, "`n")
userHotkey := fileContentsSplitted[1]
userMacro := fileContentsSplitted[2]
file.Close()
} else {
userHotkey := 1
userMacro := 12345
}
Gui, Add, Text,, 핫키 :
Gui, Add, Hotkey, vhot1, %userHotkey%
Gui, Add, Text,, 입력 매크로 :
Gui, Add, Edit, vedit1 w135, %userMacro%
Gui, Add, Button, gbtn, 적용
Gui, Submit, Nohide
Gui, -MaximizeBox -MinimizeBox
Gui, show, W175
enable := false
Return
btn:
Gui, Submit, Nohide
if enable {
enable := false
Hotkey, $%hot1%, hotkey1, off
GuiControl, Enabled, hot1
GuiControl, Enabled, edit1
GuiControl,, btn, 적용
}
else {
enable := true
Hotkey, $%hot1%, hotkey1, on
GuiControl, Disabled, hot1
GuiControl, Disabled, edit1
GuiControl,, btn, 해제
}
Gui, Submit, Nohide
Return
hotkey1:
SendWithRandDelay(edit1)
return
SendWithRandDelay(str) {
strSplitted := StrSplit(str)
For i, c in strSplitted {
Random, rand, 5, 15
SendInput %c%
Sleep rand
}
}
GuiClose:
Gui, Submit, Nohide
userHotkey := hot1
userMacro := edit1
file := FileOpen(configFile, "w")
file.WriteLine(userHotkey)
file.Write(userMacro)
file.Close()
ExitApp
'겜_ㅋㅋ' 카테고리의 다른 글
대항해시대 온라인 네비 Ver.13.26 (0) | 2015.09.19 |
---|---|
와우 대격변용 자동낚시 (0) | 2014.03.15 |
와우 프리서버 카인대격변 (0) | 2014.02.22 |