安键精灵 脚本源码 天龙八部采矿[策划]

安键精灵 脚本源码 天龙八部采矿[策划] 安键精灵 脚本源码 天龙八部采矿 //******【?查是否有"c:\天龙9部.xls"，存在则跳过，无则建?】****** IsFile = Plugin.File.IsFileExit("c:\天龙9部.xls") If IsFile = True Then Goto 已建 End If //?判断"c:\天龙8部.xls"是否存在，如存在，则跳过。 Set oexcel = CreateObject("Excel.Application")//建立对象 oexcel.Visible=true//设置为flase时，看不到界面 oexcel.Workbooks.add//也可使用oexcel.workbooks.open("路径")打开工作表 set osheet=oexcel.workbooks(1).worksheets("sheet1")//建立(选择表页)对象 osheet.activate//设为活动 osheet.cells(1,1)="1024*768屏路径(客户区)坐标X"//路径设置 osheet.cells(1,2)="1024*768屏路径(客户区)坐标Y"//路径设置 osheet.cells(1,3)="800*600屏路径(客户区)坐标X"//路径设置 osheet.cells(1,4)="800*600屏路径(客户区)坐标Y"//路径设置 osheet.cells(1,5)="第几路径坐标停止采矿"//采矿钓鱼转换点变量 osheet.cells(1,6)="钓鱼点岸边(游戏)坐标X"//钓鱼点设置岸边 osheet.cells(1,7)="钓鱼点岸边(游戏)坐标Y"//钓鱼点设置岸边 osheet.cells(3,6)="钓鱼点水中(游戏)坐标X"//钓鱼点设置水中 osheet.cells(3,7)="钓鱼点水中(游戏)坐标Y"//钓鱼点设置水中 osheet.cells(5,6)="商人(游戏)坐标X"//商人坐标设置 osheet.cells(5,7)="商人(游戏)坐标Y"//商人坐标设置 osheet.cells(7,6)="游医(游戏)坐标X"//游医坐标设置 osheet.cells(7,7)="游医(游戏)坐标Y"//游医坐标设置 osheet.cells(9,6)="中转点(游戏)坐标X"//中转点坐标设置 osheet.cells(9,7)="中转点(游戏)坐标Y"//中转点坐标设置 osheet.saveAs("c:\天龙9部.xls") oexcel.workbooks.close//关闭工作表 oexcel.quit//退出对象 Set oexcel = Nothing//释放excel进程 Rem 已建 //******【?在电脑桌面建立挂机 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 ?】****** IsFile = Plugin.File.IsFileExit("C:\Documents and Settings\Administrator\桌面\采矿记录.txt") If IsFile <> True Then 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(x & "\采矿记录.txt") //?写一个TXT到桌面 //?判断挂机记录.txt是否存在，如不存在，则建立。 myfile.writeline (now & " ? 挂机开始时间" ) myfile.Close End If //******【?下面判断坐骑图片是否存在(IsFile)?】****** IsFile1 = Plugin.File.IsFileExit("C:\坐骑1.bmp") IsFile2 = Plugin.File.IsFileExit("C:\坐骑2.bmp") If IsFile1 = False and IsFile2 = False Then MessageBox "c:\坐骑1.bmp或c:\坐骑2.bmp不存在，请截取坐骑图片，再开启此工具。" EndScript End If //******【?锁定当前窗口,得到客户区大小(共公部份)?】****** Dimenv Lx, Ty, Rx, By, Hwnd //?定义全局变量,"左":Lx ,"右":Rx,"上":Ty,"下":By Hwnd = Plugin.Window.Foreground() Call Plugin.Window.Active(Hwnd) //?下面这句是得到窗口句柄的客户区大小 sRect = Plugin.Window.GetClientRect(Hwnd) //?下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串 dim MyArray MyArray = Split(sRect, "|") //?下面这句将字符串转换成数值 Lx = Clng(MyArray(0)): Ty = Clng(MyArray(1)) Rx = Clng(MyArray(2)) : By = Clng(MyArray(3)) //******【?定义鼠标形状代码数值(共公部份)?】****** UserVar mining=1825347698 "鼠标形状代码(采矿)" UserVar unpack=1869203251 "鼠标形状代码(开包/箱)" UserVar fisher=1314130887 "鼠标形状代码(钓鱼)" UserVar finger=130767900 "鼠标形状代码(手指)" UserVar chatdm=302826352 "鼠标形状代码(对话)" UserVar searchn=5 "鼠标移动搜圈数" //******【?定义自定义变量(共公部份)?】****** UserVar netdrop=DropList{"掉网重连":"0"|"掉网关机":"1"}=0 "掉网?操作" UserVar closet=12 "挂机?小时后关机" UserVar twait=2 "钓鱼?等?小时?采矿" UserVar xuet=10 "加血药耗用时间(秒)" //******【?定义环境变量(共公部份)?】****** Dimenv bagk, swichk //?包满开关<0:否,1:是>,?转换开关<0:初始化,1:采矿,2:钓鱼，3:回城，4:出城，5:转换> bagk = 0 swichk = 0 //?转换开关<0:初始化,1:采矿,2:钓鱼，3:回城，4:出城，5:转换> Dimenv movek //?移动开关<0:初始化,1:移动，2:停下> movek = 0 //?移动开关<0:初始化,1:移动，2:停下> Dimenv pcnet, relink pcnet = netdrop //?掉网选项<0:重连，1关机> relink = 0 //?掉网重连标记<0:没重连,1:已重连> Dimenv tcolse, tbegin tcolse = closet //?挂机?小时后关机 tbegin = now //?挂机开始时间设置 Dimenv fisht fisht=twait //?(钓鱼?等?小时?采矿) Dimenv tempx, tempy, tempn //?读坐标参数(EXCEL表第一行为标题) Dimenv number, getx, gety, numx1, numx2, numy1, numy2 //?定义读取坐标数字参数 Dimenv minex, miney //?minex矿点X坐标，miney矿点Y坐标 Dimenv wrongn //?采矿失败次数(防卡住):同时也作为钓鱼失败和清包失败防卡参数 DimEnv findn //?搜矿次数(防卡限定) DimEnv findx //?搜矿次数(掉网限定) //※※※※※※【?下面为自动寻路编辑区?】※※※※※※ Call 查场景() //※※※※※※【?下面为挂机保障编辑区?】※※※※※※ 线程ID = BeginThread(双线程) //※※※※※※【?下面为采矿脚本编辑区?】※※※※※※ Rem 采矿起点 Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\采矿记录.txt",now & " ? 开始 采矿") swichk = 1 //?转换开关<0:初始化,1:采矿,2:钓鱼，3:回城，4:出城，5:转换> wrongn = 0 //?采矿失败次数(防卡住) Call 查坐标() //?初巡矿，赋予坐标值 Rem 循1环 Call 寻矿点() Call 定矿点() Call 搜挖矿() Goto 循1环 //※※※※※※【?下面为钓鱼脚本编辑区?】※※※※※※ Rem 钓鱼起点 If swichk = 5 Then //?转换开关<0:初始化,1:采矿,2:钓鱼，3:回城，4:出城，5:转换> Delay 1000 Goto 钓鱼起点 //?此处是等待人物循采矿路径，回到钓鱼点岸边 Else //?转换开关<0:初始化,1:采矿,2:钓鱼，3:回城，4:出城，5:转换> Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\采矿记录.txt",now & " ? 开始 钓鱼") Goto 准备钓鱼 End If Rem 准备钓鱼 swichk = 2 //?转换开关<0:初始化,1:采矿,2:钓鱼，3:回城，4:出城，5:转换> wrongn=0 //钓鱼失败防卡 Dim landx, landy, waterx, watery Dim tfish tfish = now Dim foodk foodk = 0 //?鱼食开关<1:有，0:无> Call 查渔点() Rem 循环钓鱼 minex=landx miney=landy Call 写坐标() Call 辨移动() If DateDiff("h", tfish, now) >= fisht Then swichk = 0 //?转换开关<0:初始化,1:采矿,2:钓鱼，3:回城，4:出城，5:转换> movek = 0 //?移动开关<0:初始化,1:移动，2:停下> Delay 1000 Goto 采矿起点 //?回起采矿起点，新的(采矿?钓鱼?采矿)循环。 End If Call 下坐骑() Call 人输血() minex=waterx miney=watery Call 写坐标() Call 辨移动() Call 鱼食() Call 钓渔() Call 检包() If bagk = 1 and relink = 0 Then //?包满开关<0:否,1:是>,?掉网重连标记<0:没重连,1:已重连> swichk = 0 //?转换开关<0:初始化,1:采矿,2:钓鱼，3:回城，4:出城，5:转换> movek = 0 //?移动开关<0:初始化,1:移动，2:停下> Delay 1000 Goto 回城起点 //?这过程中，双线程继续 //?包满且未曾断网时，就回城清包吧 End If Goto 循环钓鱼 //※※※※※※【?下面为回城脚本编辑区?】※※※※※※ Rem 回城起点 If swichk = 5 Then //?转换开关<0:初始化,1:采矿,2:钓鱼，3:回城，4:出城，5:转换> Delay 1000 Goto 回城起点 //?此处是等待人物循采矿路径，回到钓鱼点岸边 Else //?转换开关<0:初始化,1:采矿,2:钓鱼，3:回城，4:出城，5: 转换> Call Plugin.File.WriteFileEx("C:\Documents and Settings\Administrator\桌面\采矿记录.txt",now & " ? 开始 回城") Goto 准备回城 End If Rem 准备回城 swichk = 3 //?转换开关<0:初始化,1:采矿,2:钓鱼，3:回城，4: 出城，5:转换> bagk = 0 //?包满开关<1:是，0:否> Call tab开检() Delay 1000 //?测汪旱的“旱”，看是否已在洛阳 If Rx > 1020 Then XY=Plugin.Color.FindShape(Lx +867,Ty +274,Lx +904,Ty +324,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|0,8|0|0,-2|1|0,-1|1|0,0|1|1,1|1|0,2|1|0,3|1|0,4|1|0,5|1|0,6|1|1,7|1|0,8|1|0,-2|2|0,-1|2|0,0|2|1,1|2|1,2|2|1,3|2|1,4|2|1,5|2|1,6|2|1,7|2|0,8|2|0,-2|3|0,-1|3|0,0|3|1,1|3|0,2|3|0,3|3|0,4|3|0,5|3|0,6|3|1,7|3|0,8|3|0,-2|4|0,-1|4|0,0|4|1,1|4|1,2|4|1,3|4|1,4|4|1,5|4|1,6|4|1,7|4|0,8|4|0,-2|5|0,-1|5|0,0|5|0,1|5|0,2|5|0,3|5|0,4|5|0,5|5|0,6|5|0,7|5|0,8|5|0,-2|6|0,-1|6|1,0|6|1,1|6|1,2|6|1,3|6|1,4|6|1,5|6|1,6|6|1,7|6|1,8|6|0,-2|7|0,-1|7|0,0|7|0,1|7|0,2|7|0,3|7|1,4|7|0,5|7|0,6|7|0,7|7|0,8|7|0,-2|8|1,-1|8|1,0|8|1,1|8|1,2|8|1,3|8|1,4|8|1,5|8|1,6|8|1,7|8|1,8|8|1,-2|9|0,-1|9|0,0|9|0,1|9|0,2|9|0,3|9|1,4|9|0,5|9|0,6|9|0,7|9|0,8|9|0,-2|10|0,-1|10|0,0|10|0,1|10|0,2|10|0,3|10|1,4|10|0,5|10|0,6|10|0,7|10|0,8|10|0",0.8) ElseIf Rx > 1000 Then XY=Plugin.Color.FindShape(Lx +859,Ty +274,Lx +896,Ty +324,"1|0|1,2|0|1,3|0|1,4|0|1,5|0|1,6|0|1,7|0|0,8|0|0,-2|1|0,-1|1|0,0|1|1,1|1|0,2|1|0,3|1|0,4|1|0,5|1|0,6|1|1,7|1|0,8|1|0,-2|2|0,-1|2|0,0|2|1,1|2|1,2|2|1,3|2|1,4|2|1,5|2|1,6|2|1,7|2|0,8|2|0,-2|3|0,-1|3|0,0|3|1,1|3|0,2|3|0,3|3|0,4|3|0,5|3|0,6|3|1,7|3|0,8|3|0,-2|4|0,-1|4|0,0|4|1,1|4|1,2|4|1,3|4|1,4|4|1,5|4|1,6|4|1,7|4|0,8|4|0,-2|5|0,-1|5|0,0|5|0,1|5|0,2