按键精灵

按键精灵
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 一分钟检查一次