- //初始化的工作
- Dim hWnd
- Dim ax,ay,bx,by
- set TiShiObj = createobject("WScript.Shell")
- //鼠标移到屏幕正中并保存位置,这样可以显示较长时间的鼠标移动轨迹
- YiDongSuDu=3
- 调用子程序 YiDaoZhongJian
- 保存鼠标位置
- 鼠标移到 0 , 0
- //先说明一下脚本的功能
- 调用子程序 ShuoMing
- //按顺序执行各个功能模块
- 调用子程序 LuZhi
- 调用子程序 BaoCunTuiChu
- 脚本停止运行
- //功能模块0:介绍这个脚本的基本情况
- 子程序 ShuoMing
- TiShiXinXi = "【按键精灵】动起来教程 2.0讲,制作:vrBrothers.Leo"&vbCrLf&"本教程完全自动,请勿在脚本运行时接触键盘和鼠标!"
- 调用子程序 TiShi
- TiShiXinXi = "本讲介绍如何录制脚本;所需时间:1分30秒"
- 调用子程序 TiShi
- TiShiXinXi = "录制功能是按键精灵最大的特色之一"
- 调用子程序 TiShi
- TiShiXinXi = "就像【录像机】一样把你的动作录制成脚本,以后随时回放"
- 调用子程序 TiShi
- TiShiXinXi = "下面我们介绍录制功能的具体使用"
- 调用子程序 TiShi
- 子程序结束,回到调用处
- //功能模块1:主界面移动鼠标到录制按钮,按下鼠标打开录制窗口
- 子程序 LuZhi
- //打开了录制界面
- TiShiXinXI = "进入录制界面后主要有3个功能:录制、停止、保存。"
- 调用子程序 TiShi
- TiShiXinXI = "开始录制脚本有两种方式:点录制按钮或者按下ScrollLock按钮"
- 调用子程序 TiShi
- TiShiXinXI = "录制完毕之后可点击停止按钮或者再次按下ScrollLock按钮停止"
- 调用子程序 TiShi
- TiShiXinXI = "点保存按钮即可将录制的动作保存为脚本"
- 调用子程序 TiShi
- TiShiXinXI = "现在我们进入录制界面,录制一个脚本并保存"
- 调用子程序 TiShi
- //录制按钮的相对地址
- 恢复鼠标位置
- bxOpp = 296:byOpp = 47
- 调用子程序 GetABPoint
- //Call MessageBox(ax&"|"&ay&"|"&bx&"|"&by)
- 调用子程序 ManManYiDong
- 延时2000毫秒
- 左键单击
- //等待录制界面出现
- 延时3000毫秒
- 按键<Scroll Lock>
- 延时2000毫秒
- 调用子程序 画圆
- 延时2000毫秒
- 按键<Scroll Lock>
- //移动到保存按钮。保存按钮相对坐标是(80,30),录制界面宽度是244,因此保存按钮的位置就是屏幕中央坐标的x-244/2+80=x-42
- 恢复鼠标位置
- 鼠标相对移动 -42 , 0
- 延时2000毫秒
- 左键单击
- 延时2000毫秒
- 子程序结束,回到调用处
- //功能模块2:保存退出脚本编辑器
- 子程序 BaoCunTuiChu
- TiShiXinXI = "现在录制的动作已经成功记录为脚本"&vbCrLf&"您应该可以看到许多的脚本命令"
- 调用子程序 TiShi
- TiShiXinXI = "接下来我们保存脚本退出"
- 调用子程序 TiShi
- bxOpp=91:byOpp=53
- 调用子程序 GetABPoint
- YiDongSuDu = 10
- 调用子程序 ManManYiDong
- 左键单击
- 延时1000毫秒
- 按键<Enter>
- 延时1000毫秒
- TiShiXinXI = "恭喜您录制的脚本诞生了 :)"&vbCrLf&"现在脚本列表里会多出一个『我的脚本』"
- 调用子程序 TiShi
- TiShiXinXI = "当您按下脚本的启动热键 F10 "&vbCrLf&"脚本即可帮你回放刚才的动作 "
- 调用子程序 TiShi
- TiShiXinXI = "本教程演示完毕!"&vbCrLf&"快点试试您录制的第一个脚本吧!"
- 调用子程序 TiShi
- 子程序结束,回到调用处
- //常用:把鼠标从a点慢慢移动到b点
- 子程序 ManManYiDong
- PianYiX = ax-bx
- PianYiY = ay-by
- 标记 YiDong
- 如果表达式 (PianYiX<>0 or PianYiY<>0) 为真,则
- YiDongX =0
- YiDongY =0
- 如果表达式 (PianYiX<>0) 为真,则
- YiDongX = -abs(PianYiX)/PianYiX
- 条件结束
- 如果表达式 (PianYiY<>0) 为真,则
- YiDongY = -abs(PianYiY)/PianYiY
- 条件结束
- 鼠标相对移动 YiDongX , YiDongY
- PianYiX = PianYiX + YiDongX