1. Dim m
2. m=1
3. 调用子程序 【日志定义】
4. SaveString="--->>>QQ自由幻想自动过神医脚本启动!"
5. 调用子程序 【保存日志】
6. 标记 重新检查神医
7. 延时2000毫秒
8. //以下是判断神医是否出现，查找4个点的颜色，如果全部都是真，那么就选择神医，否则就结束检查神医
9. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
10. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
11. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
12. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
13. 如果表达式 (x>0 and y>0 and x1>0 and y1>0 and x2>0 and y2>0 and x3>0 and y3>0) 为真,则
14.     SaveString="--->>>神医验证出现选择验证问题"
15.     调用子程序 【保存日志】
16.     跳转到标记 选择神医
17. 条件结束
18. 跳转到标记 结束检查神医
19. //*****************************************************************
20. //******************************选择神医***************************
21. //*****************************************************************
22. 标记 选择神医
23. 延时2000毫秒
24. 如果表达式 (m=1) 为真,则
25.     跳转到标记 一次过神医 //第一次选择神医
26. 否则如果(m=2)为真,则
27.     跳转到标记 二次过神医 //第二次选择神医
28. 否则
29.     跳转到标记 小退重新进入角色 //两次选择神医失败，小退重新进入游戏
30. 条件结束
31. 如果表达式 (m=1) 为真,则
32. 否则
33.     跳转到标记 结束检查神医
34. 条件结束
35. 标记 一次过神医
36. SaveString="--->>>一次过神医!!!!"
37. 调用子程序 【保存日志】
38. 延时1500毫秒
39. 超级模拟鼠标移动 724 , 563
40. 延时300毫秒
41. 超级模拟左键单击
42. 延时2500毫秒
43. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
44. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
45. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
46. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
47. 如果表达式 (x>0 and y>0 and x1>0 and y1>0 and x2>0 and y2>0 and x3>0 and y3>0) 为真,则
48.     SaveString="--->>>一次过神医失败!!!!"
49.     调用子程序 【保存日志】
50.     m=2
51.     跳转到标记 选择神医 //第一次选择神医失败，重新判断神医选择
52. 否则
53.     m=1 //一次过神医成功，返回变量
54.     SaveString="--->>>一次成功过神医!!!!"
55.     调用子程序 【保存日志】
56.     跳转到标记 结束检查神医
57. 条件结束
58. 标记 二次过神医
59. SaveString="--->>>二次过神医!!!!"
60. 调用子程序 【保存日志】
61. 延时1500毫秒
62. 超级模拟鼠标移动 724 , 563
63. 延时300毫秒
64. 超级模拟左键单击
65. 延时2500毫秒
66. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
67. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
68. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
69. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
70. 如果表达式 (x>0 and y>0 and x1>0 and y1>0 and x2>0 and y2>0 and x3>0 and y3>0) 为真,则
71.     SaveString="--->>>二次过神医,失败!!!!" //第二次选择神医失败，重新判断神医选择
72.     调用子程序 【保存日志】
73.     m=3
74.     跳转到标记 选择神医
75. 否则
76.     m=1 //二次过神医成功，返回变量
77.     SaveString="--->>>二次成功过神医!!!!"
78.     调用子程序 【保存日志】
79.     跳转到标记 结束检查神医
80. 条件结束
81. //*****************************************************************
82. //***************************重新进入角色**************************
83. //*****************************************************************
84. 标记 小退重新进入角色
85. m=1
86. 延时260毫秒
87. 延时1000毫秒
88. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
89. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
90. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
91. 调用外部VBScript子程序 在屏幕区域里查找颜色(589,553,594,556,"0000FF",x,y)
92. 如果表达式 (x>0 and y>0 and x1>0 and y1>0 and x2>0 and y2>0 and x3>0 and y3>0) 为真,则
93.     延时2500毫秒
94.     超级模拟按住<Alt>
95.     延时120毫秒
96.     超级模拟按键<O>
97.     延时260毫秒
98.     超级模拟弹起<Alt>
99.     延时750毫秒
100.     超级模拟鼠标移动 510 , 396