1. //头部 获得窗口信息
2. //跳舞次数
3. sum=0
4. max=5
5. off=0
6. //空格速度微调（50-70之间 机器速度越慢 数值越小）
7. speed=65
8. Dim HUA
9. //申明变量是个好习惯
10. HUA=""
11. //定义变量
12. 调用插件命令 hwnd=Window.Foreground()
13. //调用插件得到当前窗口句柄，结果返回给变量hwnd
14. 调用插件命令 wtext=Window.GetText(hwnd)
15. //调用插件根据窗口句柄得到当前窗口标题，结果返回给变量wtext
16. 调用插件命令 wclass=Window.GetClass(hwnd)
17. //调用插件根据窗口句柄得到当前窗口类，结果返回给变量wclass
18. 调用插件命令 path=Window.GetExePath(hwnd)
19. //调用插件根据窗口句柄得到当前窗口的路径，结果返回给变量path
20. 调用插件命令 rect=Window.GetClientRect(hwnd)
21. //调用插件根据窗口句柄得到当前客户区坐标数据，结果返回给变量rect
22. 调用插件命令 wrect=Window.GetWindowRect(hwnd)
23. //调用插件根据窗口句柄得到当前窗口坐标数据，结果返回给变量wrect
24. MyArray = Split(rect, "|", -1, 1)
25. //以"|"这个条件来分割字符串rect，结果返回数组MyArray()
26. //MyArray(0)=客户区左上角X坐标
27. //MyArray(1)=客户区左上角Y坐标
28. //MyArray(2)=客户区宽度
29. //MyArray(3)=客户区高度
30. //判断游戏分辨率
31. Area=MyArray(2)*MyArray(3)
32. 如果表达式 (Area<>480000) 为真,则
33.     弹出窗口 "请将游戏分辨率调整为800*600，谢谢。"
34.     脚本停止运行
35. 条件结束
36. //主程序
37. 标记 主程序
38. 如果表达式 (sum>=max) 为真,则
39.     如果表达式 (off=1) 为真,则
40.         调用插件命令 Msg.ShowScrTXT(10,10,500,500," 准备自动关机 按 F12取消","ff0000")
41.         延时1000毫秒
42.         调用插件命令 Msg.ShowScrTXT(10,10,500,500," 倒计时5秒 按 F12取消","ff0000")
43.         延时1000毫秒
44.         调用插件命令 Msg.ShowScrTXT(10,10,500,500," 倒计时4秒 按 F12取消","ff0000")
45.         延时1000毫秒
46.         调用插件命令 Msg.ShowScrTXT(10,10,500,500," 倒计时3秒 按 F12取消","ff0000")
47.         延时1000毫秒
48.         调用插件命令 Msg.ShowScrTXT(10,10,500,500," 倒计时2秒 按 F12取消","ff0000")
49.         延时1000毫秒
50.         调用插件命令 Msg.ShowScrTXT(10,10,500,500," 倒计时1秒 按 F12取消","ff0000")
51.         延时1000毫秒
52.         //关机计算机(关机)
53.         Call Plugin.Sys.ExitOS(1）
54.     条件结束
55.     弹出窗口 "已经跳了次数了呦。"
56.     脚本停止运行
57.     调用插件命令 Msg.ShowScrTXT(10,10,500,500," ","ffff00")
58. 条件结束
59. sum=sum+1
60. 鼠标移到 531+MyArray(0) , 119+MyArray(1)
61. 延时100毫秒
62. 左键单击
63. 延时100毫秒
64. 鼠标移到 543+MyArray(0) , 197+MyArray(1)
65. 延时100毫秒
66. 左键单击
67. 延时100毫秒
68. 鼠标移到 458+MyArray(0) , 152+MyArray(1)
69. 延时100毫秒
70. 左键单击
71. 跳转到标记 跳舞
72. //跳舞程序
73. 标记 跳舞
74. x=53+MyArray(0)
75. y=423+MyArray(1)
76. 如果表达式 (x<750+MyArray(0)) 为真,则循环执行
77.     //up
78.     调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"Attachment:\up.bmp",0.9,intX,intY)
79.     如果表达式 (intX>0) 为真,则
80.         按键 <Up>
81.     条件结束
82.     //downn
83.     调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"Attachment:\up.bmp",0.9,intX,intY)
84.     如果表达式 (intX>0) 为真,则
85.         按键 <Down>
86.     条件结束
87.     //left
88.     调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"Attachment:\up.bmp",0.9,intX,intY)
89.     如果表达式 (intX>0) 为真,则
90.         按键 <Left>
91.     条件结束
92.     //right
93.     调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"Attachment:\up.bmp",0.9,intX,intY)
94.     如果表达式 (intX>0) 为真,则
95.         按键 <Right>
96.     条件结束
97.     如果 (31+x,29+y) 的颜色大约等于 #0000E5 则
98.         //rup
99.         调用外部VBScript子程序 在屏幕区域里查找图形(x,y,x+63,y+63,"Attachment:\up.bmp",0.9,intX,intY)
100.         如果表达式 (intX>0) 为真,则