1. //=======得到当前窗口的句柄=======
2. 调用插件命令 Wend=Window.Foreground()
3. //======移动窗口到1.1的位置=====
4. 调用插件命令 Window.Move(Wend,1,1)
5. //==================脚本主体==================
6. 如果表达式 (1) 为真,则循环执行
7.     调用子程序 cjt
8.     调用子程序 ajt
9. 循环结束
10. //================脚本主体结束================
11. //==============开始检测箭头数量==============
12. 子程序 cjt
13.     如果表达式 (1) 为真,则循环执行
14.         //循环防卡延时：
15.         延时8*dt毫秒
16.         （VBScript语句） i=0
17.         如果表达式 (i<9) 为真,则循环执行
18.             如果 (283+17.5*i,449) 的颜色大约等于 #D76500 则
19.                 （VBScript语句） s=9-i:k=17.5*i
20.                 跳转到标记 jscjt
21.             条件结束
22.             如果表达式 (i<4) 为真,则
23.                 如果 (283+17.5*i,449) 的颜色大约等于 #2300D3 则
24.                     （VBScript语句） s=9-i:k=17.5*i
25.                     跳转到标记 jscjt
26.                 条件结束
27.             条件结束
28.             （VBScript语句） i=i+1
29.         循环结束
30.     循环结束
31.     //-------------结束测箭头
32.     标记 jscjt
33. 子程序结束,回到调用处
34. //================检测箭头数量结束=============
35. //================开始按箭头===================
36. 子程序 ajt
37.     （VBScript语句） x=0
38.     如果 (283+k,449) 的颜色大约等于 #008AFA 则
39.         （VBScript语句） x=x+1
40.     条件结束
41.     //------------------循环检测为哪个方向键（已包括反键）并按相应方向键
42.     如果表达式 (x<s) 为真,则循环执行
43.         //-------------循环防卡延时
44.         延时4*dt毫秒
45.         （VBScript语句） a=0:b=0:c=0
46.         //-------------判断4K还是8K
47.         如果 (276+k+x*35,457) 的颜色大约等于 #EE9900 则
48.             跳转到标记 an8k
49.         条件结束
50.         如果 (276+k+x*35,457) 的颜色大约等于 #5300F3 则
51.             跳转到标记 an8k
52.         条件结束
53.         跳转到标记 an4k
54.         //--------------8K
55.         标记 an8k
56.         调用子程序 8k
57.         跳转到标记 xyg
58.         //--------------4K
59.         标记 an4k
60.         调用子程序 4k
61.         跳转到标记 xyg
62.         //--------------下一个方向键
63.         标记 xyg
64.         延时4*dt毫秒
65.         x=x+1
66.     循环结束
67.     延时256毫秒
68. 子程序结束,回到调用处
69. //=================结束按箭头=================[/ft]
70. //===================8==K=====================
71. 子程序 8k
72.     如果 (275+k+x*35,449) 的颜色大约等于 #CE6000 则
73.         （VBScript语句） a=1
74.     条件结束
75.     如果 (275+k+x*35,449) 的颜色大约等于 #2100CB 则
76.         （VBScript语句） a=0.1
77.     条件结束
78.     如果 (283+k+x*35,457) 的颜色大约等于 #F39D00 则
79.         （VBScript语句） b=1
80.     条件结束
81.     如果 (283+k+x*35,457) 的颜色大约等于 #4D00EF 则
82.         （VBScript语句） b=0.1
83.     条件结束
84.     如果 (290+k+x*35,449) 的颜色大约等于 #D76500 则
85.         （VBScript语句） c=3
86.     条件结束
87.     如果 (290+k+x*35,449) 的颜色大约等于 #2100CB 则
88.         （VBScript语句） c=0.3
89.     条件结束
90.     （VBScript语句） sum=a+b+c
91.     //正键
92.     如果表达式 (sum=3) 为真,则
93.         按键<PageUp>
94.         跳转到标记 8kjs
95.     条件结束
96.     如果表达式 (sum=1) 为真,则
97.         按键<Home>
98.         跳转到标记 8kjs
99.     条件结束
100.     如果表达式 (sum=4) 为真,则