QQ自由幻想自动过神医脚本
VBS Dim m
VBS m=1
Gosub 【日志定义】
VBS SaveString="--->>>QQ自由幻想自动过神医脚本启动!"
Gosub 【保存日志】
Rem 重新检查神医
Delay 2000
//以下是判断神医是否出现，查找4个点的颜色，如果全部都是真，那么就选择神医，否则就结束检查神
医
VBSCall FindColor(589,553,594,556,"0000FF",x,y)
VBSCall FindColor(600,554,608,557,"0000FF",x1,y1)
VBSCall FindColor(672,552,681,555,"0000FF",x2,y2)
VBSCall FindColor(663,625,669,628,"0000FF",x3,y3)
If x>=0 and y>=0 and x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0
VBS SaveString="--->>>神医验证出现选择验证问题"
Gosub 【保存日志】
Goto 选择神医
EndIf
Goto 结束检查神医
//*****************************************************************
//******************************选择神医***************************
//*****************************************************************
Rem 选择神医
Delay 2000
If m=1
Goto 一次过神医 //第一次选择神医
ElseIf m=2
Goto 二次过神医 //第二次选择神医
Else
Goto 小退重新进入角色 //两次选择神医失败，小退重新进入游戏
EndIf
If m=1
Else
Goto 结束检查神医
EndIf
Rem 一次过神医
VBS SaveString="--->>>一次过神医!!!!"
Gosub 【保存日志】
Delay 1500
MoveToS 724,563
Delay 300
LeftClickS 1
Delay 2500
VBSCall FindColor(589,553,594,556,"0000FF",x,y)
VBSCall FindColor(600,554,608,557,"0000FF",x1,y1)
VBSCall FindColor(672,552,681,555,"0000FF",x2,y2)
VBSCall FindColor(663,625,669,628,"0000FF",x3,y3)
If x>=0 and y>=0 and x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0
VBS SaveString="--->>>一次过神医失败!!!!"
Gosub 【保存日志】
m=2
Goto 选择神医 //第一次选择神医失败，重新判断神医选择
Else
m=1 //一次过神医成功，返回变量
VBS SaveString="--->>>一次成功过神医!!!!"
Gosub 【保存日志】
Goto 结束检查神医
EndIf
Rem 二次过神医
VBS SaveString="--->>>二次过神医!!!!"
Gosub 【保存日志】
Delay 1500
MoveToS 724,563
Delay 300
LeftClickS 1
Delay 2500
VBSCall FindColor(589,553,594,556,"0000FF",x,y)
VBSCall FindColor(600,554,608,557,"0000FF",x1,y1)
VBSCall FindColor(672,552,681,555,"0000FF",x2,y2)
VBSCall FindColor(663,625,669,628,"0000FF",x3,y3)
If x>=0 and y>=0 and x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0
VBS SaveString="--->>>二次过神医,失败!!!!" //第二次选择神医失败，重新判断神医选择
Gosub 【保存日志】
m=3
Goto 选择神医
Else
m=1 //二次过神医成功，返回变量
VBS SaveString="--->>>二次成功过神医!!!!"
Gosub 【保存日志】
Goto 结束检查神医
EndIf
//*****************************************************************
//***************************重新进入角色**************************
//*****************************************************************
Rem 小退重新进入角色
m=1
Delay 260
Delay 1000
VBSCall FindColor(589,553,594,556,"0000FF",x,y)
VBSCall FindColor(600,554,608,557,"0000FF",x1,y1)
VBSCall FindColor(672,552,681,555,"0000FF",x2,y2)
VBSCall FindColor(663,625,669,628,"0000FF",x3,y3)
If x>=0 and y>=0 and x1>=0 and y1>=0 and x2>=0 and y2>=0 and x3>=0 and y3>=0
Delay 2500
KeyDownS 18,1
Delay 120
KeyPressS 79,1
Delay 260
KeyUpS 18,1
Delay 750
MoveToS 510,396
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
VBS SaveString="--->>>选择神医验证失败小退后重新选择"
Gosub 【保存日志】
Rem 结束检查神医
EndScript
Sub 【日志定义】
VBS Dim File,F1,SaveString,FileName
//保存日志位置
VBS FileName="d:\QQ自由幻想全自动挂机脚本运行日志.ini"
VBS Set File = CreateObject("Scripting.FileSystemObject")
//创建新日志(并自动替换旧日志)
VBS Set F1 =File.CreateTextFile(FileName,2)
VBS F1.Close
Return 【日志定义】
Sub 【保存日志】
VBS Set F1 =File.OpenTextFile(FileName,8)
//保存日志内容
VBS F1.WriteLine(Now&SaveString)
//关闭文件
VBS F1.Close
Return 【保存日志】
淘宝长期卖脚本，做好的按键小精灵
