按键精灵
2010年01月27日
UserVar rj=DropList{否:1|是:2}=1 是否生成打怪日记(放在[C:\天龙八部刷怪日记.txt])
UserVar cwu=DropList{F4:1|F5:2}=0 宠物吃红按键
UserVar yz=DropList{关闭游戏:1|关闭电脑:2|停止脚本:3|报警:4}=2 出现验证(每次验证后请手动开启脚本)
UserVar jn4=DropList{F1:1|F1/F2:2|F1/F2/F3:3}=1 使用技能
UserVar bao=DropList{是:1|否:2}=1 是否检物(远程攻击.请不要使用检物功能)
UserVar jsh=DropList{F6:1|F7:2}=0 角色吃红按键
UserVar jsl=DropList{F8:1|F9:2}=0 角色吃蓝按键
UserVar xz=954439560 检物鼠标形状特征码(鼠标放在物品包上的形状代码)(用[抓点抓色]抓)[如果需要检物品必填]
UserVar rg=6 如果N秒后检不到物品则放弃这次检物
UserVar yylj=C:\**.MP3 音乐路径(格式 MP3.WAV.MID)
UserVar hong=80 角色红=0 and y>=0
//=====在固定区域内找学的颜色
Gosub 红蓝
//=====检查红蓝
Gosub 一分钟检查一次
//=====每一分种检查一次是否在打怪
Gosub 防验证
//====判断是否有验证出现
Gosub 技能
//====使用技能
Goto 没死
//回到标记处
Else
si=si+1:si1=si1+1
If bao=1
Gosub 检包,X1,Y1
VBSCall Call FindPic(tsx,tsy,txx,txy,"背包已满.bmp",0.7,x,y)
If x>=0 and y>=0
//判断包裹是否已满
bao=bao+2
//取消检物功能
EndIf
EndIf
If si1=5
XS="到目前为止已经干掉["&si&"]只怪了"
Gosub 日记
si1=0
//每杀死5只怪写入一次
EndIf
Gosub 红蓝
//检查红蓝
Gosub 一分钟检查一次
//警察十分打怪
Gosub 防验证
//判断十分出现验证
Gosub 检包,X1,Y1
//检物
Rem 检完
Goto 死了
//回到标记
EndIf
EndScript
Sub 技能
//==========使用技能子程序
If jn4=3
If datediff("s",FF1,time)=>F1
KeyPress 112,1
FF1=time
EndIf
If datediff("s",FF2,time)=>F2
KeyPress 113,1
FF2=time
EndIf
If datediff("s",FF3,time)=>F3
KeyPress 114,1
FF3=time
EndIf
EndIf
If jn4=2
If datediff("s",FF1,time)=>F1
KeyPress 112,1
FF1=time
EndIf
If datediff("s",FF2,time)=>F2
KeyPress 113,1
FF2=time
EndIf
EndIf
If jn4=1
If datediff("s",FF1,time)=>F1
KeyPress 112,1
FF1=time
EndIf
EndIf
//释放技能最好把释放技能的时间也加进去
//否则可能技能1没放完就按下了技能2 导致技能2无法使用
Return 技能
Sub 第一次写入日记
//每次启动脚本写入日记子程序
If rj=2
Plugin IsFile = File.IsFileExit("C:\天龙八部刷怪日记.txt")
If IsFile=Faise
//判断文件十分存在
//没有则生成TXT
Set objShell = CreateObject("WScript.Shell")
x = objShell.SpecialFolders.Item("desktop")
set fso=CreateObject("Scripting.FileSystemObject")
const forwriting=2
const forreading=1
set myfile=fso.createtextfile("C:\天龙八部刷怪日记.txt")
set Obj = createobject("WScript.Shell")
MessageBox "请手动再次启动脚本"
EndScript
EndIf
EndIf
Plugin IsFile = File.IsFileExit("C:\天龙八部刷怪日记.txt")
If IsFile=Faise
//判断有没有创建成功能
MSGBOX "无法创建TXT(日记)",0+64,"提示"
EndScript
Else
EndIf
If rj=2
//写入自定义设置内容
XS="//=======================================================//"
Gosub 日记
If yz=1
XS="出现验证:根据用户选择 关闭游戏"
Gosub 日记
ElseIf yz=2
XS="出现验证:根据用户选择 关闭电脑"
Gosub 日记
ElseIf yz=3
XS="出现验证:根据用户选择 停止脚本"
Gosub 日记
ElseIf yz=4
XS="出现验证:根据用户选择 报警"
Gosub 日记
EndIf
If jn4=1
XS="使用技能:根据用户选择 使用[F1]"
Gosub 日记
ElseIf jn4=2
XS="使用技能:根据用户选择 使用[F1/F2]"
Gosub 日记
ElseIf jn4=3
XS="使用技能:根据用户选择 使用[F1/F2/F3]"
Gosub 日记
EndIf
If bao=1
XS="是否检物:根据用户选择 是"
Gosub 日记
Else
XS="是否检物:根据用户选择 否"
Gosub 日记
EndIf
xs="检物鼠标代码["&xz&"]"
Gosub 日记
xs="如果["&RG&"]秒后检不到物品则放弃这次检物"
Gosub 日记
If cwu=1
XS="宠物吃红按键 [F4]"
Gosub 日记
Else
XS="宠物吃红按键 [F5]"
Gosub 日记
EndIf
If jsh=1
XS="角色吃红按键 [F6]"
Gosub 日记
Else
XS="角色吃红按键 [F7]"
Gosub 日记
EndIf
If jsl=1
xs="角色吃蓝按键 [F8]"
Gosub 日记
Else
xs="角色吃蓝按键 [F9]"
Gosub 日记
EndIf
xs="音乐路径为["&yylj&"]"
Gosub 日记
xs="角色红少于["&hong&"]%补红"
Gosub 日记
XS="角色蓝少于["&lan&"]%补蓝"
Gosub 日记
XS="宠物红少于["&chong&"]%补红"
Gosub 日记
XS="F1技能延时["&F1&"]秒"
Gosub 日记
XS="F2技能延时["&F2&"]秒"
Gosub 日记
XS="F3技能延时["&F3&"]秒"
Gosub 日记
EndIf
XS="//=======================================================//"
Gosub 日记
Return 第一次写入日记
Sub 检包,X1,Y1
If bao=1
//一窗口中心开始画圆检物
Delay 300
Var1=10:Var2=xz:Var3=20:x1=jbx:y1=jby
Delay 30
x0=x1:y0=y1:rr=20:l=Var3:n=0:r=8:jbao=time
For Var1
While n rg
Goto 检完
EndIf
Delay 10
VBSCall Shape=GetCursorShape(0)
If shape=Var2
//对比鼠标形状代码
Delay 200
RightClick 1
Delay 300
VBSCall Call FindPic(0,0,1023,767,"背包已满.bmp",1,x,y)
If x>=0 and y>=0
//判断包十分已满
bao=bao+5
Delay 200
XS="检到物品 完成"
Gosub 日记
XS="物品拦已满,取消检物"
Gosub 日记
Delay 20
KeyPress 27,1
Delay 20
Goto 检完
Else
VBSCall Call FindPic(0,0,1023,767,"背包已满.bmp",0.9,x,y)
If x>0
///再次判断包裹拦
bao=bao+5
Delay 200
XS="检到物品 完成"
Gosub 日记
XS="物品拦已满,取消检物"
Gosub 日记
Delay 20
KeyPress 27,1
Delay 20
Goto 检完
Else
Delay 200
XS="检到物品 完成"
Gosub 日记
Goto 检完
EndIf
EndIf
Delay 400
XS="检到物品 完成"
Gosub 日记
Goto 检完
EndIf
Delay 10
n=n+l/r
EndWhile
n=0:r=r+rr
EndFor
EndIf
Return 检包,X1,Y1
Sub 日记
//写入TXT子程序
If rj=2
t=time
Plugin File.WriteFileEx("C:\天龙八部刷怪日记.txt", "系统时间[ "&t&" ]---"&xs)
EndIf
Return 日记
Sub 防验证
//===============验证子程序
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "61EEFB", "1|0|63F0FD,2|0|63F0FD,3|0|63F0FD,4|0|63F0FD,5|0|63F0FD,6|0|63F0FD,7|0|63F0FD,8|0|63F0FD,9|0|63F0FD,14|0|61EEFB,19|0|61EEFB,0|1|63F0FD,9|1|63F0FD,14|1|63F0FD,15|1|63F0FD,16|1|63F0FD,17|1|63F0FD,18|1|63F0FD,19|1|63F2FF,20|1|63F0FD,21|1|63F0FD,22|1|63F0FD,0|2|63F0FD,9|2|63F0FD,13|2|61EEFB,15|2|63F0FD,18|2|63F0FD,20|2|63F0FD,0|3|63F0FD,2|3|61EEFB,3|3|63F0FD,4|3|63F0FD,5|3|63F0FD,6|3|63F0FD,9|3|63F0FD,12|3|61EEFB,16|3|61EEFB,17|3|63F0FD,21|3|61EEFB,0|4|63F0FD,2|4|63F0FD,6|4|63F0FD,9|4|63F0FD,15|4|61EEFB,18|4|61EEFB,0|5|63F0FD,2|5|63F0FD,6|5|63F0FD,9|5|63F0FD,14|5|61EEFB,15|5|63F2FF,16|5|63F0FD,17|5|63F0FD,18|5|63F2FF,19|5|63F0FD,20|5|63F0FD,0|6|63F0FD,2|6|63F0FD,3|6|63F0FD,4|6|63F0FD,5|6|63F0FD,6|6|63F2FF,9|6|63F0FD,12|6|61EEFB,13|6|63F0FD,21|6|61EEFB,22|6|63F0FD,0|7|63F0FD,2|7|63F0FD,6|7|63F0FD,9|7|63F0FD,14|7|61EEFB,15|7|63F0FD,16|7|63F0FD,17|7|63F0FD,18|7|63F0FD,19|7|63F0FD,20|7|63F0FD,0|8|63F0FD,9|8|63F0FD,14|8|63F0FD,20|8|63F0FD,0|9|63F0FD,1|9|63F0FD,2|9|63F0FD,3|9|63F0FD,4|9|63F0FD,5|9|63F0FD,6|9|63F0FD,7|9|63F0FD,8|9|63F0FD,9|9|63F2FF,14|9|63F0FD,20|9|63F0FD,0|10|63F0FD,9|10|63F0FD,14|10|63F0FD,15|10|63F0FD,16|10|63F0FD,17|10|63F0FD,18|10|63F0FD,19|10|63F0FD,20|10|63F2FF", 1)
MyArray = Split(XY, "|")
X1 = Clng(MyArray(0)): Y = Clng(MyArray(1))
If x1>20
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "61EEFB", "5|0|61EEFB,13|0|61EEFB,19|0|61EEFB,0|1|63F0FD,5|1|63F0FD,13|1|63F0FD,16|1|61EEFB,17|1|63F0FD,18|1|63F0FD,19|1|63F2FF,20|1|63F0FD,39|1|61EEFB,40|1|63F0FD,-2|2|61EEFB,-1|2|63F0FD,0|2|63F2FF,1|2|63F0FD,3|2|61EEFB,4|2|63F0FD,5|2|63F2FF,6|2|63F0FD,7|2|63F0FD,11|2|61EEFB,12|2|63F0FD,13|2|63F2FF,14|2|63F0FD,15|2|63F0FD,16|2|63F2FF,19|2|63F0FD,38|2|61EEFB,39|2|63F2FF,40|2|63F2FF,41|2|63F0FD,0|3|63F0FD,5|3|63F0FD,13|3|63F0FD,16|3|63F0FD,19|3|63F0FD,38|3|63F0FD,39|3|63F2FF,40|3|63F2FF,41|3|63F2FF,0|4|63F0FD,1|4|63F0FD,5|4|63F0FD,13|4|63F0FD,16|4|63F0FD,19|4|63F0FD,38|4|63F0FD,39|4|63F2FF,40|4|63F2FF,41|4|63F2FF,-1|5|61EEFB,0|5|63F2FF,2|5|61EEFB,3|5|63F0FD,4|5|63F0FD,5|5|63F2FF,6|5|63F0FD,7|5|63F0FD,8|5|63F0FD,12|5|61EEFB,13|5|63F2FF,14|5|63F0FD,16|5|63F0FD,19|5|63F0FD,39|5|63F0FD,40|5|63F2FF,-2|6|61EEFB,0|6|63F0FD,5|6|63F0FD,12|6|63F0FD,13|6|63F2FF,15|6|61EEFB,16|6|63F2FF,19|6|63F0FD,39|6|63F0FD,40|6|63F2FF,0|7|63F0FD,3|7|61EEFB,4|7|63F0FD,5|7|63F2FF,6|7|63F0FD,7|7|63F0FD,11|7|61EEFB,13|7|63F0FD,16|7|63F0FD,19|7|63F0FD,0|8|63F0FD,5|8|63F0FD,11|8|63F0FD,13|8|63F0FD,16|8|63F0FD,19|8|63F0FD,21|8|61EEFB,39|8|61EEFB,40|8|63F0FD,0|9|63F0FD,5|9|63F0FD,13|9|63F0FD,15|9|61EEFB,19|9|63F0FD,21|9|63F0FD,39|9|63F0FD,40|9|63F2FF,-2|10|61EEFB,-1|10|63F0FD,0|10|63F2FF,2|10|61EEFB,3|10|63F0FD,4|10|63F0FD,5|10|63F2FF,6|10|63F0FD,7|10|63F0FD,8|10|63F0FD,13|10|63F0FD,14|10|63F0FD,19|10|63F0FD,20|10|63F0FD,21|10|63F2FF", 1)
MyArray = Split(XY, "|")
X2 = Clng(MyArray(0)): Y = Clng(MyArray(1))
If x2>0
//===运行到这里表示 出现验证
//将用户设置写入TXT 再按设置执行脚本
XS="已确认.出现验证"
Gosub 日记
If yz=1
xs="出现验证 根据用户选择 关闭游戏"
Gosub 日记
Plugin Memory.TerminateProc(Hwnd)
EndScript
ElseIf yz=2
xs="出现验证 根据用户选择 关机"
Gosub 日记
Plugin Sys.ExitOS(1)
Delay 4000
XS="4秒后未关机 启用强制 [关机2000系统无法使用]"
Gosub 日记
VBSCall RunApp("shutdown -s -t 5 -f")
EndScript
ElseIf yz=3
XS="出现验证 根据用户选择 停止脚本"
Gosub 日记
EndScript
ElseIf yz=4
XS="出现验证 根据用户选择 报警"
Plugin Media.Play(yylj)
Plugin Media.Vol(99)
Gosub 日记
WaitKey
Plugin Media.Stop()
EndScript
EndIf
Else
//防止出错...再次判断是否出现验证
If x1+200=>x2
XS="已确认.出现验证"
Gosub 日记
If yz=1
xs="出现验证 根据用户选择 关闭游戏"
Gosub 日记
Plugin Memory.TerminateProc(Hwnd)
EndScript
ElseIf yz=2
xs="出现验证 根据用户选择 关机"
Gosub 日记
Plugin Sys.ExitOS(1)
Delay 4000
XS="4秒后未关机 启用强制 [关机2000系统无法使用]"
Gosub 日记
VBSCall RunApp("shutdown -s -t 5 -f")
EndScript
ElseIf yz=3
XS="出现验证 根据用户选择 停止脚本"
Gosub 日记
EndScript
ElseIf yz=4
XS="出现验证 根据用户选择 报警"
Gosub 日记
Plugin Media.Play(yylj)
Plugin Media.Vol(99)
WaitKey
Plugin Media.Stop()
EndScript
EndIf
Else
EndIf
EndIf
Else
EndIf
Return 防验证
Sub 红蓝
//
IfColor hong/100*124+xuex,xuey,96A2FF,2
Else
IfColor hong/100*124+xuex,xuey-1,96A2FF,2
Else
IfColor hong/100*124+xuex,xuey+1,96A2FF,2
Else
//判断角色红
//====因为是任意窗口坐标
//防止出错.Y向上+1 判断 -1 判断 各一次
If jsh=1
KeyPress 115,1
ElseIf jsh=2
KeyPress 116,1
EndIf
EndIf
EndIf
EndIf
//
IfColor lan/100*124+xuex,xuey+6,FFBCC1,2
Else
IfColor lan/100*124+xuex,xuey+7,FFBCC1,2
Else
IfColor lan/100*124+xuex,xuey+5,FFBCC1,2
Else
//判断角色蓝
//====因为是任意窗口坐标
//防止出错.Y向上+1 判断 -1 判断 各一次
If jsl=1
KeyPress 117,1
ElseIf jsl=2
KeyPress 118,1
EndIf
EndIf
EndIf
EndIf
//
IfColor chong/100*97+xuex+27,xuey+39,96A2ff,2
Else
IfColor chong/100*97+xuex+27,xuey+40,96A2ff,2
Else
IfColor chong/100*97+xuex+27,xuey+38,96A2ff,2
Else
//判断宠物红
//====因为是任意窗口坐标
//防止出错.Y向上+1 判断 -1 判断 各一次
If cwu=1
KeyPress 119,1
ElseIf cwu=2
KeyPress 120,1
EndIf
EndIf
EndIf
EndIf
Return 红蓝
Sub 任意窗口位置
Plugin WRect=Window.GetWindowRect(hwnd)
WinArray=Split(WRect,"|",-1,1)
s=WinArray(0):x=WinArray(1):sz=WinArray(2):xy=WinArray(3)
hx=s+249:hy=x+58:tsx=hx:tsy=hy:txx=hx+125:txy=hy+6
xuex=s+67:xuey=x+60
xuey=xuey-1
//=========调节坐标.得到窗口四个角坐标
//在进行偏移
Return 任意窗口位置
Sub 一分钟检查一次
If datediff("s",shag,time)=>60
IfColor s+250,x+60,96A2FF,2
TI_ME=time
XS=TI_ME&" 可以正常打怪"
shag=time
Else
IfColor s+250,x+61,96A2FF,2
TI_ME=time
XS=TI_ME&" 可以正常打怪"
shag=time
EndIf
EndIf
EndIf
//====判断有没有出现怪物的方框
//也就是怪的头像
Return 一分钟检查一次
2010年01月27日
UserVar rj=DropList{否:1|是:2}=1 是否生成打怪日记(放在[C:\天龙八部刷怪日记.txt])
UserVar cwu=DropList{F4:1|F5:2}=0 宠物吃红按键
UserVar yz=DropList{关闭游戏:1|关闭电脑:2|停止脚本:3|报警:4}=2 出现验证(每次验证后请手动开启脚本)
UserVar jn4=DropList{F1:1|F1/F2:2|F1/F2/F3:3}=1 使用技能
UserVar bao=DropList{是:1|否:2}=1 是否检物(远程攻击.请不要使用检物功能)
UserVar jsh=DropList{F6:1|F7:2}=0 角色吃红按键
UserVar jsl=DropList{F8:1|F9:2}=0 角色吃蓝按键
UserVar xz=954439560 检物鼠标形状特征码(鼠标放在物品包上的形状代码)(用[抓点抓色]抓)[如果需要检物品必填]
UserVar rg=6 如果N秒后检不到物品则放弃这次检物
UserVar yylj=C:\**.MP3 音乐路径(格式 MP3.WAV.MID)
UserVar hong=80 角色红=0 and y>=0
//=====在固定区域内找学的颜色
Gosub 红蓝
//=====检查红蓝
Gosub 一分钟检查一次
//=====每一分种检查一次是否在打怪
Gosub 防验证
//====判断是否有验证出现
Gosub 技能
//====使用技能
Goto 没死
//回到标记处
Else
si=si+1:si1=si1+1
If bao=1
Gosub 检包,X1,Y1
VBSCall Call FindPic(tsx,tsy,txx,txy,"背包已满.bmp",0.7,x,y)
If x>=0 and y>=0
//判断包裹是否已满
bao=bao+2
//取消检物功能
EndIf
EndIf
If si1=5
XS="到目前为止已经干掉["&si&"]只怪了"
Gosub 日记
si1=0
//每杀死5只怪写入一次
EndIf
Gosub 红蓝
//检查红蓝
Gosub 一分钟检查一次
//警察十分打怪
Gosub 防验证
//判断十分出现验证
Gosub 检包,X1,Y1
//检物
Rem 检完
Goto 死了
//回到标记
EndIf
EndScript
Sub 技能
//==========使用技能子程序
If jn4=3
If datediff("s",FF1,time)=>F1
KeyPress 112,1
FF1=time
EndIf
If datediff("s",FF2,time)=>F2
KeyPress 113,1
FF2=time
EndIf
If datediff("s",FF3,time)=>F3
KeyPress 114,1
FF3=time
EndIf
EndIf
If jn4=2
If datediff("s",FF1,time)=>F1
KeyPress 112,1
FF1=time
EndIf
If datediff("s",FF2,time)=>F2
KeyPress 113,1
FF2=time
EndIf
EndIf
If jn4=1
If datediff("s",FF1,time)=>F1
KeyPress 112,1
FF1=time
EndIf
EndIf
//释放技能最好把释放技能的时间也加进去
//否则可能技能1没放完就按下了技能2 导致技能2无法使用
Return 技能
Sub 第一次写入日记
//每次启动脚本写入日记子程序
If rj=2
Plugin IsFile = File.IsFileExit("C:\天龙八部刷怪日记.txt")
If IsFile=Faise
//判断文件十分存在
//没有则生成TXT
Set objShell = CreateObject("WScript.Shell")
x = objShell.SpecialFolders.Item("desktop")
set fso=CreateObject("Scripting.FileSystemObject")
const forwriting=2
const forreading=1
set myfile=fso.createtextfile("C:\天龙八部刷怪日记.txt")
set Obj = createobject("WScript.Shell")
MessageBox "请手动再次启动脚本"
EndScript
EndIf
EndIf
Plugin IsFile = File.IsFileExit("C:\天龙八部刷怪日记.txt")
If IsFile=Faise
//判断有没有创建成功能
MSGBOX "无法创建TXT(日记)",0+64,"提示"
EndScript
Else
EndIf
If rj=2
//写入自定义设置内容
XS="//=======================================================//"
Gosub 日记
If yz=1
XS="出现验证:根据用户选择 关闭游戏"
Gosub 日记
ElseIf yz=2
XS="出现验证:根据用户选择 关闭电脑"
Gosub 日记
ElseIf yz=3
XS="出现验证:根据用户选择 停止脚本"
Gosub 日记
ElseIf yz=4
XS="出现验证:根据用户选择 报警"
Gosub 日记
EndIf
If jn4=1
XS="使用技能:根据用户选择 使用[F1]"
Gosub 日记
ElseIf jn4=2
XS="使用技能:根据用户选择 使用[F1/F2]"
Gosub 日记
ElseIf jn4=3
XS="使用技能:根据用户选择 使用[F1/F2/F3]"
Gosub 日记
EndIf
If bao=1
XS="是否检物:根据用户选择 是"
Gosub 日记
Else
XS="是否检物:根据用户选择 否"
Gosub 日记
EndIf
xs="检物鼠标代码["&xz&"]"
Gosub 日记
xs="如果["&RG&"]秒后检不到物品则放弃这次检物"
Gosub 日记
If cwu=1
XS="宠物吃红按键 [F4]"
Gosub 日记
Else
XS="宠物吃红按键 [F5]"
Gosub 日记
EndIf
If jsh=1
XS="角色吃红按键 [F6]"
Gosub 日记
Else
XS="角色吃红按键 [F7]"
Gosub 日记
EndIf
If jsl=1
xs="角色吃蓝按键 [F8]"
Gosub 日记
Else
xs="角色吃蓝按键 [F9]"
Gosub 日记
EndIf
xs="音乐路径为["&yylj&"]"
Gosub 日记
xs="角色红少于["&hong&"]%补红"
Gosub 日记
XS="角色蓝少于["&lan&"]%补蓝"
Gosub 日记
XS="宠物红少于["&chong&"]%补红"
Gosub 日记
XS="F1技能延时["&F1&"]秒"
Gosub 日记
XS="F2技能延时["&F2&"]秒"
Gosub 日记
XS="F3技能延时["&F3&"]秒"
Gosub 日记
EndIf
XS="//=======================================================//"
Gosub 日记
Return 第一次写入日记
Sub 检包,X1,Y1
If bao=1
//一窗口中心开始画圆检物
Delay 300
Var1=10:Var2=xz:Var3=20:x1=jbx:y1=jby
Delay 30
x0=x1:y0=y1:rr=20:l=Var3:n=0:r=8:jbao=time
For Var1
While n rg
Goto 检完
EndIf
Delay 10
VBSCall Shape=GetCursorShape(0)
If shape=Var2
//对比鼠标形状代码
Delay 200
RightClick 1
Delay 300
VBSCall Call FindPic(0,0,1023,767,"背包已满.bmp",1,x,y)
If x>=0 and y>=0
//判断包十分已满
bao=bao+5
Delay 200
XS="检到物品 完成"
Gosub 日记
XS="物品拦已满,取消检物"
Gosub 日记
Delay 20
KeyPress 27,1
Delay 20
Goto 检完
Else
VBSCall Call FindPic(0,0,1023,767,"背包已满.bmp",0.9,x,y)
If x>0
///再次判断包裹拦
bao=bao+5
Delay 200
XS="检到物品 完成"
Gosub 日记
XS="物品拦已满,取消检物"
Gosub 日记
Delay 20
KeyPress 27,1
Delay 20
Goto 检完
Else
Delay 200
XS="检到物品 完成"
Gosub 日记
Goto 检完
EndIf
EndIf
Delay 400
XS="检到物品 完成"
Gosub 日记
Goto 检完
EndIf
Delay 10
n=n+l/r
EndWhile
n=0:r=r+rr
EndFor
EndIf
Return 检包,X1,Y1
Sub 日记
//写入TXT子程序
If rj=2
t=time
Plugin File.WriteFileEx("C:\天龙八部刷怪日记.txt", "系统时间[ "&t&" ]---"&xs)
EndIf
Return 日记
Sub 防验证
//===============验证子程序
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "61EEFB", "1|0|63F0FD,2|0|63F0FD,3|0|63F0FD,4|0|63F0FD,5|0|63F0FD,6|0|63F0FD,7|0|63F0FD,8|0|63F0FD,9|0|63F0FD,14|0|61EEFB,19|0|61EEFB,0|1|63F0FD,9|1|63F0FD,14|1|63F0FD,15|1|63F0FD,16|1|63F0FD,17|1|63F0FD,18|1|63F0FD,19|1|63F2FF,20|1|63F0FD,21|1|63F0FD,22|1|63F0FD,0|2|63F0FD,9|2|63F0FD,13|2|61EEFB,15|2|63F0FD,18|2|63F0FD,20|2|63F0FD,0|3|63F0FD,2|3|61EEFB,3|3|63F0FD,4|3|63F0FD,5|3|63F0FD,6|3|63F0FD,9|3|63F0FD,12|3|61EEFB,16|3|61EEFB,17|3|63F0FD,21|3|61EEFB,0|4|63F0FD,2|4|63F0FD,6|4|63F0FD,9|4|63F0FD,15|4|61EEFB,18|4|61EEFB,0|5|63F0FD,2|5|63F0FD,6|5|63F0FD,9|5|63F0FD,14|5|61EEFB,15|5|63F2FF,16|5|63F0FD,17|5|63F0FD,18|5|63F2FF,19|5|63F0FD,20|5|63F0FD,0|6|63F0FD,2|6|63F0FD,3|6|63F0FD,4|6|63F0FD,5|6|63F0FD,6|6|63F2FF,9|6|63F0FD,12|6|61EEFB,13|6|63F0FD,21|6|61EEFB,22|6|63F0FD,0|7|63F0FD,2|7|63F0FD,6|7|63F0FD,9|7|63F0FD,14|7|61EEFB,15|7|63F0FD,16|7|63F0FD,17|7|63F0FD,18|7|63F0FD,19|7|63F0FD,20|7|63F0FD,0|8|63F0FD,9|8|63F0FD,14|8|63F0FD,20|8|63F0FD,0|9|63F0FD,1|9|63F0FD,2|9|63F0FD,3|9|63F0FD,4|9|63F0FD,5|9|63F0FD,6|9|63F0FD,7|9|63F0FD,8|9|63F0FD,9|9|63F2FF,14|9|63F0FD,20|9|63F0FD,0|10|63F0FD,9|10|63F0FD,14|10|63F0FD,15|10|63F0FD,16|10|63F0FD,17|10|63F0FD,18|10|63F0FD,19|10|63F0FD,20|10|63F2FF", 1)
MyArray = Split(XY, "|")
X1 = Clng(MyArray(0)): Y = Clng(MyArray(1))
If x1>20
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "61EEFB", "5|0|61EEFB,13|0|61EEFB,19|0|61EEFB,0|1|63F0FD,5|1|63F0FD,13|1|63F0FD,16|1|61EEFB,17|1|63F0FD,18|1|63F0FD,19|1|63F2FF,20|1|63F0FD,39|1|61EEFB,40|1|63F0FD,-2|2|61EEFB,-1|2|63F0FD,0|2|63F2FF,1|2|63F0FD,3|2|61EEFB,4|2|63F0FD,5|2|63F2FF,6|2|63F0FD,7|2|63F0FD,11|2|61EEFB,12|2|63F0FD,13|2|63F2FF,14|2|63F0FD,15|2|63F0FD,16|2|63F2FF,19|2|63F0FD,38|2|61EEFB,39|2|63F2FF,40|2|63F2FF,41|2|63F0FD,0|3|63F0FD,5|3|63F0FD,13|3|63F0FD,16|3|63F0FD,19|3|63F0FD,38|3|63F0FD,39|3|63F2FF,40|3|63F2FF,41|3|63F2FF,0|4|63F0FD,1|4|63F0FD,5|4|63F0FD,13|4|63F0FD,16|4|63F0FD,19|4|63F0FD,38|4|63F0FD,39|4|63F2FF,40|4|63F2FF,41|4|63F2FF,-1|5|61EEFB,0|5|63F2FF,2|5|61EEFB,3|5|63F0FD,4|5|63F0FD,5|5|63F2FF,6|5|63F0FD,7|5|63F0FD,8|5|63F0FD,12|5|61EEFB,13|5|63F2FF,14|5|63F0FD,16|5|63F0FD,19|5|63F0FD,39|5|63F0FD,40|5|63F2FF,-2|6|61EEFB,0|6|63F0FD,5|6|63F0FD,12|6|63F0FD,13|6|63F2FF,15|6|61EEFB,16|6|63F2FF,19|6|63F0FD,39|6|63F0FD,40|6|63F2FF,0|7|63F0FD,3|7|61EEFB,4|7|63F0FD,5|7|63F2FF,6|7|63F0FD,7|7|63F0FD,11|7|61EEFB,13|7|63F0FD,16|7|63F0FD,19|7|63F0FD,0|8|63F0FD,5|8|63F0FD,11|8|63F0FD,13|8|63F0FD,16|8|63F0FD,19|8|63F0FD,21|8|61EEFB,39|8|61EEFB,40|8|63F0FD,0|9|63F0FD,5|9|63F0FD,13|9|63F0FD,15|9|61EEFB,19|9|63F0FD,21|9|63F0FD,39|9|63F0FD,40|9|63F2FF,-2|10|61EEFB,-1|10|63F0FD,0|10|63F2FF,2|10|61EEFB,3|10|63F0FD,4|10|63F0FD,5|10|63F2FF,6|10|63F0FD,7|10|63F0FD,8|10|63F0FD,13|10|63F0FD,14|10|63F0FD,19|10|63F0FD,20|10|63F0FD,21|10|63F2FF", 1)
MyArray = Split(XY, "|")
X2 = Clng(MyArray(0)): Y = Clng(MyArray(1))
If x2>0
//===运行到这里表示 出现验证
//将用户设置写入TXT 再按设置执行脚本
XS="已确认.出现验证"
Gosub 日记
If yz=1
xs="出现验证 根据用户选择 关闭游戏"
Gosub 日记
Plugin Memory.TerminateProc(Hwnd)
EndScript
ElseIf yz=2
xs="出现验证 根据用户选择 关机"
Gosub 日记
Plugin Sys.ExitOS(1)
Delay 4000
XS="4秒后未关机 启用强制 [关机2000系统无法使用]"
Gosub 日记
VBSCall RunApp("shutdown -s -t 5 -f")
EndScript
ElseIf yz=3
XS="出现验证 根据用户选择 停止脚本"
Gosub 日记
EndScript
ElseIf yz=4
XS="出现验证 根据用户选择 报警"
Plugin Media.Play(yylj)
Plugin Media.Vol(99)
Gosub 日记
WaitKey
Plugin Media.Stop()
EndScript
EndIf
Else
//防止出错...再次判断是否出现验证
If x1+200=>x2
XS="已确认.出现验证"
Gosub 日记
If yz=1
xs="出现验证 根据用户选择 关闭游戏"
Gosub 日记
Plugin Memory.TerminateProc(Hwnd)
EndScript
ElseIf yz=2
xs="出现验证 根据用户选择 关机"
Gosub 日记
Plugin Sys.ExitOS(1)
Delay 4000
XS="4秒后未关机 启用强制 [关机2000系统无法使用]"
Gosub 日记
VBSCall RunApp("shutdown -s -t 5 -f")
EndScript
ElseIf yz=3
XS="出现验证 根据用户选择 停止脚本"
Gosub 日记
EndScript
ElseIf yz=4
XS="出现验证 根据用户选择 报警"
Gosub 日记
Plugin Media.Play(yylj)
Plugin Media.Vol(99)
WaitKey
Plugin Media.Stop()
EndScript
EndIf
Else
EndIf
EndIf
Else
EndIf
Return 防验证
Sub 红蓝
//
IfColor hong/100*124+xuex,xuey,96A2FF,2
Else
IfColor hong/100*124+xuex,xuey-1,96A2FF,2
Else
IfColor hong/100*124+xuex,xuey+1,96A2FF,2
Else
//判断角色红
//====因为是任意窗口坐标
//防止出错.Y向上+1 判断 -1 判断 各一次
If jsh=1
KeyPress 115,1
ElseIf jsh=2
KeyPress 116,1
EndIf
EndIf
EndIf
EndIf
//
IfColor lan/100*124+xuex,xuey+6,FFBCC1,2
Else
IfColor lan/100*124+xuex,xuey+7,FFBCC1,2
Else
IfColor lan/100*124+xuex,xuey+5,FFBCC1,2
Else
//判断角色蓝
//====因为是任意窗口坐标
//防止出错.Y向上+1 判断 -1 判断 各一次
If jsl=1
KeyPress 117,1
ElseIf jsl=2
KeyPress 118,1
EndIf
EndIf
EndIf
EndIf
//
IfColor chong/100*97+xuex+27,xuey+39,96A2ff,2
Else
IfColor chong/100*97+xuex+27,xuey+40,96A2ff,2
Else
IfColor chong/100*97+xuex+27,xuey+38,96A2ff,2
Else
//判断宠物红
//====因为是任意窗口坐标
//防止出错.Y向上+1 判断 -1 判断 各一次
If cwu=1
KeyPress 119,1
ElseIf cwu=2
KeyPress 120,1
EndIf
EndIf
EndIf
EndIf
Return 红蓝
Sub 任意窗口位置
Plugin WRect=Window.GetWindowRect(hwnd)
WinArray=Split(WRect,"|",-1,1)
s=WinArray(0):x=WinArray(1):sz=WinArray(2):xy=WinArray(3)
hx=s+249:hy=x+58:tsx=hx:tsy=hy:txx=hx+125:txy=hy+6
xuex=s+67:xuey=x+60
xuey=xuey-1
//=========调节坐标.得到窗口四个角坐标
//在进行偏移
Return 任意窗口位置
Sub 一分钟检查一次
If datediff("s",shag,time)=>60
IfColor s+250,x+60,96A2FF,2
TI_ME=time
XS=TI_ME&" 可以正常打怪"
shag=time
Else
IfColor s+250,x+61,96A2FF,2
TI_ME=time
XS=TI_ME&" 可以正常打怪"
shag=time
EndIf
EndIf
EndIf
//====判断有没有出现怪物的方框
//也就是怪的头像
Return 一分钟检查一次