1. （VBScript语句） dim m,n,x,z,e,c,c1,a,b,rect,q
2. dim fileHandle
3. set TiShiObj = createobject("WScript.Shell")
4. //=================== 主程序 ======================
5. //创建一个文件名为
6. fileHandle ="c:\log.txt"
7. 调用插件命令 q=File.ReadFileEx("c:\log.txt")
8. //在c盘的文件log.txt中输入喊话内容
9. 在调试状态下向调试窗口输出 q
10. m=8000
11. n=1000
12. x=8000
13. z=200
14. 调用插件命令 b=Window.Find(0,"浪漫庄园")
15. 调用插件命令 WindowEx2.SetWindowSize(b,1152,834)
16. 调用插件命令 Window.Move(b,0,0)
17. 延时1000毫秒
18. 调用插件命令 Window.Move(b,1000,-2000)
19. 在调试状态下向调试窗口输出 b
20. 调用插件命令 b=Window.FindEx(b,0,0,0)
21. 在调试状态下向调试窗口输出 b
22. 标记 1
23. e="city0"
24. c="town"
25. c1="town0"
26. a=0
27. 循环 3 遍
28.     a=a+1
29.     d=e&a
30.     在调试状态下向调试窗口输出 d
31.     调用插件命令 Bkgnd.LeftClick(b,65,709)
32.     延时z毫秒
33.     调用插件命令 Bkgnd.SendString(b,d)
34.     延时z毫秒
35.     调用插件命令 Bkgnd.KeyPress(b,13)
36.     延时m毫秒
37.     //***********************************
38.     调用插件命令 Bkgnd.LeftClick(b,290,822)
39.     延时z毫秒
40.     //***********************************
41.     调用插件命令 Bkgnd.SendString(b,q&a)
42.     延时n毫秒
43.     调用插件命令 Bkgnd.KeyPress(b,13)
44.     延时x毫秒
45.     //***********************************
46.     调用插件命令 Bkgnd.LeftClick(b,290,822)
47.     延时x毫秒
48.     //***********************************
49.     延时z毫秒
50.     调用插件命令 Bkgnd.SendString(b,q&a)
51.     延时n毫秒
52.     调用插件命令 Bkgnd.KeyPress(b,13)
53.     调用插件命令 Bkgnd.KeyPress(b,13)
54.     延时x毫秒
55.     //***********************************
56. 循环结束
57. a=0
58. 循环 9 遍
59.     a=a+1
60.     d=c1&a
61.     在调试状态下向调试窗口输出 d
62.     调用插件命令 Bkgnd.LeftClick(b,65,709)
63.     延时z毫秒
64.     调用插件命令 Bkgnd.SendString(b,d)
65.     延时n毫秒
66.     调用插件命令 Bkgnd.KeyPress(b,13)
67.     延时m毫秒
68.     //***********************************
69.     调用插件命令 Bkgnd.LeftClick(b,290,822)
70.     延时z毫秒
71.     调用插件命令 Bkgnd.SendString(b,q&a)
72.     延时n毫秒
73.     调用插件命令 Bkgnd.KeyPress(b,13)
74.     延时x毫秒
75.     //***********************************
76.     调用插件命令 Bkgnd.LeftClick(b,290,822)
77.     延时x毫秒
78.     //***********************************
79.     延时z毫秒
80.     调用插件命令 Bkgnd.SendString(b,q&a)
81.     延时n毫秒
82.     调用插件命令 Bkgnd.KeyPress(b,13)
83.     调用插件命令 Bkgnd.KeyPress(b,13)
84.     延时x毫秒
85.     //***********************************
86. 循环结束
87. 循环 27 遍
88.     a=a+1
89.     d=c&a
90.     在调试状态下向调试窗口输出 d
91.     调用插件命令 Bkgnd.LeftClick(b,65,709)
92.     延时z毫秒
93.     调用插件命令 Bkgnd.SendString(b,d)
94.     延时n毫秒
95.     调用插件命令 Bkgnd.KeyPress(b,13)
96.     延时m毫秒
97.     //***********************************
98.     调用插件命令 Bkgnd.LeftClick(b,290,822)
99.     延时z毫秒
100.     调用插件命令 Bkgnd.SendString(b,q&a)