脚本附件:
运行环境:分辨率:1280×800 色深:32位 操作系统:Microsoft Windows XP 按键精灵版本:7.12.5013
@piaoliuxia 2009/11/18
//开心宝贝后台跳绳 //V1.0 //2009.10.30 //漂流侠 //hi.baidu.com/piaoliuxia //QQ:277058507 //--------------------------------------------- //以下是自定义变量 UserVar PetColor=2BBFEF 宝贝身上的特征颜色 UserVar RopeColor=000099 绳子变化时颜色(一般不动) UserVar SearchArea="20|120|750|400" 查色范围(左上角、右下角坐标) //UserVar FeedPet=DropList{否:0|是:1}=0 是否主动喂食 UserVar FoodXY="400|580" 食物坐标 UserVar HealthXY="730|330" 健康度坐标(需要补食位置) UserVar FeedDelay=7000 宝贝吃饭花费时间 UserVar DelayTime=50 延迟时间 UserVar TryCount=5 尝试自动跳绳次数 UserVar LogFile="C:\RopeLog.txt" 跳绳记录位置 Dim Hwnd Dim FlagOver //------------- Rect=Split(SearchArea,"|") X1=CInt(Rect(0)) Y1=CInt(Rect(1)) X2=CInt(Rect(2)) Y2=CInt(Rect(3)) //取得鼠标所在窗体句柄 Plugin Hwnd=Window.MousePoint() //初始化结束标志 FlagOver=0 Plugin startTime =GetSysInfo.GetTime() text= "-----------开始时间"&Time&"计划自动起跳"&TryCount&"次-----------!" Plugin File.WriteFileEx(LogFile, text) m=1 For TryCount Plugin T1 =GetSysInfo.GetTime() //检测是否有弹出对话框阻挡,如果有,就点击关闭 Plugin PopDialog = Bkgnd.FindColor(Hwnd,225,270,520,385,"FFCC00") If PopDialog <> "-1|-1" PopXY= split(PopDialog,"|") PopX=CInt(PopXY(0)) PopY=CInt(PopXY(1)) Plugin Bkgnd.LeftClick(Hwnd,PopX,PopY) EndIf // //开始引导宝贝拿绳子准备起跳 Gosub 自动引导宝贝跳绳 // n=0 While FlagOver =0 Gosub 一次跳绳过程 If FlagOver=0 n=n+1 EndIf EndWhile Plugin T2 =GetSysInfo.GetTime() T=round((T2-T1)/1000/60,1) n=round(n/1.6,0) text = "第 "&m&" 次:结束时间"&Time&" 本次共运行了"&T&"分钟,跳了 "&n&" 下(估计值)" //下面这句是向目标文件(LogFile)写入文本内容(text) Plugin File.WriteFileEx(LogFile, text) m=m+1 EndFor EndScript //脚本运行结束 Sub 一次跳绳过程 Plugin UseTime1 =GetSysInfo.GetTime() Rem 查是否可起跳 Delay DelayTime Plugin EnableJump = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,RopeColor) If EnableJump <> "-1|-1" //如果可以起跳,则查找宝贝身上的特征色 Delay 50 Plugin FindPet = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,PetColor) If FindPet <> "-1|-1" //如果找到宝贝位置,则后台发送鼠标左键点击 PetPos=split(FindPet,"|") PetX=CInt(PetPos(0)) PetY=CInt(PetPos(1)) Plugin Bkgnd.LeftClick(Hwnd, PetX, PetY) EndIf Else Plugin UseTime2 =GetSysInfo.GetTime() UseTime = UseTime2-UseTime1 If UseTime < 5000 Goto 查是否可起跳 Else FlagOver = 1 EndIf EndIf Return 一次跳绳过程 //尝试自动引导宝贝喂食、跳绳 Sub 自动引导宝贝跳绳 Rem 把食物、绳子拿给宠物 HealthArray=split(HealthXY,"|") HealthX=CInt(HealthArray(0)) HealthY=CInt(HealthArray(1)) Plugin HealthColor = Bkgnd.GetPixelColor(Hwnd,HealthX,HealthY) If HealthColor <> "3833EE" //喂食 Plugin FindPet = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,PetColor) If FindPet <> "-1|-1" PetPos=split(FindPet,"|") PetX=CInt(PetPos(0)) PetY=CInt(PetPos(1)) FoodArray=split(FoodXY,"|") FoodX=CInt(FoodArray(0)) FoodY=CInt(FoodArray(1)) Plugin Bkgnd.LeftClick(Hwnd,130,390) Delay 200 Plugin Bkgnd.LeftDown(Hwnd, FoodX, FoodY) //Delay 200 Plugin Bkgnd.MoveTo(Hwnd, PetX, PetY) Delay 200 Plugin Bkgnd.LeftClick(Hwnd, PetX, PetY) Delay FeedDelay EndIf EndIf Plugin FindPet = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,PetColor) If FindPet <> "-1|-1" PetPos=split(FindPet,"|") PetX=CInt(PetPos(0)) PetY=CInt(PetPos(1)) //拿绳子 Plugin Bkgnd.LeftClick(Hwnd,130,390) Delay 200 Plugin Bkgnd.LeftDown(Hwnd, 400, 520) //Delay 200 Plugin Bkgnd.MoveTo(Hwnd, PetX, PetY) Delay 200 Plugin Bkgnd.LeftClick(Hwnd, PetX, PetY) Delay 500 Plugin Bkgnd.LeftClick(Hwnd,130, 390) FlagOver=0 Else FlagOver=1 EndIf Return 自动引导宝贝跳绳 Sub OnScriptExit Plugin T2 =GetSysInfo.GetTime() T=round((T2-T1)/1000/60,1) n=round(n/1.6,0) text = "第 "&m&" 次:结束时间"&Time&" 本次共运行了"&T&"分钟,跳了 "&n&" 下(估计值)" //下面这句是向目标文件(LogFile)写入文本内容(text) Plugin File.WriteFileEx(LogFile, text) Plugin EndTime =GetSysInfo.GetTime() TotalTime=round((EndTime-StartTime)/1000/60,0) text= "----结束!"&Time&" 共经过"&TotalTime&"分钟,实际尝试自动起跳"&m&"次" //下面这句是向目标文件(LogFile)写入文本内容(text) Plugin File.WriteFileEx(LogFile, text) MessageBox "脚本运行结束!快看看创造的记录吧~~" VBSCall RunApp(LogFile) Return
精灵宝贝后台
甜心脚本
开心宝贝有后台