|
- UID
- 121255
- 帖子
- 5
- 积分
- 4
- 紫菀
- 0 朵
- 花瓣
- 18 片
- 花蕊
- 0 朵
- 野草莓
- 0 个
- 蒲公英
- 0 朵
- 社区等级
- 1 级
- 在线时间
- 1 小时
- 注册时间
- 2013-1-25
- 登录状态
-
当前离线
|
板凳
发表于 2013-1-25 12:57
| 只看该作者
谁给我一个辅助啊！
【功能说明】.
该脚本是QQ自由幻想过神医自动点击神医选项脚本，是一个完全傻瓜化的脚本，没又什么技术性可言！.
【使用说明】.
按下开始键即可使用，开始键为-号键，也就是小键盘里的减号.
【作者介绍】.
我叫忧郁咖啡，喜爱脚本和一切有创意的东西，欢迎大家和我交流任何有趣的东东。 ^_^.
.
【制作日期】.
2008年3月11日
******************************************************************
***********************以下是脚本内容***********************
******************************************************************
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 【保存日志】 |
|
