鼠标自动点击器

ashfinal · 发表于 2011-2-8 03:22:31

以前在家没事时写过一个功能比这个全不过忘在家里的电脑了

63ab756 · 发表于 2011-2-8 23:59:56

不错不错，不知道魔兽可以用吗

bsdos · 发表于 2011-2-9 10:10:46

本帖最后由 bsdos 于 2011-2-9 10:15 编辑

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("!d", "MouseC")

While 1
Sleep(500)
WEnd
//上面的while只有在暂停前有用，当按alt+d后，永远不会到上面那段了，建议把上面那段改成 TogglePause()

Func TogglePause()
$Paused = NOT $Paused
While $Paused
      sleep(100)
      ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc

Func Terminate()
Exit 0
EndFunc

Func MouseC()
while 1
MouseClick("left")
sleep(200)  //点击的间隔最好设置成变量，可以让用户自己调整点击的间隔时间
ContinueLoop  //这句话是多余的
WEnd
EndFunc

shinco1 · 发表于 2012-3-18 16:09:50

这个事干啥的。。。

		自动登录	找回密码
密码			加入