关于按键精灵一个很简单的问题，我录制了一个一直循环的脚本，但是里面有一项问题：循环脚本里面有段时间是下载东西。这段时间有时长10秒钟有时是一分钟不等，所以运行脚本的时候如果时间不正确的话，脚本就乱跑了？请问怎么解决？可不可以从图片上面入手？求高手。下面附图！如果能解决可追加分！！
var sogou_ad_id=731549;
var sogou_ad_height=160;
var sogou_ad_width=690;西西软件园多重安全检测下载网站、值得信赖的软件下载站！
→ 按键精灵怎么用_简易使用教程
v3.0 绿色免费版
类型：游戏辅助大小：720KB语言：中文 评分：2.1
是一款可以替代双手实现批量规律操作的实用软件，能给用户们带来更多的方便，省去不少精力，对于游戏玩家来说更是如此，只需要借用按键精灵创建一次脚本，就可以实现多次重复使用的目地。。按键精灵的核心是脚本，通过执行已制作好的脚本来完成批量、重复性的操作。因此制作脚本便成为掌握按键精灵的核心。今天小编给大家分享一下录制操作过程这个相对简单的方法，快来看看吧。使用方法:通过“录制操作过程”来制作脚本的方法：1.打开“按键精灵”程序，点击“工具栏”上的“录制”按钮，就开始创建一个脚本并录制鼠标键盘操作。2.接着在弹出的“录制键盘鼠标动作”面板中，点击红色的“开始录制”按钮，就开始记录键盘鼠标动作。3.在录制操作进行过程中，当我们需要暂停录制操作时，只需要点击“停止录制”按钮即可。4.当录制操作完成后，我们点击“保存退出”按钮，即可保存当前所录制的脚步并返回脚本界面。5.在返回的“我的脚本”界面中，在界面右侧将“脚本属性”栏目中的“描述”进行重命名，如“新建文本文件”等，并设置“启动热键”和“停止热键”，然后点击“保存退出”按钮。6.在返回的程序主界面中，就会发现已出现一个新的脚本文件，就是刚才通过录制操作所创建的。然后按“启用热键”就可以重复执行刚才所录制的操作啦。
西西软件园提供按键精灵官网下载，平时我们玩游戏经常需要重复的点击按键，为了键盘鼠标的寿命，我们使用按键精灵解放双手，无论是网游练级还是日常办公，只要在电脑前用双手可以完成的动作，按键精灵都可以替您完成定义一个热键，实现一系列的键盘按键动作鼠标点击动作鼠标移动动作输入字符串动作延迟动作。...
10-04 / 74.5M
推荐理由：放飞您的双手，点亮您的创意，自己做软件，就是这么简单！无论是网游练级还是日常办公，只要在电脑前用双手
05-04 / 582KB
推荐理由：一流按键精灵绿色版 自动按键器通用按键精灵可以帮你操作电脑.只要你在电脑前用双手可以完成的动作.通用按键
12-07 / 1020KB
推荐理由：手机按器是安卓平台的按键与触摸操作的录制软件，类似与pc平台的按键精灵，和塞班平台的手游助手，它能够录
07-18 / 811KB
推荐理由：鼠标连点器(按键精灵)
使用按键精灵制作的鼠标连点器，方便玩游戏或者频繁的进行鼠标点击操作时减轻自己的
07-10 / 720KB
推荐理由：dnf一键换装按键精灵[dnf一键换装]V3.0 绿色无毒版是一款使用按键精灵制作的一键换装辅助程序，使用它你只需
08-26 / 3.7M
推荐理由：蛮多人在找天天连萌刷分脚本，前面小编给大家带来过ios版的天天连萌脚本，现在继续给大家分享电脑版的天天连
07-0712-1601-2501-1701-1701-1701-1501-1301-1201-12
阅读本文后您有什么感想? 已有23人给出评价!
名称大小下载按键精灵怎么设置循环？按键精灵设置循环步骤
系列软件最新版本　　按键精灵怎么设置循环?大家可以通过下文来了解按键精灵设置循环步骤，按键精灵是一款模拟动作的软件，通过制作脚本，可以让按键精灵代替双手，那么我们该如何设置循环呢?&&&&&&&
按键精灵设置循环步骤 　　1、首先打开按键精灵，点击需要设置循环的脚本，再点击后方的【属性】　　2、在脚本循环下，可以输入循环的次数　　3、如果需要无限循环，选择中间的那个选项，脚本就会一直循环直到按下终止键，一般的终止键是【F12】　　4、如果需要修改终止按键，点击【修改热键】　　5、然后在输入框内进行修改　　6、还可以设置一定时间内进行循环，只要输入时间即可，然后点击保存设置即可　　7、还可以双击打开脚本　　8、点击左侧的【脚本属性】，同样可以设置循环
最新资讯离线随时看
聊天吐槽赢奖品
相关软件：
大小：1.95MB
授权：免费
大小：8.8 MB
授权：收费帖子239&精华0&积分240&豌豆0 &阅读权限30&在线时间79 小时&注册时间&最后登录&
【按键精灵脚本大全】
以下为搜集到的各种作用的脚本,希望对大家有所帮助,呵呵
【挂机脚本】
KeyPress 120 1
Delay 1000
Gosub 保护
VBSCall FindColorEx(20,103,320,274,&,1,x,y)
If x&=0 and y&=0
& & MoveTo x y
& & Delay 200
& & LeftDoubleClick 1
& & Delay 200
KeyPress 120 1
MoveTo 703 464
LeftClick 1
Delay 1000
Gosub 保护
VBSCall FindColorEx(20,103,320,274,&,1,x,y)
If x&=0 and y&=0
& & MoveTo x y
& & Delay 200
& & LeftDoubleClick 1
& & Delay 200
MoveTo 703 464
LeftClick 1
Gosub 保护
IfColor 998 722 a56e3a 0
& & MoveTo 208 752
& & Delay 1000
& & LeftClick 1
& & Delay 3000
Gosub 保护
& & VBSCall FindCenterColor(16,17,775,394,&ff0000&,x,y)
& & If x&=0 and y&=0
& && &&&KeyPress 112 1
& && &&&MoveTo x y
& && &&&Gosub 打怪步骤
& && &&&Gosub 拣物
& && &&&MoveTo 221 306
& && &&&LeftClick 1
& && &&&Delay 700
& && &&&Gosub 保护
& && &&&LeftClick 1
& && &&&Delay 700
& && &&&Gosub 保护
& && &&&LeftClick 1
& && &&&Delay 700
& && &&&Gosub 保护
& && &&&LeftClick 1
& && &&&Delay 700
& && &&&Gosub 保护
& && &&&LeftClick 1
& && &&&Delay 700
& && &&&Gosub 保护
& && &&&MoveTo 245 69
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&Gosub 保护
& && &&&MoveTo 605 12
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&Gosub 保护
& && &&&MoveTo 245 69
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&Gosub 保护
& && &&&MoveTo 605 12
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&Gosub 保护
& && &&&MoveTo 245 69
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&Gosub 保护
& && &&&MoveTo 605 12
& && &&&LeftClick 1
& && &&&Delay 1000
& && &&&Gosub 保护
Sub 打怪步骤
& & KeyDown 17 1
& & KeyPress 87 1
& & KeyUp 17 1
& & Delay 50
& & LeftClick 1
& & Delay 1500
Return 打怪步骤
& & IfColor 80 446 52525a 0
& && &&&MoveTo 778 16
& && &&&Delay 30
& && &&&KeyDown 112 1
& && &&&Delay 500
& && &&&KeyUp 112 1
Return 加血
& & For 15
& && &&&VBSCall FindColorEx(16,17,775,394,&05ffff&,1,0.9,x,y)
& && &&&If x&=0 and y&=0
& && && && &x0=x+100
& && && && &MoveTo x y
& && && && &Delay 100
& && && && &LeftClick 1
& && && && &Delay 500
& && && && &KeyPress 192 1
& && &&&Else
& && && && &Delay 50
& && &&&EndIf
& & EndFor
Return 拣物
& & IfColor 121 26 b5bdbd 0
& && &&&KeyDown 18 1
& && &&&KeyPress 88 1
& && &&&KeyUp 18 1
& && &&&Delay 300
& && &&&MoveTo 424 353
& && &&&Delay 30
& && &&&LeftClick 1
& && &&&Delay 60000
& && &&&MoveTo 406 464
& && &&&Delay 30
& && &&&LeftClick 1
& && &&&Delay 5000
& && &&&MoveTo 401 440
& && &&&Delay 30
& && &&&LeftClick 1
& && &&&Delay 6000
& && &&&MoveTo 648 461
& && &&&Delay 50
& && &&&RightClick 1
& & IfColor 79 487 5a636b 0
& && &&&KeyDown 18 1
& && &&&KeyPress 88 1
& && &&&KeyUp 18 1
& && &&&Delay 300
& && &&&MoveTo 424 353
& && &&&Delay 30
& && &&&LeftClick 1
& & IfColor 77 461 5a636b 0
& && &&&KeyDown 18 1
& && &&&KeyPress 88 1
& && &&&KeyUp 18 1
& && &&&Delay 300
& && &&&MoveTo 424 353
& && &&&Delay 30
& && &&&LeftClick 1
& && &&&Delay 300000
& && &&&MoveTo 406 464
& && &&&Delay 30
& && &&&LeftClick 1
& && &&&Delay 5000
& && &&&MoveTo 401 440
& && &&&Delay 30
& && &&&LeftClick 1
& && &&&Delay 5000
& && &&&MoveTo 648 461
& && &&&Delay 50
& && &&&RightClick 1
Return 保护
//大小地图比例
VBS scale=30
//小地图上的最大距离，可以保证人物与怪在一个屏幕
//人怪相邻时的距离
//纪录停步时间
//表示移动方向上的偏移,左，下，右，上
VBS dim dirt(4,2)
VBS dirt(0,0)=-30
VBS dirt(0,1)=0
VBS dirt(1,0)=0
VBS dirt(1,1)=80
VBS dirt(2,0)=30
VBS dirt(2,1)=0
VBS dirt(3,0)=0
VBS dirt(3,1)=-30
VBS dim dirt2(4,2)
VBS dirt2(0,0)=-100
VBS dirt2(0,1)=0
VBS dirt2(1,0)=0
VBS dirt2(1,1)=150
VBS dirt2(2,0)=100
VBS dirt2(2,1)=0
VBS dirt2(3,0)=0
VBS dirt2(3,1)=-100
//打怪时鼠标的偏移量，从站的位置开始,从左开始
VBS dim fight(8,2)
VBS fight(0,0)=-40
VBS fight(0,1)=-40
VBS fight(1,0)=-25
VBS fight(1,1)=25
VBS fight(2,0)=5
VBS fight(2,1)=19
VBS fight(3,0)=25
VBS fight(3,1)=25
VBS fight(4,0)=35
VBS fight(4,1)=-20
VBS fight(5,0)=30
VBS fight(5,1)=-30
VBS fight(6,0)=0
VBS fight(6,1)=-50
VBS fight(7,0)=-30
VBS fight(7,1)=-30
//定义一个随机数
VBS rand=5
//小地图上人物坐标，此坐标固定
VBS role_x0=739
VBS role_y0=59
//大地图上人物站立位置，此坐标固定，取两脚之间的一点
VBS stand_x=390
VBS stand_y=210
VBS role_x1=390
VBS role_y1=140
//小地图上表示怪物的一点颜色为#0000FF
//小地图位置:左上角680,0& && &&&左下角680,120& && &&&右下角800,120& && &&&右上角800,0
//=====================寻找身边是否有怪==========================
VBSCall Call FindCenterColor(role_x0-d,role_y0-d,role_x0+d,role_y0+d,&0000FF&,monster_x0,monster_y0)
If monster_x0&=680 and monster_y0&=0
& & //在身边直接打怪
& & //八个打怪的方向，从左开始，逆时针打过来
& & If role_x0&monster_x0 and role_y0-d&monster_y0 and role_y0+d&monster_y0
& && &&&iii=0
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=1
& & If role_x0-d&monster_x0 and role_x0+d&monster_x0 and role_y0&monster_y0
& && &&&iii=2
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=3
& & If role_x0&monster_x0 and role_y0-d&monster_y0 and role_y0+d&monster_y0
& && &&&iii=4
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=5
& & If role_x0-d&monster_x0 and role_x0+d&monster_x0 and role_y0&monster_y0
& && &&&iii=6
& & If role_x0&monster_x0 and role_y0&monster_y0
& && &&&iii=7
& & click_x=stand_x+fight(iii,0)
& & click_y=stand_y+fight(iii,1)
& & If iii=2
& && &&&click_x=stand_x
& && &&&click_y=stand_y
& & MoveTo click_x click_y
& & LeftClick 1
& & Delay 500
& & Goto 杀怪
//========================寻找小地图上怪物坐标===========================
VBSCall Call GetCursorPos(x,y)
VBSCall new_color=GetPixelColor(x,y)
VBSCall Call FindCenterColor(680,0,800,120,&0000FF&,monster_x0,monster_y0)
If monster_x0&=680 and monster_y0&=0
& & If monster_x0&role_x0 and monster_y0&=role_y0
& && &&&//朝怪方向移动，怪在左上侧
& && &&&click_x=stand_x-50
& && &&&click_y=stand_y-50
& & If monster_x0&=role_x0 and monster_y0&role_y0
& && &&&//朝怪方向移动，怪在左下侧
& && &&&click_x=stand_x-50
& && &&&click_y=stand_y+50
& & If monster_x0&=role_x0 and monster_y0&role_y0
& && &&&//朝怪方向移动，怪在右上侧
& && &&&click_x=stand_x+50
& && &&&click_y=stand_y-50
& & If monster_x0&role_x0 and monster_y0&=role_y0
& && &&&//朝怪方向移动，怪在右下侧
& && &&&click_x=stand_x+50
& && &&&click_y=stand_y+50
& & MoveTo click_x click_y
& & LeftClick 1
& & Delay 1000
& & //路径上有障碍,这样3秒之后还站在原地，随机变向
& & If t&=3
& && &&&t=0
& && &&&VBSCall Call GetCursorPos(x,y)
& && &&&VBSCall new_color=GetPixelColor(x,y)
& && &&&If new_color=old_color
& && && && &VBSCall Call rnd=Rnd
& && && && &If rnd&=0 and rnd&0.25
& && && && && & old_color=new_color
& && && && && & click_x=stand_x-50
& && && && && & click_y=stand_y-50
& && && && &EndIf
& && && && &If rnd&=0.25 and rnd&0.5
& && && && && & old_color=new_color
& && && && && & click_x=stand_x-50
& && && && && & click_y=stand_y+50
& && && && &EndIf
& && && && &If rnd&=0.5 and rnd&0.75
& && && && && & old_color=new_color
& && && && && & click_x=stand_x+50
& && && && && & click_y=stand_y-50
& && && && &EndIf
& && && && &If rnd&=0.75 and rnd&=1
& && && && && & old_color=new_color
& && && && && & click_x=stand_x+50
& && && && && & click_y=stand_y+50
& && && && &EndIf
& && && && &MoveTo click_x click_y
& && && && &RightDown 1
& && && && &Delay 1000
& && && && &RightUp 1
& && &&&EndIf
& && &&&old_color=new_color
& & //=====================没怪跑路===========================
& & click_x=stand_x+dirt2(ii,0)
& & click_y=stand_y+dirt2(ii,1)
& & MoveTo click_x click_y
& & //LeftClick 1 走方式
& & RightDown 1
& & Delay 1000
& & RightUp 1
& & tt=tt+1
& & //路上遇到障碍，随机变道
& & If tt&=2
& && &&&tt=0
& && &&&VBSCall Call GetCursorPos(x,y)
& && &&&VBSCall new_color=GetPixelColor(x,y)
& && &&&If new_color=old_color
& && && && &ii=ii+1
& && && && &If ii&=4
& && && && && & VBSCall Call rnd=Rnd
& && && && && & If rnd&=0 and rnd&0.25
& && && && && && &&&ii=0
& && && && && & EndIf
& && && && && & If rnd&=0.25 and rnd&0.5
& && && && && && &&&ii=1
& && && && && & EndIf
& && && && && & If rnd&=0.5 and rnd&0.75
& && && && && && &&&ii=2
& && && && && & EndIf
& && && && && & If rnd&=0.75 and rnd&=1
& && && && && && &&&ii=3
& && && && && & EndIf
& && && && &EndIf
& && &&&EndIf
& && &&&old_color=new_color
//==================拾取金币=============================
VBSCall Call FindColor(stand_x-100,stand_y-100,stand_x+100,stand_y+100,&00FFFF&,x,y)
If x&=0 and y&=0
& & MoveTo x y
& & LeftClick 1
& & Delay 1000
& & Goto 拾金
【识别人物的脚本】
//汉字高度位置
VBS word_top=579
VBS word_buttom=591
//数字高度位置
VBS num_top=581
VBS num_buttom=590
//找出第一个汉字前面的黑块位置。
VBSCall Call FindColor(7,word_top,7,word_buttom,&000000&,x0,y)
& & VBSCall Call FindColor(8,word_top,8,word_buttom,&000000&,x0,y)
Rem 跳过所有的汉字
VBSCall Call FindColor(x,word_top,x,word_buttom,&FFFFFF&,x1,y)
& & x=x+12
& & Goto 跳过所有的汉字
//x0为最右边一个汉字右边的黑块
//初始化map_x,map_y坐标为0
//确定计算哪个坐标,遇到分割符:kk=2
//VBSCall Call MessageBox(CStr(x0))
//x0修改为第一个数字左边的黑块
Rem 获得下一个数字
//--------判断各个数字---------------
If GetPixelColor(x0+2,num_top+1)=&FFFFFF& and GetPixelColor(x0+3,num_top+1)=&FFFFFF& and&&GetPixelColor(x0+4,num_top+1)=&FFFFFF& and GetPixelColor(x0+1,num_top+2)=&FFFFFF& and GetPixelColor(x0+5,num_top+2)=&FFFFFF& and GetPixelColor(x0+5,num_top+3)=&FFFFFF& and GetPixelColor(x0+1,num_top+3)=&000000& and GetPixelColor(x0+3,num_top+4)=&FFFFFF& and GetPixelColor(x0+4,num_top+4)=&FFFFFF& and GetPixelColor(x0+2,num_top+4)=&000000&
& & value=3
& & //数字2
& & If GetPixelColor(x0+1,num_top+2)=&FFFFFF& and GetPixelColor(x0+5,num_top+2)=&FFFFFF& and&&GetPixelColor(x0+1,num_top+3)=&FFFFFF& and GetPixelColor(x0+5,num_top+3)=&FFFFFF& and GetPixelColor(x0+1,num_top+4)=&000000& and GetPixelColor(x0+4,num_top+4)=&FFFFFF& and GetPixelColor(x0+3,num_top+5)=&FFFFFF& and GetPixelColor(x0+2,num_top+6)=&FFFFFF& and GetPixelColor(x0+1,num_top+7)=&FFFFFF&
& && &&&value=2
& && &&&//数字1
& && &&&If GetPixelColor(x0+2,num_top+1)=&000000& and GetPixelColor(x0+3,num_top+1)=&FFFFFF& and&&GetPixelColor(x0+2,num_top+2)=&FFFFFF& and GetPixelColor(x0+3,num_top+3)=&FFFFFF& and GetPixelColor(x0+3,num_top+4)=&FFFFFF& and GetPixelColor(x0+3,num_top+5)=&FFFFFF& and GetPixelColor(x0+3,num_top+6)=&FFFFFF&
& && && && &value=1
& && &&&Else
& && && && &//数字9
& && && && &If GetPixelColor(x0+1,num_top+5)=&000000& and GetPixelColor(x0+2,num_top+5)=&FFFFFF& and&&GetPixelColor(x0+3,num_top+5)=&FFFFFF& and GetPixelColor(x0+4,num_top+5)=&FFFFFF& and GetPixelColor(x0+1,num_top+7)=&000000& and GetPixelColor(x0+2,num_top+7)=&FFFFFF&
& && && && && & value=9
& && && && &Else
& && && && && & //数字8
& && && && && & If GetPixelColor(x0+2,num_top+4)=&FFFFFF& and GetPixelColor(x0+1,num_top+5)=&FFFFFF& and&&GetPixelColor(x0+1,num_top+6)=&FFFFFF& and GetPixelColor(x0+1,num_top+7)=&FFFFFF& and&&GetPixelColor(x0+5,num_top+2)=&FFFFFF& and GetPixelColor(x0+5,num_top+3)=&FFFFFF&
& && && && && && &&&value=8
& && && && && & Else
& && && && && && &&&//数字7
& && && && && && &&&If GetPixelColor(x0+1,num_top+2)=&FFFFFF& and GetPixelColor(x0+4,num_top+2)=&FFFFFF& and&&GetPixelColor(x0+3,num_top+4)=&FFFFFF& and GetPixelColor(x0+3,num_top+5)=&FFFFFF&
& && && && && && && && &value=7
& && && && && && &&&Else
& && && && && && && && &//数字4
& && && && && && && && &If GetPixelColor(x0+3,num_top+2)=&FFFFFF& and GetPixelColor(x0+2,num_top+3)=&FFFFFF& and&&GetPixelColor(x0+2,num_top+4)=&FFFFFF& and GetPixelColor(x0+1,num_top+5)=&FFFFFF&
& && && && && && && && && & value=4
& && && && && && && && &Else
& && && && && && && && && & //数字6
& && && && && && && && && & If GetPixelColor(x0+2,num_top+4)=&FFFFFF& and GetPixelColor(x0+1,num_top+5)=&FFFFFF& and&&GetPixelColor(x0+1,num_top+6)=&FFFFFF& and GetPixelColor(x0+1,num_top+7)=&FFFFFF& and&&GetPixelColor(x0+4,num_top+2)=&FFFFFF&
& && && && && && && && && && &&&value=6
& && && && && && && && && & Else
& && && && && && && && && && &&&//数字5
& && && && && && && && && && &&&If GetPixelColor(x0+1,num_top+1)=&FFFFFF& and GetPixelColor(x0+2,num_top+1)=&FFFFFF& and&&GetPixelColor(x0+3,num_top+1)=&FFFFFF& and GetPixelColor(x0+4,num_top+1)=&FFFFFF& and&&GetPixelColor(x0+5,num_top+1)=&FFFFFF& and&&GetPixelColor(x0+1,num_top+2)=&FFFFFF&
& && && && && && && && && && && && &value=5
& && && && && && && && && && &&&Else
& && && && && && && && && && && && &//数字0
& && && && && && && && && && && && &If GetPixelColor(x0+1,num_top+2)=&FFFFFF& and GetPixelColor(x0+1,num_top+3)=&FFFFFF& and&&GetPixelColor(x0+1,num_top+4)=&FFFFFF& and GetPixelColor(x0+5,num_top+2)=&FFFFFF& and&&GetPixelColor(x0+5,num_top+3)=&FFFFFF& and&&GetPixelColor(x0+5,num_top+4)=&FFFFFF&
& && && && && && && && && && && && && & value=0
& && && && && && && && && && && && &Else
& && && && && && && && && && && && && & //分隔符:
& && && && && && && && && && && && && & If GetPixelColor(x0+3,num_top+2)=&000000& and GetPixelColor(x0+2,num_top+3)=&000000& and GetPixelColor(x0+3,num_top+3)=&FFFFFF& and GetPixelColor(x0+4,num_top+3)=&000000& and GetPixelColor(x0+3,num_top+7)=&000000& and GetPixelColor(x0+3,num_top+8)=&FFFFFF&
& && && && && && && && && && && && && && &&&value=10
& && && && && && && && && && && && && && &&&kk=2
& && && && && && && && && && && && && & Else
& && && && && && && && && && && && && && &&&value=-1
& && && && && && && && && && && && && & EndIf
& && && && && && && && && && && && &EndIf
& && && && && && && && && && &&&EndIf
& && && && && && && && && & EndIf
& && && && && && && && &EndIf
& && && && && && &&&EndIf
& && && && && & EndIf
& && && && &EndIf
& && &&&EndIf
If value=-1
& & If map_x&0 and map_y&0
& && &&&Goto 坐标已确定
& && &&&VBSCall Call MessageBox(&无法获得坐标&)
& && &&&Goto 程序结束
If value&=0 and value&=9
& & If kk=1
& && &&&map_x=map_x*10+value
& && &&&map_y=map_y*10+value
Goto 获得下一个数字
Rem 坐标已确定
VBSCall Call MessageBox(CStr(map_x*10000+map_y))
Rem 程序结束
【挖矿脚本】
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★使用说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
//*由于采用了图形分辨，请使用按键5.7以上版本。
//*挖矿和丢矿，回城补充 存矿 没时间写。
//*循环设为循环1次.F11开始，F12中止.
//*请根据自己的实际情况 填写变量.如 负重 10为 10%
//*鼠标放人物脚下（以左键点击人物不走动为准），然后再按F11开始.
//*包裹下方 放随即和修复油~和修理脚本同时使用
//*可能脚本有错误 请大家测试.修正
//〓〓〓〓〓〓〓〓〓〓〓〓〓★玩家自定义变量★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
VBS fuzhong=20
//负重多余百分之多少时检测
VBS hui=20
//低血回城%设置,不想要此功能就把它尽量设低点吧~。
VBS baoman=1
//包裹满则自动回城，1为激活，0为关闭。
VBS guanji=1
//自动停止挂机时，1为回城后自动退出游戏关闭电脑（XP系统）,0为待在城里打坐。
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Rem 开始挂机
VBS dim savestring,filename
VBS filename=&日志/全自动挖矿日志.txt&
VBS savestring=&开始挖矿。。。（请定期删除日志文件~）&
Gosub 写入日志
VBSCall Call GetCursorPos(fx,fy)
//记录鼠标在人物脚下的位置坐标
VBS savestring=&开始挖矿。。。&
Gosub 写入日志
If baoman=1
& & Gosub 包满处理
MoveTo x y
RightDown 1
Delay 5000
RightClick 0
LeftClick 3
Delay 120000
MoveTo 763 326
RightDown 1
Delay 5000
RightClick 0
LeftClick 3
Delay 120000
MoveTo 10 400
RightDown 1
Delay 5000
RightClick 0
LeftClick 3
Delay 120000
MoveTo 780 10
RightDown 1
Delay 5000
RightClick 0
LeftClick 3
Delay 120000
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Sub 包满处理
& & IfColor fuzhong/100*72+666 566 efd68c 0
& && &&&MoveTo 694 399
& && &&&Delay 80
& && &&&LeftClick 1
& && &&&Delay 32
& && &&&SayString 哈哈，包包满了，仍掉垃圾~~~~~~~~
& && &&&Delay 64
& && &&&KeyPress 13 1
& && &&&Delay 512
& && &&&VBS savestring=&包满仍掉垃圾。。。&
& && &&&Gosub 写入日志
& && &&&Delay 500
& && &&&For 30
& && && && &VBSCall FindPic(0,0,800,600,&1.bmp&,0.9,x,y)
& && && && &//区域找图 为区域范围&&&1.bmp&为图片名（路径）&&0.9为找图的相似度 x,y为找到图片后的坐标变量
& && && && &If x&=0 and y&=0
& && && && && & //如果找到颜色
& && && && && & x0=x+10
& && && && && & y0=y+10
& && && && && & //图中心坐标
& && && && && & MoveTo x0 y0
& && && && && & //移动图中心坐标
& && && && && & Delay 50
& && && && && & //延时
& && && && && & LeftClick 1
& && && && && & //左键单击
& && && && && & MoveTo 550 80
& && && && && & //移动到外部区域
& && && && && & Delay 50
& && && && && & //延时
& && && && && & LeftClick 1
& && && && && & //左键单击
& && && && &EndIf
& && &&&EndFor
& && &&&MoveTo 694 399
& && &&&Delay 80
& && &&&LeftClick 1
& && &&&Delay 32
& && &&&SayString 处理完毕
& && &&&Delay 64
& && &&&KeyPress 13 1
& && &&&Delay 512
& && &&&VBS savestring=&处理完毕&
& && &&&Goto 开始
Return 包满处理
Sub 写入日志
& & VBS dim file,f1,fileexist,savestring,filename
& & VBS Const ForWriting=2
& & VBS Const ForAppending=8
& & VBS set file = CreateObject(&Scripting.FileSystemObject&)
& & VBS fileexist=file.FileExists(filename)
& & If fileexist=-1
& && &&&Goto append
& & VBS Set f1 =file.CreateTextFile(filename,ForWriting)
& & VBS f1.Close
& & Rem append
& & VBS Set f1 =file.OpenTextFile(filename,ForAppending)
& & VBS savestring=Cstr(Year(Now))+&年&+Cstr(Month(Now))+&月&+Cstr(Day(Now))+&日&+Cstr(Hour(Now))+&时&+Cstr(Minute(Now))+&分&+Cstr(Second(Now))+&秒 &+savestring
& & VBS f1.WriteLine(savestring)
& & VBS f1.Close
Return 写入日志
【召唤英雄脚本】
Description=英雄的召唤
BeginHotkey=106
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
SaveMousePos
MoveTo 647 463
LeftClick 1
RestoreMousePos
【英雄状态信息判断脚本】
Description=英雄状态信息
BeginHotkey=109
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
SaveMousePos
MoveTo 675 465
LeftClick 1
RestoreMousePos
// 打开英雄状态信息，前提条件，先招出英雄！
【使用英雄包裹物品脚本】
Description=英雄包裹
BeginHotkey=107
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
SaveMousePos
MoveTo 700 462
LeftClick 1
RestoreMousePos
【自动切换雷达图脚本】
Description=切换雷达图
BeginHotkey=9
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
SaveMousePos
MoveTo 232 458
LeftClick 1
RestoreMousePos
【游戏小退脚本】
Description=退出游戏
BeginHotkey=81
BeginHotkeyMod=4
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
MoveTo 427 351
LeftClick 1
// 重复一下，防止网络卡，按了无效！
MoveTo 427 351
LeftClick 1
【物品转移脚本】
Description=物品转移
BeginHotkey=77
BeginHotkeyMod=4
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
Rem ZhuanYi
// 等待按键
If K=CInt(&37&)
& & // 左方向箭，用来交易传物
& & VBSCall Call GetCursorPos(ZhuanYi_X,ZhuanYi_Y)
& & Gosub ZY_ME
& & // 转去处理程序段
If K=CInt(&38&)
& & // 上方向箭，用来交易传物
& & VBSCall Call GetCursorPos(ZhuanYi_X,ZhuanYi_Y)
& & Gosub ZY_JiaoYi
& & // 转去处理程序段
If K=CInt(&39&)
& & // 右方向箭，用来交易传物
& & VBSCall Call GetCursorPos(ZhuanYi_X,ZhuanYi_Y)
& & Gosub ZY_HERO
& & // 转去处理程序段
If K=CInt(&40&)
& & // 下方向箭，用来交易传物
& & VBSCall Call GetCursorPos(ZhuanYi_X,ZhuanYi_Y)
& & Gosub ZY_CunMaiXiu
& & // 转去处理程序段
If K=CInt(&27&)
& & KeyPress 27 1
& & KeyPress 13 1
& & SayString 本次脚本运行结束！
& & Delay 3000
& & KeyPress 27 1
// 按了ESC键结束脚本！
Goto ZhuanYi
Sub ZY_HERO
& & // 传物品给英雄包裹的过程
& & MoveTo ZhuanYi_X ZhuanYi_Y
& & LeftClick 1
& & MoveTo 90 40
& & LeftClick 1
& & // 鼠标所指物品将放入英雄状态条（即左上角，不要被摭挡）!
& & MoveTo ZhuanYi_X ZhuanYi_Y
Return ZY_HERO
Sub ZhuanYi_JiaoYi
& & // 传物品到交易栏的过程
& & MoveTo ZhuanYi_X ZhuanYi_Y
& & LeftClick 1
& & MoveTo 500 235
& & LeftClick 1
& & // 鼠标所指物品将放入英雄状态条（即左上角，不要被摭挡）!
& & MoveTo ZhuanYi_X ZhuanYi_Y
Return ZhuanYi_JiaoYi
& & // 传物品给主角包裹的过程
& & MoveTo ZhuanYi_X ZhuanYi_Y
& & LeftClick 1
& & MoveTo 415 425
& & LeftClick 1
& & // 鼠标所指物品将放入英雄状态条（即左上角，不要被摭挡）!
& & MoveTo ZhuanYi_X ZhuanYi_Y
Return ZY_ME
Sub ZY_CunMaiXiu
& & // 传物品由包裹到存、卖、修的过程
& & MoveTo ZhuanYi_X ZhuanYi_Y
& & LeftClick 1
& & MoveTo 320 270
& & LeftClick 1
& & // 鼠标所指物品将放入卖、特修、存仓库栏做指定处理!
& & Delay 500
& & MoveTo 360 330
& & LeftClick 1
& & MoveTo ZhuanYi_X ZhuanYi_Y
Return ZY_CunMaiXiu
【英雄一键合击脚本】
Description=英雄合击
BeginHotkey=20
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=0
StopHotkeyMod=0
EnableWindow=legend of mir2
[CallBack]
KeyPress 27 1
KeyPress 13 1
SayString 按ESC可取消合击....
Rem HJ_X_Y
// 等待按键
If K=CInt(&27&)
& & Goto END
If K=CInt(&88&)
& & // KEY为“X”字母键
& & VBSCall Call GetCursorPos(HJ_X,HJ_Y)
& & Goto HJ
Goto HJ_X_Y
MoveTo HJ_X HJ_Y
KeyDown 17 1
KeyDown 83 1
KeyUp 83 1
KeyUp 17 1
KeyPress 27 1
KeyPress 27 1
KeyPress 13 1
SayString !屏幕合击释放坐标为：[
SayString HJ_X
SayString ,
SayString HJ_Y
SayString ]
KeyPress 13 1
帖子1936&精华0&积分2214&豌豆0 &阅读权限40&在线时间2508 小时&注册时间&最后登录&
我真的不喜欢你，你喜欢我什么，我改还不行么？！
帖子1844&精华0&积分5205&豌豆3898 &阅读权限70&在线时间1194 小时&注册时间&最后登录&
帖子850&精华0&积分862&豌豆10 &阅读权限40&在线时间855 小时&注册时间&最后登录&
好东东，先顶一个。
帖子182&精华0&积分222&豌豆0 &阅读权限30&在线时间103 小时&注册时间&最后登录&
就是啊,效果如何~~
帖子2840&精华0&积分2836&豌豆0 &阅读权限50&在线时间239 小时&注册时间&最后登录&
哇哇哇，顶一个先
帖子4814&精华0&积分5192&豌豆0 &阅读权限70&在线时间261 小时&注册时间&最后登录&
不明白你这个！
我几时才出合击呀！
帖子127&精华0&积分143&豌豆0 &阅读权限30&在线时间43 小时&注册时间&最后登录&
不知道怎么用，有详细介绍的吗？
帖子109&精华0&积分112&豌豆0 &阅读权限30&在线时间94 小时&注册时间&最后登录&
顶起来虽然我对这个不熟悉，但是你的脚本来了晚上我就下个精灵研究下哟！
帖子239&精华0&积分240&豌豆0 &阅读权限30&在线时间79 小时&注册时间&最后登录&
挖矿的没试过~~~
其他的都能用 还可以
帖子1653&精华0&积分1931&豌豆10 &阅读权限40&在线时间411 小时&注册时间&最后登录&
哦，不知道一个小时能挂到多少经验
帖子1043&精华0&积分1094&豌豆0 &阅读权限40&在线时间361 小时&注册时间&最后登录&
帖子421&精华0&积分520&豌豆0 &阅读权限30&在线时间216 小时&注册时间&最后登录&
怎么用呀老大
帖子1696&精华0&积分1757&豌豆0 &阅读权限40&在线时间1131 小时&注册时间&最后登录&
先收藏起来，慢慢看
帖子564&精华0&积分713&豌豆0 &阅读权限40&在线时间387 小时&注册时间&最后登录&
脚本倒是挺多的。
[通过 QQ、MSN 分享给朋友]