1.     左键单击
  2.     延时3000毫秒
  3.     左键单击
  4. 子程序结束,回到调用处
  5. //功能模块4：脚本编辑器界面，介绍控制命令的使用
  6. 子程序 JieShao3
  7.     TiShiXinXI = "其他命令面板留给大家自己去研究吧"&vbCrLf&"按键精灵会不断增加新的功能面板"
  8.     调用子程序 TiShi
  9.     恢复鼠标位置
  10. 子程序结束,回到调用处
  11. //功能模块5：插入一个键盘命令，完成脚本制作
  12. 子程序 ZhiZuo
  13.     TiShiXinXI = "我们现在插入5个按键命令"&vbCrLf&"实现模拟按5下A键的功能"
  14.     调用子程序 TiShi
  15.     恢复鼠标位置
  16.     bxOpp=131:byOpp=135
  17.     调用子程序 GetABPoint
  18.     调用子程序 ManManYiDong
  19.     左键单击
  20.     bxOpp=54:byOpp=179
  21.     调用子程序 GetABPoint
  22.     YiDongSuDu = 10
  23.     调用子程序 ManManYiDong
  24.     左键单击
  25.     按键<A>
  26.     bxOpp=233:byOpp=185
  27.     调用子程序 GetABPoint
  28.     YiDongSuDu = 10
  29.     调用子程序 ManManYiDong
  30.     左键单击
  31.     TiShiXinXI = "现在成功的插入了5条键盘命令"&vbCrLf&"接下来我们保存脚本退出"
  32.     调用子程序 TiShi
  33. 子程序结束,回到调用处
  34. //功能模块6：保存退出脚本编辑器
  35. 子程序 BaoCunTuiChu
  36.     bxOpp=91:byOpp=45
  37.     调用子程序 GetABPoint
  38.     YiDongSuDu = 10
  39.     调用子程序 ManManYiDong
  40.     TiShiXinXI = "恭喜你！第一个脚本诞生了 ：）"&vbCrLf&"保存成功后脚本列表里会多出一个『我的脚本』"
  41.     调用子程序 TiShi
  42.     TiShiXinXI = "当您按下脚本的启动热键 F10 "&vbCrLf&"脚本即可帮你模拟按键输入5个 A "
  43.     调用子程序 TiShi
  44.     TiShiXinXI = "本教程演示完毕！准备帮您自动保存这个脚本。"&vbCrLf&"快点试试您的第一个脚本吧！"
  45.     调用子程序 TiShi
  46.     左键单击
  47.     延时1000毫秒
  48.     按键<Enter>
  49.     延时1000毫秒
  50. 子程序结束,回到调用处
  51. //常用：把鼠标从a点慢慢移动到b点
  52. 子程序 ManManYiDong
  53.     PianYiX = ax-bx
  54.     PianYiY = ay-by
  55.     标记 YiDong
  56.     如果表达式 (PianYiX<>0 or PianYiY<>0) 为真,则
  57.         YiDongX =0
  58.         YiDongY =0
  59.         如果表达式 (PianYiX<>0) 为真,则
  60.             YiDongX = -abs(PianYiX)/PianYiX
  61.         条件结束
  62.         如果表达式 (PianYiY<>0) 为真,则
  63.             YiDongY = -abs(PianYiY)/PianYiY
  64.         条件结束
  65.         鼠标相对移动 YiDongX , YiDongY
  66.         PianYiX = PianYiX + YiDongX
  67.         PianYiY = PianYiY + YiDongY
  68.         延时YiDongSuDu毫秒
  69.         跳转到标记 YiDong
  70.     条件结束
  71. 子程序结束,回到调用处
  72. //常用：提示信息，过3秒自动关闭窗口的方式
  73. 子程序 TiShi
  74.     //注意：这里的CALL是VBS里的CALL语句。当过程调用带有括号时必须加CALL关键字。
  75.     Call TiShiObj.Popup(TiShiXinXi,3,"3秒后窗口自动关闭",0)
  76. 子程序结束,回到调用处
  77. //常用：获取A点和B点的坐标，A点是当前坐标点，B点是目的坐标点
  78. 子程序 GetABPoint
  79.     //获取A点坐标信息
  80.     Call GetCursorPos(ax,ay)
  81.     //获取B点坐标信息，B点坐标 ＝ 窗口坐标 ＋ 相对坐标
  82.     调用插件命令 hWnd=Window.Foreground()
  83.     调用插件命令 winRect=Window.GetWindowRect(hWnd)
  84.     winPoint = Split(winRect, "|", -1, 1)
  85.     bx = CInt(winPoint(0)) + bxOpp
  86.     by = CInt(winPoint(1)) + byOpp
  87. 子程序结束,回到调用处
  88. //常用：把鼠标移动到屏幕正中
  89. 子程序 YiDaoZhongJian
  90.     调用外部VBScript子程序 GetScreenResolution(intX,intY)
  91.     鼠标移到 intX/2 , intY/2
  92. 子程序结束,回到调用处