�

#这是按键精灵生成的脚本源文件
#在理解各条命令的基础上，您可以修改这个文件的内容
#您修改的结果将会在普通视图上有所反映
 
//*********************************************************
//************************主 程 序***********************
//*********************************************************
//说一句等等等，此句可修改，勿删除
SayExpression ".."
KeyPress 13 1
//用户变量定义申明
VBS Dim CurMapID,MonHpColor(10)
VBS Dim MaxFindCount,DoctorDistance,RunToFightType
VBS Dim FightHere,FightX,FightY,HpMpNumColor
VBS Dim zRedPos,zBluePos,zRunPos
//*****************************************************************************
//***************************************玩家可修改，补红、补蓝、低血逃跑点
//***************************************计算公式：对(21＋百分比×123)取整
VBS zRedPos=111
VBS zBluePos=81
VBS zRunPos=31
//***************************************玩家可修改，定点挂机范围
VBS DoctorDistance=48
//***************************************玩家可修改，就地打怪开关设置
VBS FightHere=1
//***************************************玩家可修改，红、蓝快捷上的数字颜色
VBS HpMpNumColor="B5CB87"
//***************************************玩家可修改，搜索多少次不见怪物，则回原点
VBS MaxFindCount=60
//***************************************玩家可修改，回战斗点方式，跑或者用土
//[ 0 ] 按照Fight001.ini文件里的行进路线跑到战斗点
//[ 1 ] 使用土符回到你的记录点，尚未制作
VBS RunToFightType=0
//***************************************玩家可修改，挂机场景定义
//[ 0 ] 可挂一般野外地图
//[ 1 ] 可挂地灵洞
//[ 2 ] 可挂血魔洞
//[ 3 ] 可挂万寿阁
//[ 4 ] 可挂无天阁
//**********************
VBS CurMapID=0
//***************************************玩家可修改，怪物血条颜色
//***************************************场景不同，血条取点颜色可能不同
//***************************************找到血条在屏幕中比较容易分辩的颜色
VBS MonHpColor(0)="95ECF4"
VBS MonHpColor(1)="95ECF4"
VBS MonHpColor(2)="95ECF4"
VBS MonHpColor(3)="95ECF4"
VBS MonHpColor(4)="95ECF4"
//****************************************************************************
VBS Dim objFM,lngCount
VBS Set objFM=CreateObject("QMDispatch.QMFunction")
//全局大变量定义
VBS Dim CurMapName,DirectSN,zR,zB,zT,zY
VBS Dim ActionFlag,lngOffsetX,lngOffsetY
VBS Dim ScreenWidth,ScreenHeight,CenterX,CenterY,strDotFile
VBS CurMapName="未知"
//读取屏幕分辨率
VBSCall GetScreenResolution(ScreenWidth,ScreenHeight)@<FindMon.vbs>
VBS CenterX=(ScreenWidth\2)-1
VBS CenterY=(ScreenHeight\2)-1
MoveTo CenterX CenterY
VBS DirectSN=1:FightX=0:FightY=0
VBS zR=0:zB=0:zT=0:zY=0
//读取设置血条位置
VBSCall GetHpMpPos()@<FindMon.vbs>
//判断一下血值
VBSCall GetCurHP()@<FindMon.vbs>
If zT=1
 KeyPress 116 1
 Delay 100
EndIf 
If zR=1
 KeyPress 116 1
 Delay 200
EndIf 
//根据分辨率确定怪物扫描点文件
VBS strDotFile="ScanDot.ini"
//调整视图界面为俯视并拖小聊天栏
Gosub DragChat
Gosub LookDown
VBS lngOffsetX=0:lngOffsetY=0
//打怪变量定义
VBS Dim MonX,MonY,MonFound,x,y,mN
VBS Dim nNotFound,InCity
VBS Dim DotX(704),DotY(704),lngScanDots,strIniFile
VBS lngScanDots=703:strIniFile="Fight001.ini":mN=0


//判断一下血值
VBSCall GetCurHP()@<FindMon.vbs>
If zT=1
 KeyPress 116 1
 Delay 100
EndIf 
If zR=1
 KeyPress 116 1
 Delay 200
EndIf 
//获取扫描点
VBSCall GetDotFromTXT(strDotFile)@<FindMon.vbs>
//判断一下当前血值
VBSCall GetCurHP()@<FindMon.vbs>
If zT=1
 KeyPress 116 1
 Delay 100
EndIf 
If zR=1
 KeyPress 116 1
 Delay 200
EndIf 
//图像判断变量定义
VBS Dim picRED,picBlue,picQG,picBag(36),BagN,BagX,BagY
//行走变量定义
VBS Dim TargetX,TargetY
VBS Dim CurX,CurY,lngDirectX,lngDirectY,ix,iy,nx,ny
VBS Dim lngDistanceX,lngDistanceY,lngPreX,lngPreY,blnWalk
//补给变量定义
VBS Dim ToNpcStoreX(4),ToNpcStoreY(4),ToNpcSaleX(4),ToNpcSaleY(4)
VBS Dim lngCurNum,lngLen,lngI,lngChar
//变量初始化
VBS lngLen=0:lngI=0:lngCurNum=0:lngChar=0
VBS InCity=0:ActionFlag="FightOrSupply"
VBS MonX=0:MonY=0:mFound=0:nNotFound=0:mN=0
VBS x=0:y=0:CurX=0:CurY=0
VBS TargetX=0:TargetY=0
VBS picRed=0:picBlue=0:picQG=0
//判断玩家位置，记录当前战斗点
VBSCall JudgeInCity()@<FindMon.vbs>
If InCity=0
 VBS FightX=CurX
 VBS FightY=CurY
Else 
 VBSCall GetFightDot(strIniFile)@<FindMon.vbs>
 VBS FightX=TargetX
 VBS FightY=TargetY
EndIf 
//判断一下当前血值
VBSCall GetCurHP()@<FindMon.vbs>
If zT=1
 KeyPress 116 1
 Delay 100
EndIf 
If zR=1
 KeyPress 116 1
 Delay 20
EndIf 
//提示玩家当前位置，开始自动操作
If InCity=1
 SayExpression CurMapName+"里("+CStr(CurX)+","+CStr(CurY)+"),李大人开始操作..."
Else 
 SayExpression CurMapName+"外("+CStr(CurX)+","+CStr(CurY)+"),李大人开始操作..."
EndIf 
Delay 100
//如果坐标报出错误，提示玩家存在机器色差，可能需要重新抓色，菜鸟勿动
If CurX=0 And CurY=0
 KeyPressH 38
 Delay 200
 SayExpression "读出坐标为(0,0),没有小地图或者存在机器色差."
EndIf 
//判断一下当前血值
VBSCall GetCurHP()@<FindMon.vbs>
If zT=1
 KeyPress 116 1
 Delay 100
EndIf 
If zR=1
 KeyPress 116 1
 Delay 200
EndIf 
Delay 500
//***************************************************************挂机主程序开始
//***************************************************************挂机主程序开始
//***************************************************************挂机主程序开始
Rem Begin
If InCity=0
 If MonFound>0
 MoveTo CenterX ScreenHeight-22
 VBSCall FindMonIsDie(MonX-60,MonY-100,MonX+60,MonY+100,MonHpColor(CurMapID),1,0.9,MonX,MonY)@<FindMon.vbs>
 If MonFound>0
 KeyPress 113 1
 Delay 200
 EndIf 
 EndIf 
 While MonFound=0 And nNotFound<=MaxFindCount
 MoveTo CenterX 5
 MiddleClick 1
 Delay 300
 VBSCall FindMonster(CurMapID)@<FindMon.vbs>
 If MonFound=1
 LeftClick 1
 VBSCall FindMonBeClicked(MonX-100,MonY-160,MonX+100,MonY+160,MonHpColor(CurMapID),1,0.9,MonX,MonY)@<FindMon.vbs>
 KeyPress 113 1
 Delay 200
 EndIf 
 If zR=1
 KeyPress 116 1
 Delay 300
 EndIf 
 Delay 200
 VBSCall JudgeCurDistance()@<FindMon.vbs>
 EndWhile 
 If nNotFound>MaxFindCount
 nNotFound=0
 MonFound=0
 Gosub WalkToXY
 EndIf 
 MoveTo ScreenWidth-430 ScreenHeight-22
 VBSCall GetCurAll()@<FindMon.vbs>
 If zT=1
 KeyPress 119 1
 Delay 200
 KeyPressH 38
 Delay 200
 SayExpression "血太低或红、蓝药少，准备回城..."
 Delay 9000
 VBSCall JudgeInCity()@<FindMon.vbs>
 EndIf 
 If zR=1
 KeyPress 116 1
 Delay 100
 EndIf 
 Delay 100
 If zB=1
 KeyPress 117 1
 Delay 100
 EndIf 
Else 
 Delay 2000
 //Gosub Back
EndIf 
Delay 100
Goto Begin
EndScript 
//***************************************************************挂机主程序结束
//***************************************************************挂机主程序结束
//***************************************************************挂机主程序结束
//*
//*
//************************************************************
//*************判断血蓝、轻功、药品剩余子程序*****************
//************************************************************
Sub JudgeAll
 VBSCall GetCurAll()@<FindMon.vbs>
 If zR=1
 KeyPress 116 1
 Delay 100
 EndIf 
 If zT=1
 KeyPress 119 1
 Delay 200
 KeyPressH 38
 Delay 200
 SayExpression "血太低或红、蓝药少，准备回城..."
 Delay 9000
 VBSCall JudgeInCity()@<FindMon.vbs>
 EndIf 
 If zB=1
 KeyPress 117 1
 Delay 100
 EndIf 
 If picQG=0
 KeyPress 120 1
 EndIf 
Return JudgeAll

还没完呢。老大。。。。以下内容接�

老大不让发了？？？？？？

晕忽忽~

晕。发了半个挂机程序。提示说。。。贴吧审核中。。。�

本程序为读颜色，不读内存。提示说。。。贴吧审核中。。。�

//************************************************************
//******************定点坐标行走子程序************************
//************************************************************
Sub WalkToXY
 KeyPressH 38
 Delay 200
 SayExpression "目标点("+CStr(TargetX)+","+CStr(TargetY)+")..."
 Gosub JudgeAll
 VBS lngPreX=0
 VBS lngPreY=0
 VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
 SayExpression "("+CStr(CurX)+","+CStr(CurY)+")"
 VBSCall GetWalkSteps()@<FindMon.vbs>
 While blnWalk=1
 While blnWalk=1
 VBSCall GetNextClick()@<FindMon.vbs>
 MoveTo MonX MonY
 Delay 100
 LeftClick 1
 Delay 400
 If InCity=0
 VBSCall FindPic(CenterX-50,CenterY-220,CenterX,CenterY-190,"_NPC_对话.bmp",0.9,MonX,MonY)
 If MonX>0 And MonY>0
 KeyPress 27 1
 Delay 500
 EndIf 
 EndIf 
 EndWhile 
 VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
 SayExpression "("+CStr(CurX)+","+CStr(CurY)+")"
 VBSCall GetWalkSteps()@<FindMon.vbs>
 Gosub JudgeAll
 If InCity=0
 VBSCall FindPic(CenterX-50,CenterY-220,CenterX,CenterY-190,"_NPC_对话.bmp",0.9,MonX,MonY)
 If MonX>0 And MonY>0
 KeyPress 27 1
 Delay 500
 EndIf 
 EndIf 
 EndWhile 
 VBSCall GetCurHP()@<FindMon.vbs>
 If zT=1
 KeyPress 116 1
 Delay 100
 EndIf 
 If zR=1
 KeyPress 116 1
 Delay 100
 EndIf 
 KeyPressH 38
 Delay 100
Return WalkToXY
//************************************************************
//*********************清理包裹中的盒子***********************
//************************************************************
Sub ClearBag
 MoveTo 270 ScreenHeight-22
 Delay 100
 LeftClick 1
 Delay 300
 VBSCall GetAllOfBag()@<FindMon.vbs>
 VBS BagN=3:BagX=0:BagY=0
 While BagN<36
 VBS BagX=(BagN Mod 6)*33+(ScreenWidth-210)
 VBS BagY=(BagN\6)*33+366
 MoveTo BagX BagY
 Delay 100
 If picBag(BagN)=1
 RightClick 1
 Delay 300
 EndIf 
 VBS BagN=BagN+1
 EndWhile 
 KeyPress 27 1
 Delay 400
Return ClearBag
//************************************************************
//******************拖动聊天窗口子程序************************
//************************************************************
Sub DragChat
 //这里只是借用一下ActionFlag变量
 VBSCall ActionFlag=GetPixelColor(8,ScreenHeight-211)
 If ActionFlag="FFFFFF"
 VBSCall ActionFlag=GetPixelColor(8,ScreenHeight-210)
 If ActionFlag="FFFFFF"
 MoveTo 8 ScreenHeight-209
 Delay 200
 LeftDown 1
 Delay 400
 MoveR 0 100
 Delay 200
 LeftUp 1
 EndIf 
 EndIf 
 Delay 400
 VBSCall FindPic(ScreenWidth-50,173,ScreenWidth-5,191,"_Bag关闭.bmp",0.9,x,y)
 If x>0 And y>0
 KeyPress 27 1
 Delay 400
 EndIf 
Return DragChat
//************************************************************
//********************调整为俯视子程序************************
//************************************************************
Sub LookDown
 MoveTo CenterX 30
 Delay 200
 RightDown 1
 Delay 400
 MoveR 0 620
 Delay 200
 RightUp 1
 Delay 400
 MoveTo CenterX CenterY
 Delay 200
Return LookDown

//************************************************************
//********************回城补给子程序**************************
//************************************************************
Sub Back
 KeyPressH 38
 Delay 200
 SayExpression "开始自动补给程序..."
 //清理包裹的宝盒
 Gosub ClearBag
 //走到药店老板附近
 VBS mN=0:MonX=0:MonY=0:MonFound=0
 VBS lngCount=0
 While lngCount<5
 VBS TargetX=ToNpcSaleX(lngCount)
 VBS TargetY=ToNpcSaleY(lngCount)
 If TargetX<>0 Or TargetY<>0
 Gosub WalkToXY
 EndIf 
 VBS lngCount=lngCount+1
 EndWhile 
 //找到药店老板
 While MonFound=0
 VBS TargetX=ToNpcSaleX(4)
 VBS TargetY=ToNpcSaleY(4)
 Gosub WalkToXY
 VBSCall FindNPC()@<FindMon.vbs>
 If MonX>0 And MonY>0
 LeftClick 1
 Delay 500
 VBSCall FindPic(CenterX-50,CenterY-220,CenterX,CenterY-190,"_NPC_对话.bmp",0.9,MonX,MonY)
 If MonX>0 and MonY>0
 MonFound=1
 EndIf 
 EndIf 
 Delay 200
 EndWhile 
 //点击买卖
 MonX=MonX+35
 MonY=MonY+294
 MoveTo MonX MonY
 Delay 200
 LeftClick 1
 Delay 500
 //卖东西,如果有卖出确认则点取消
 VBS BagN=3:BagX=0:BagY=0
 While BagN<36
 VBS BagX=(BagN Mod 6)*33+ScreenWidth-210
 VBS BagY=(BagN\6)*33+366
 MoveTo BagX BagY
 Delay 100
 If picBag(BagN)=0
 LeftClick 1
 Delay 300
 MoveTo CenterX+16 CenterY+84
 Delay 100
 LeftClick 1
 Delay 400
 VBSCall FindPic(CenterX+6,170,CenterX+51,195,"_NPC_取消.bmp",0.9,MonX,MonY)
 If MonX>0 And MonY>0
 MonX=MonX+18
 MonY=MonY+6
 MoveTo MonX MonY
 Delay 100
 LeftClick 1
 Delay 300
 picBag(BagN)=2
 EndIf 
 EndIf 
 VBS BagN=BagN+1
 EndWhile 
 //买够药品---500个红
 VBSCall lngCurNum=GetCurHpMpNum(0)@<FindMon.vbs>
 VBS lngCurNum=500-lngCurNum
 If lngCurNum>0
 MoveTo CenterX-84 CenterY-141
 Delay 100
 LeftClick 1
 Delay 300
 MoveTo ScreenWidth-210 370
 Delay 100
 LeftClick 1
 Delay 300
 VBS lngLen=Len(CStr(lngCurNum))
 VBS lngI=1
 While lngI<=lngLen
 VBS lngChar=Asc(Mid(CStr(lngCurNum),lngI,1))
 KeyPress lngChar 1
 Delay 300
 VBS lngI=lngI+1
 EndWhile 
 Delay 100
 KeyPress 13 1
 Delay 300
 EndIf