1. //初始化的工作
2. Dim hWnd
3. Dim ax,ay,bx,by
4. set TiShiObj = createobject("WScript.Shell")
5. //鼠标移到屏幕正中并保存位置，这样可以显示较长时间的鼠标移动轨迹
6. YiDongSuDu=3
7. 调用子程序 YiDaoZhongJian
8. 保存鼠标位置
9. 鼠标移到 0 , 0
10. //先说明一下脚本的功能
11. 调用子程序 ShuoMing
12. //按顺序执行各个功能模块
13. 调用子程序 LuZhi
14. 调用子程序 BaoCunTuiChu
15. 脚本停止运行
16. //功能模块0：介绍这个脚本的基本情况
17. 子程序 ShuoMing
18.     TiShiXinXi = "【按键精灵】动起来教程 2.0讲，制作：vrBrothers.Leo"&vbCrLf&"本教程完全自动，请勿在脚本运行时接触键盘和鼠标！"
19.     调用子程序 TiShi
20.     TiShiXinXi = "本讲介绍如何录制脚本；所需时间：1分30秒"
21.     调用子程序 TiShi
22.     TiShiXinXi = "录制功能是按键精灵最大的特色之一"
23.     调用子程序 TiShi
24.     TiShiXinXi = "就像【录像机】一样把你的动作录制成脚本，以后随时回放"
25.     调用子程序 TiShi
26.     TiShiXinXi = "下面我们介绍录制功能的具体使用"
27.     调用子程序 TiShi
28. 子程序结束,回到调用处
29. //功能模块1：主界面移动鼠标到录制按钮，按下鼠标打开录制窗口
30. 子程序 LuZhi
31.     //打开了录制界面
32.     TiShiXinXI = "进入录制界面后主要有3个功能：录制、停止、保存。"
33.     调用子程序 TiShi
34.     TiShiXinXI = "开始录制脚本有两种方式：点录制按钮或者按下ScrollLock按钮"
35.     调用子程序 TiShi
36.     TiShiXinXI = "录制完毕之后可点击停止按钮或者再次按下ScrollLock按钮停止"
37.     调用子程序 TiShi
38.     TiShiXinXI = "点保存按钮即可将录制的动作保存为脚本"
39.     调用子程序 TiShi
40.     TiShiXinXI = "现在我们进入录制界面，录制一个脚本并保存"
41.     调用子程序 TiShi
42.     //录制按钮的相对地址
43.     恢复鼠标位置
44.     bxOpp = 296:byOpp = 47
45.     调用子程序 GetABPoint
46.     //Call MessageBox(ax&"|"&ay&"|"&bx&"|"&by)
47.     调用子程序 ManManYiDong
48.     延时2000毫秒
49.     左键单击
50.     //等待录制界面出现
51.     延时3000毫秒
52.     按键<Scroll Lock>
53.     延时2000毫秒
54.     调用子程序 画圆
55.     延时2000毫秒
56.     按键<Scroll Lock>
57.     //移动到保存按钮。保存按钮相对坐标是(80,30),录制界面宽度是244，因此保存按钮的位置就是屏幕中央坐标的x-244/2+80=x-42
58.     恢复鼠标位置
59.     鼠标相对移动 -42 , 0
60.     延时2000毫秒
61.     左键单击
62.     延时2000毫秒
63. 子程序结束,回到调用处
64. //功能模块2：保存退出脚本编辑器
65. 子程序 BaoCunTuiChu
66.     TiShiXinXI = "现在录制的动作已经成功记录为脚本"&vbCrLf&"您应该可以看到许多的脚本命令"
67.     调用子程序 TiShi
68.     TiShiXinXI = "接下来我们保存脚本退出"
69.     调用子程序 TiShi
70.     bxOpp=91:byOpp=53
71.     调用子程序 GetABPoint
72.     YiDongSuDu = 10
73.     调用子程序 ManManYiDong
74.     左键单击
75.     延时1000毫秒
76.     按键<Enter>
77.     延时1000毫秒
78.     TiShiXinXI = "恭喜您录制的脚本诞生了 ：）"&vbCrLf&"现在脚本列表里会多出一个『我的脚本』"
79.     调用子程序 TiShi
80.     TiShiXinXI = "当您按下脚本的启动热键 F10 "&vbCrLf&"脚本即可帮你回放刚才的动作 "
81.     调用子程序 TiShi
82.     TiShiXinXI = "本教程演示完毕！"&vbCrLf&"快点试试您录制的第一个脚本吧！"
83.     调用子程序 TiShi
84. 子程序结束,回到调用处
85. //常用：把鼠标从a点慢慢移动到b点
86. 子程序 ManManYiDong
87.     PianYiX = ax-bx
88.     PianYiY = ay-by
89.     标记 YiDong
90.     如果表达式 (PianYiX<>0 or PianYiY<>0) 为真,则
91.         YiDongX =0
92.         YiDongY =0
93.         如果表达式 (PianYiX<>0) 为真,则
94.             YiDongX = -abs(PianYiX)/PianYiX
95.         条件结束
96.         如果表达式 (PianYiY<>0) 为真,则
97.             YiDongY = -abs(PianYiY)/PianYiY
98.         条件结束
99.         鼠标相对移动 YiDongX , YiDongY
100.         PianYiX = PianYiX + YiDongX