土製的 Auto Click ≧▽≦ - 鍵鼠

最近在找能夠 auto click 的軟體
不過好像不是不好用就是要$$
所以用了 AutoHotKey 寫了一個 auto click 的 script
(關於 AutoHotKey，可以至小軟體板本人有介紹這款功能強到匪夷所思的軟體)

只要把底下的程式碼存成純文字檔之後，副檔名改作 .ahk
就可以直接用 AutoHotKey 去執行它了
如果覺得好用，還可以用 AutoHotKey 附的 .ahk to .exe 這個程式
把 script compile 成獨立的程式，也可以自訂圖示，這樣就不會是醜醜的綠色H囉

底下設定的部份 TimeQuantum 是每隔多久偵測一次指標的狀態
預設是 100，單位是千分之一秒(ms)
ClickPause 是指當指標停下來之後隔 ClickPause*TimeQuantum ms 要按一次
DragPause 是當停下來 DragPause*TimeQuantum ms 之後會壓著左鍵不放
直到 ClickPause 的時間觸發，則會放開左鍵，如過在 ClickPause 觸發前移動指標
則可以做出拖曳的動作直到指標停下來才會放開，並且指標右下方會有 "click..."
指示目前是按下左鍵的狀況，只要在它消失以前移動標，就可以成功做出拖曳的動作
這邊注意的是，如果把 DragPause 設成比 ClickPause 大，則這個設定會無效
CrazyClick 設成 true 指標停下來之後每隔 ClickPause*TimeQuantum ms 會再按一次
也就是連打的功能，某些人會很需要吧 ;)
SwitchKey 的字串是啟動或停用 auto click 的按鍵，預設是 ScrollLock
因為我覺得這個鍵應該很少人用，如果要改成其他按鍵如 F4 就只要把字串改成 F4
詳細的按鍵代號請到 http://www.autohotkey.com/docs/KeyList.htm 查詢
大概就是這樣，其他更 advance 的功能，如偵測在哪個元件上不要按
以 AutoHotKey 來說是辦得到的，不過我沒甚麼時間研究這個
如果有人有興趣把它實做出來的話，非常歡迎，大致上就這樣囉

;================================以下是程式碼=================================

TimeQuantum := 100
ClickPause := 6
DragPause := 4
CrazyClick := false
SwitchKey := "ScrollLock"

;=============================================================================
counter := 0
preX := 0
preY := 0
preMove := false
going2click := CrazyClick

AutoClick:
;ListVars
Sleep, TimeQuantum
if(GetKeyState(SwitchKey,"T"))
Goto, AutoClick
MouseGetPos, X, Y
if(X = preX && Y = preY)
Move := false
else Move := true
counter++
if(Move =true && GetKeyState("LButton", "P"))
going2click := false
if(Move < preMove)
going2click := true
preMove := Move

if(going2click = true)
{
if(counter = DragPause)
{
if(!GetKeyState("LButton", "P"))
{
ToolTip,click...
MouseClick,Left,,,,,D,
}
}
if(Mod(counter,ClickPause) = 0)
{
if(GetKeyState("LButton", "P"))
{
ToolTip,released
MouseClick,Left,,,,,U,
ToolTip
} else
{
ToolTip,clicking...
MouseClick,Left
ToolTip
}
going2click := CrazyClick
}
}
if(Move=false)
Goto, AutoClick
preX := X
preY := Y
counter := 0
Goto, AutoClick
;=================================程式碼結束===================================


本篇文章採用 Creative Commons 授權條款
http://creativecommons.org/licenses/by-nc-sa/2.0/tw/

--