Delay 450
    LeftClickS 1
    Delay 6000
    MoveToS 263,235
    Delay 500
    LeftClickS 1
    Delay 500
    MoveToS 508,582
    Delay 500
    LeftClickS 1
    Delay 4200
EndIf 
SaveString="--->>>选择神医验证失败小退后重新选择"
Gosub 【保存日志】
Rem 结束检查神医
EndScript 
Sub 【日志定义】
    Dim File,F1,SaveString,FileName
    //保存日志位置
    FileName="d:\QQ自由幻想全自动挂机脚本运行日志.ini"
    Set File = CreateObject("Scripting.FileSystemObject")
    //创建新日志(并自动替换旧日志)
    Set F1 =File.CreateTextFile(FileName,2)
    F1.Close
Return 【日志定义】
Sub 【保存日志】
    Set F1 =File.OpenTextFile(FileName,8)
    //保存日志内容
    F1.WriteLine(Now&SaveString)
    //关闭文件
    F1.Close
Return 【保存日志】