Question

鼠标左键连击工具 我想学是怎么写出来的 会的麻烦教教我啊 我很有兴趣但不知道从哪里学

对语言什么什么的都不懂哈 只是初学者哈 但是我很有兴趣 希望哪位大侠有耐心教教啊！ 先谢了

Answer 1

　　AutoIt做的鼠标左键连击工具
　　1 $z = 0 ;//=0一直循环=1停止循环，这算是个全局变量.
　　2 HotKeySet("!1", "clickit") ;//Alt+1 事件.
　　3 HotKeySet("!2", "clickover") ;//Alt+2 事件.
　　4 HotKeySet("{esc}", "byebye") ;//Esc 事件.
　　5 MsgBox(0, "鼠标左键连击工具提示", "Alt+1:开始点击" & @CRLF & "Alt+2:暂停" & @CRLF & "Esc:退出程序" & @CRLF & @CRLF & "每秒点击1次")
　　6 While 1 ;//这边连着3行我不懂为什么要写，但是不写就直接运行热键对应的函数了，抄的帮助内的原句.
　　7 Sleep(5000)
　　8 WEnd
　　9 Func clickit() ;//Alt+1 事件.
　　10 Dim $x = MouseGetPos() ;// 得到当前鼠标的坐标，模拟点击的时候就靠它来确定点击的位置.
　　11 $z = 0 ;//这相当于1个开关，每次按热键Alt+1 都会把它打开 这样就能模拟点击了.
　　12 While $z <> 1 ;//判断当前开关的状态.
　　13 MouseClick("left", $x[0], $x[1], 1, 1000) ;//1秒点击1次.
　　14 WEnd
　　15 EndFunc ;==>clickit
　　16 Func clickover() ;//Alt+2 事件.
　　17 $z = 1 ;//把$z开关关闭，就暂停了 模拟点击。联系clickit()事件中的$z=0 就知道为什么这么做了.
　　18 EndFunc ;==>clickover
　　19 Func byebye() ;//Esc 事件.
　　20 Exit 0 ;//exit=0 就是退出程序，为何=0？这和系统有关，我不清楚。
　　21 EndFunc ;==>byebye

Answer 2

编程吗？ 如果只是三分钟热度的话放弃吧。。。。连击工具网上有。。。而且多得是。。。要学的话也有学校。。。。如果楼主还在读书的话。。。未来志向可以填。。。

Answer 3

发行股份的