101.     延时450毫秒
102.     超级模拟左键单击
103.     延时6000毫秒
104.     超级模拟鼠标移动 263 , 235
105.     延时500毫秒
106.     超级模拟左键单击
107.     延时500毫秒
108.     超级模拟鼠标移动 508 , 582
109.     延时500毫秒
110.     超级模拟左键单击
111.     延时4200毫秒
112. 条件结束
113. SaveString="--->>>选择神医验证失败小退后重新选择"
114. 调用子程序 【保存日志】
115. 标记 结束检查神医
116. 脚本停止运行
117. 子程序 【日志定义】
118.     Dim File,F1,SaveString,FileName
119.     //保存日志位置
120.     FileName="d:\QQ自由幻想全自动挂机脚本运行日志.ini"
121.     Set File = CreateObject("Scripting.FileSystemObject")
122.     //创建新日志(并自动替换旧日志)
123.     Set F1 =File.CreateTextFile(FileName,2)
124.     F1.Close
125. 子程序结束,回到调用处
126. 子程序 【保存日志】
127.     Set F1 =File.OpenTextFile(FileName,8)
128.     //保存日志内容
129.     F1.WriteLine(Now&SaveString)
130.     //关闭文件
131.     F1.Close
132. 子程序结束,回到调用处