作者Azelight (それはいのち)
看板Key_Mou_Pad
标题[软体] 土制的 Auto Click ≧▽≦
时间Mon Feb 13 20:52:42 2006
最近在找能够 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/
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.132.141.4
1F：→ Azelight:提一下，不想要自动拖曳建议把 Drag 设成跟 click 一样 02/13 22:34
2F：→ Azelight:不然会发生什麽事，连我自己都不知道，尤其再加上连打 02/13 22:36
3F：推 doser:autoclick有按键精灵可使用@_@...(小心来源) 02/14 10:14