• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(au3)源码-鼠标左键连击工具

AutoIT3 奇跡の海 2年前 (2017-11-21) 494次浏览 已收录 0个评论 扫描二维码

代码简介

AutoIt3(au3)源码-鼠标左键连击工具
AutoIt做的鼠标左键连击工具

AU3源码

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

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AutoIt3(au3)源码-鼠标左键连击工具!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址