1. shape1=1055991329
2. //手型鼠标代码
3. shape2=0
4. // I 型鼠标代码
5. set file=CreateObject("Scripting.FileSystemObject")
6. forwriting=2
7. forreading=1
8. 标记 判断登录文件是否存在
9. 如果表达式 (file.FileExists("d:\修真登录文本.txt")=0) 为真,则
10.     set file=CreateObject("Scripting.FileSystemObject")
11.     //创建文本的位置
12.     set myfile=file.createtextfile("d:\修真登录文本.txt")
13.     调用子程序 输入账号密码
14.     调用子程序 写文件
15. 否则
16.     调用外部VBScript子程序 dm=InputBox("请输入代码： 1—表示新账号 0—表示老账号")
17.     如果表达式 (StrComp("",dm)=0 or dm="0") 为真,则
18.         跳转到标记 end
19.     否则
20.         调用子程序 输入账号密码
21.         调用子程序 写文件
22.     条件结束
23. 条件结束
24. 标记 end
25. 标记 读取文件中的游戏账号和密码
26. 如果表达式 (file.FileExists("d:\修真登录文本.txt")=0) 为真,则
27.     跳转到标记 判断登录文件是否存在
28. 条件结束
29. 标记 打开网页并进行登录
30. 调用外部VBScript子程序 dm=InputBox("请输入代码： 1—表示新账号 0—表示老账号")
31. //修真网游网址
32. 调用插件命令 ck = Window.Foreground()
33. 调用插件命令 Window.Max(ck)
34. 标记 检查登录
35. 调用外部VBScript子程序 dm=InputBox("请输入代码： 1—表示新账号 0—表示老账号")
36. //判断网页打开标识
37. 如果表达式 (intX<0 and intY<0) 为真,则
38.     跳转到标记 检查登录
39. 条件结束
40. 延时500毫秒
41. 鼠标移到 1015 , 147
42. 左键按下
43. 鼠标相对移动 0 , 80
44. 左键弹起
45. 延时500毫秒
46. 调用子程序 读文件
47. 标记 开始登录
48. 调用外部VBScript子程序 dm=InputBox("请输入代码： 1—表示新账号 0—表示老账号")
49. //根据开始输入的服务器号自动选择服务器
50. 如果表达式 (intX<0 and intY<0) 为真,则
51.     跳转到标记 开始登录
52. 条件结束
53. 标记 检查鼠标形状1
54. 延时500毫秒
55. 鼠标移到 intX+30 , intY+10
56. 调用外部VBScript子程序 dm=InputBox("请输入代码： 1—表示新账号 0—表示老账号")
57. 如果表达式 (shape=shape1) 为真,则
58.     延时500毫秒
59. 否则
60.     鼠标移到 intX+31 , intY+11
61.     跳转到标记 检查鼠标形状1
62. 条件结束
63. 左键单击
64. 延时1000毫秒
65. 调用外部VBScript子程序 dm=InputBox("请输入代码： 1—表示新账号 0—表示老账号")
66. 如果表达式 (X<0 and Y<0) 为真,则
67.     跳转到标记 检查鼠标形状1
68. 条件结束
69. 标记 输入账号
70. 鼠标移到 440 , 330
71. 调用外部VBScript子程序 dm=InputBox("请输入代码： 1—表示新账号 0—表示老账号")
72. 如果表达式 (shape=shape2) 为真,则
73.     左键单击
74.     延时300毫秒
75.     var=zh
76.     调用子程序 输入字符串
77.     延时300毫秒
78.     按键<Tab>
79.     var=mm
80.     调用子程序 输入字符串
81.     延时800毫秒
82.     按键<Enter>
83. 否则
84.     跳转到标记 输入账号
85. 条件结束
86. 脚本停止运行
87. //****************************
88. 子程序 写文件
89.     //写入文本的位置
90.     set myfile=file.opentextfile("d:\修真登录文本.txt",forwriting)
91.     //写文本的内容
92.     myfile.writeline(qh)
93.     myfile.writeline(zh)
94.     myfile.writeline(mm)
95.     myfile.Close
96. 子程序结束,回到调用处
97. 子程序 读文件
98.     set file=CreateObject("Scripting.FileSystemObject")
99.     Set myfile=file.OpenTextFile("d:\修真登录文本.txt",ForReading)
100.     qh=myfile.ReadLine