机战按键精灵近战挂机脚本，在教教我怎么用我不懂按键精灵？机战点组件脚本

本文目录

• 机战按键精灵近战挂机脚本，在教教我怎么用我不懂按键精灵
• 机战点组件脚本
• 机战 按键精灵 脚本 练技能
• 求一个机战按键精灵脚本
• 怎么制作机战捡物品脚本
• 机战脚本
• 用按键精灵制作机战Online自动打怪的脚本
• 机战脚本怎么用

机战按键精灵近战挂机脚本，在教教我怎么用我不懂按键精灵

　　我刚玩没几天 复制一个给你 希望有用~~~~~~~~~　　1.首先要选择职业 0近战 1远战　　2.要把显示人物名字的选项关闭　　3.可以使用带加PW的4号核心　　4.脚本支持两个技能 放的时候最好一个用PW的 一个用EN的　　5.XP技能从右到左1,2,3 根据喜好自己修改用哪种XP 默认1　　6.F1红 F2 F3技能 F8回城卷　　7.最好关闭与按键无关的其他软件 避免出现游戏变卡 影响脚本正常运行　　//F1红 F2 F3技能 F8回城卷　　VBS dim hp,m,n,a,b,c,d,e,f,g,h,i,j,k,l,q,r　　VBS dim zhiye,zidongzhaoguai,zidongjianwu,xp　　VBS m=85:n=10　　VBS a="":b="":e="":f="":g="":h="":i="":j="":k="":l="":q="":r=""　　VBS c=0:d=0　　VBS dim jn1,jn2　　VBS jn1=0:jn2=0　　UserVar zhiye=1 选择职业 0近战 1远战　　UserVar hp=50 红量《%多少时,补红　　UserVar zidongzhaoguai=1 0定点刷怪 1自动刷怪　　UserVar zidongjianwu=1 0不自动捡物 1自动捡物　　UserVar xp=1 选择使用哪种XP技能,从右到左1,2,3　　Rem 机战　　Gosub 找怪　　Gosub 攻击怪　　Gosub 补红　　Gosub 捡钱　　Gosub 捡熟练度　　Gosub 捡流星　　Gosub 捡粉红水晶　　Gosub 捡蓝水晶x　　Gosub 捡聚态水晶　　Gosub 检测xp　　Gosub 无弹回城　　Gosub 拒绝交易　　Gosub 同意组队　　Gosub 关闭推荐任务　　Gosub 关闭导师界面　　Delay 32　　Goto 机战　　Sub 找怪　　If zidongzhaoguai=1　　VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)　　If x《0 and y《0　　Delay 32　　VBS c=c+1　　If c》4　　Delay 225　　MoveTo 510 500　　LeftClick 1　　Gosub 快速找怪　　VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)　　If x《0 and y《0　　Delay 520　　MoveTo 100 330　　LeftClick 1　　Gosub 快速找怪　　VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)　　If x《0 and y《0　　Delay 520　　MoveTo 510 200　　LeftClick 1　　Gosub 快速找怪　　VBSCall FindColorEx(85,140,855,480,"303b8",1,0.8,x,y)　　If x《0 and y《0　　Delay 520　　MoveTo 920 330　　LeftClick 1　　Gosub 快速找怪　　EndIf　　EndIf　　EndIf　　EndIf　　EndIf　　EndIf　　Return　　Sub 攻击怪　　VBSCall FindColorEx(479,49,922,399,"303b8",1,0.8,x,y)　　If x》=0 and y》=0　　VBS c=0　　MoveTo x-20 y+20　　LeftClick 1　　Delay 32　　Gosub 攻击　　VBSCall FindColorEx(479,339,922,650,"303b8",1,0.8,x,y)　　If x》=0 and y》=0　　VBS c=0　　MoveTo x-20 y-20　　LeftClick 1　　Delay 32　　Gosub 攻击　　VBSCall FindColorEx(99,339,479,658,"303b8",1,0.8,x,y)　　If x》=0 and y》=0　　VBS c=0　　MoveTo x+20 y-20　　LeftClick 1　　Delay 32　　Gosub 攻击　　VBSCall FindColorEx(83,85,479,399,"303b8",1,0.8,x,y)　　If x》=0 and y》=0　　VBS c=0　　MoveTo x+20 y+20　　LeftClick 1　　Delay 32　　Gosub 攻击　　EndIf　　EndIf　　EndIf　　EndIf　　Return　　Sub 攻击　　VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)　　If x》=0 and y》=0　　MoveTo x+n y+m　　RightClick 1　　Gosub 技能1　　Gosub 技能2　　Else　　VBSCall FindColorEx(35,100,920,510,"303b8",1,0.8,x,y)　　If x》=0 and y》=0　　MoveTo x+n y+m-n　　RightClick 1　　EndIf　　EndIf　　Return　　Sub 快速找怪　　VBSCall FindColorEx(313,10,315,12,"0",1,0.8,x,y)　　If x《0 and y《0　　KeyDown 17 1　　LeftClick 1　　KeyUp 17 1　　EndIf　　Return　　Sub 技能1　　IfColor 139 45 ae21 2　　Delay 32　　VBS jn1=jn1+1　　If jn1》=4　　KeyPress 113 1　　VBS jn1=0　　EndIf　　EndIf　　Return　　Sub 技能2　　IfColor 139 45 ae21 2　　Delay 32　　VBS jn2=jn2+1　　If jn2》=8　　KeyPress 114 1　　VBS jn2=0　　EndIf　　EndIf　　Return　　Sub 补红　　IfColor hp*1.13+121 31 313033 2　　KeyPress 112 1　　EndIf　　Return　　Sub 捡钱　　If zidongjianwu=1　　VBSCall FindColorEx(35,100,920,520,"45b0c9",1,0.8,x1,y1)　　If x1》=0 and y1》=0　　VBS a=x1:b=y1　　VBSCall FindColorEx(a+5,b-50,a+45,b-30,"ffff",1,0.8,x2,y2)　　If x2》=0 and y2》=0　　MoveTo a b　　Delay 32　　LeftClick 1　　VBS a="":b=""　　EndIf　　EndIf　　EndIf　　Return　　Sub 捡熟练度　　If zidongjianwu=1　　VBSCall FindColorEx(35,100,920,520,"ad497f",1,0.8,x1,y1)　　If x1》=0 and y1》=0　　VBS e=x1:f=y1　　VBSCall FindColorEx(e+5,f-50,e+45,f-30,"ffff",1,0.8,x2,y2)　　If x2》=0 and y2》=0　　MoveTo e f　　Delay 32　　LeftClick 1　　VBS e="":f=""　　EndIf　　EndIf　　EndIf　　Return　　Sub 捡流星　　If zidongjianwu=1　　VBSCall FindColorEx(35,100,920,520,"106d21",1,0.8,x1,y1)　　If x1》=0 and y1》=0　　VBS g=x1:h=y1　　VBSCall FindColorEx(g-5,h-25,g+45,h-5,"ffff",1,0.8,x2,y2)　　If x2》=0 and y2》=0　　MoveTo g h　　Delay 32　　LeftClick 1　　VBS g="":h=""　　EndIf　　EndIf　　EndIf　　Return　　Sub 捡粉红水晶　　If zidongjianwu=1　　VBSCall FindColorEx(35,100,920,520,"8b16ab",1,0.8,x1,y1)　　If x1》=0 and y1》=0　　VBS i=x1:j=y1　　VBSCall FindColorEx(i-5,j-30,i+45,j-10,"ffff",1,0.8,x2,y2)　　If x2》=0 and y2》=0　　MoveTo i j　　Delay 32　　LeftClick 1　　VBS i="":j=""　　EndIf　　EndIf　　EndIf　　Return　　Sub 捡蓝水晶　　If zidongjianwu=1　　VBSCall FindColorEx(35,100,920,520,"ffb783",1,0.8,x1,y1)　　If x1》=0 and y1》=0　　VBS k=x1:l=y1　　VBSCall FindColorEx(k-5,l-45,k+45,l-8,"ffff",1,0.8,x2,y2)　　If x2》=0 and y2》=0　　MoveTo k l　　Delay 32　　LeftClick 1　　VBS k="":l=""　　EndIf　　EndIf　　EndIf　　Return　　Sub 捡聚态水晶　　If zidongjianwu=1　　VBSCall FindColorEx(35,100,920,520,"94f729",1,0.8,x1,y1)　　If x1》=0 and y1》=0　　VBS q=x1:r=y1　　VBSCall FindColorEx(q-5,r-30,q+5,r-20,"ffff",1,0.8,x2,y2)　　If x2》=0 and y2》=0　　MoveTo g h　　Delay 32　　LeftClick 1　　VBS q="":r=""　　EndIf　　EndIf　　EndIf　　Return　　Sub 检测xp　　VBSCall FindColorEx(800,500,900,550,"cdb886",1,0.8,x,y)　　If x》=0 and y》=0　　Gosub xp1　　Gosub xp2　　Gosub xp3　　EndIf　　Return　　Sub xp1　　If xp=1　　MoveTo 935 540　　Delay 32　　LeftClick 1　　EndIf　　Return　　Sub xp2　　If xp=2　　MoveTo 881 547　　Delay 32　　LeftClick 1　　EndIf　　Return　　Sub xp3　　If xp=3　　MoveTo 812 551　　Delay 32　　LeftClick 1　　EndIf　　Return　　Sub 无弹回城　　If zhiye=1　　VBSCall FindColorEx(575,6,580,10,"101010",1,0.8,x,y)　　If x《0 and y《0　　Delay 32　　VBS d=d+1　　If d=6　　KeyPress 119 1　　EndIf　　EndIf　　EndIf　　Return　　Sub 拒绝交易　　VBSCall FindColorEx(133,312,135,314,"ffffff",1,0.8,x1,y1)　　VBSCall FindColorEx(311,389,313,391,"916e23",1,0.8,x2,y2)　　VBSCall FindColorEx(326,233,328,235,"8b6ff",1,0.8,x3,y3)　　If x1》=0 and y1》=0 and x2》=0 and y2》=0 and x3》=0 and y3》=0　　MoveTo 312 390　　Delay 32　　LeftClick 1　　EndIf　　Return　　Sub 同意组队　　VBSCall FindColorEx(270,232,275,238,"c7ff",1,0.8,x1,y1)　　VBSCall FindColorEx(220,393,225,396,"aeff",1,0.8,x2,y2)　　If x1》=0 and y1》=0 and x2》=0 and y2》=0　　MoveTo 223 394　　Delay 32　　LeftClick 1　　EndIf　　Return　　Sub 关闭推荐任务　　VBSCall FindColorEx(905,236,907,238,"c7ff",1,0.8,x1,y1)　　VBSCall FindColorEx(605,234,607,236,"c3ff",1,0.8,x2,y2)　　If x1》=0 and y1》=0 and x2》=0 and y2》=0　　MoveTo 906 237　　Delay 32　　LeftClick 1　　EndIf　　Return　　Sub 关闭导师界面　　VBSCall FindColorEx(269,180,271,182,"c3f7",1,0.8,x1,y1)　　VBSCall FindColorEx(276,175,278,177,"dec7b5",1,0.8,x2,y2)　　If x1》=0 and y1》=0 and x2》=0 and y2》=0　　MoveTo 270 181　　Delay 32　　LeftClick 1　　EndIf　　Return

机战点组件脚本

因为电脑屏幕分辨率不同 有些脚本不是"兼容"的我这里只给你把游戏窗口拖到左上角的:开始键盘按下 ------为什么按Ctrl,因为点到地面时候机体就乱跑了,所以点组件时候找个角落,别让机体乱跑,当然你也可以去掉这步------鼠标移至单击鼠标左键延时毫秒鼠标移至单击鼠标左键延时毫秒鼠标移至单击鼠标左键延时毫秒鼠标移至单击鼠标左键延时毫秒鼠标移至单击鼠标左键延时毫秒鼠标移至单击鼠标左键延时毫秒鼠标移至单击鼠标左键延时毫秒返回脚本第一句运行次结束另外由于网速及配置的影响 是做不出完全符合游戏而且自动的脚本的这个只能升满一个组件 所以换组件时候还要自己手动换: 选好要升的组件 开脚本 点满 关脚本 选另一个 再开...

机战 按键精灵 脚本 练技能

不用按键精灵。我就可以在游戏最小化以后按技能。真的。甚至可以一边摆摊一边挂技能。方法是这样的：1先把要挂的技能放在快捷栏里，还要个装备鉴定或自爆的,打开一个文件夹之类的东西〔文件夹、游戏、网页等等〕,能遮住机战整个画面最好.2然后放一技能，然后按ALT+TAB切换画面到另外的文件。至道画面切换好以后。再同时放开这3个键。然后你不信的话可以再按ALT+TAB切换回来。看看吧。只要你不在机战画面里按鼠标左右键。它是可以一直挂技能的。不过你要注意。切换画面时一定要用ALT+TAB~我现在在打这些字的时候。也在挂技能。呵呵。不错的方法哦祝你玩得愉快

求一个机战按键精灵脚本

如下脚本可以满足您的需要,另外您没有交待下面几个问题哦:第一,生成的6位数以什么方式表达出来?弹窗?还是输入到记事本或者聊天窗口.第二.回车之间的延时,以下脚本默认是输入到一个可以输入文本的地方.即聊天窗口或者记事本等.回车之间延时500毫秒(半秒),可以自行修改或者问题补充.Rem开始RandomizeSayStringInt((999999*Rnd)100000)Delay500KeyPress13,1Delay500KeyPress13,1Delay500Goto开始

怎么制作机战捡物品脚本

按键精灵打怪的机战自动打怪简易脚本今天用按键里的原有脚本组合改造出了一个机战的自动打怪脚本，初测试了一下可以用，不过有几个地方不足，一是不能锁定坐标，由于是两点抓色的寻怪，所以会有乱跑的可能，不能自动检物品（包括钱，水晶，装备，核心）。第一次做脚本，还请大家共同研究，有那位朋友能将这个脚本改进的也发上来共同研究下。有时间的话，我把抓图也加进去，这样就可以检东西了，不过这个需要比较长的时间，最近比较忙没太多的时间弄。脚本中不能技能只能平砍，红放在F6。UserVar LTop=262,154 鼠标活动范围：左上角坐标UserVar RBot=776,491 鼠标活动范围：右下角坐标UserVar Center=493,292方形渐开搜怪起点UserVar L=15 2个搜怪点之间的距离UserVar M=2 从第几圈开始搜索//变量定义Dim s,v,i,n,x,y,a1,b1,a2,b2,c1,c2,x0,y0,k1,k2s=InStr(LTop,",")a1=int(Mid(LTop,1,s-1))b1=int(Mid(LTop,s+1))s=InStr(RBot,",")a2=int(Mid(RBot,1,s-1))b2=int(Mid(RBot,s+1))s=InStr(Center,",")x0=int(Mid(Center,1,s-1))y0=int(Mid(Center,s+1))If x0-a1》=a2-x0 n=a1Else n=x0-(a2-x0)EndIf Rem 开始//循环开始标记Delay 32Rem 补红IfColor 196,31,92ff,1Else KeyPress 117,1 Delay 256 //补血延时EndIf v=Li=Mx=x0:y=y0-vWhile x》=n k1=0:k2=v For 2 For i x=x+k1:y=y+k2 If x》=a1 and x《=a2 and y》=b1 and y《=b2 VBSCall c1=GetPixelColor(x,y) MoveTo x y Delay 10 VBSCall c2=GetPixelColor(x,y) If c1《》c2 LeftClick 1 //打怪代码 Delay 8000 //打完怪后再重新开始搜索 EndIf Delay 1 EndIf EndFor k1=v:k2=0 EndFor i=i+1:v=v*(-1)EndWhile Delay 200//搜索完鼠标活动范围后重新开始搜索Goto 开始 这是找怪的Rem 找怪VBSCall FindPic(173,201,1100,600,"sinuezhe.bmp",0.8,x,y)If x》=0 and y》=0 i=0 MoveTo x+10 y+10 Delay 50 MoveR 30,60 Delay 60 LeftDoubleClick 1 Delay 1000 RightClick 1 Delay 1500 RightClick 1 Delay 1000EndIf Goto 钱Rem 钱For 5 VBSCall FindPic(173,201,1136,652,"qian.bmp",0.9,x,y) If x》=0 and y》=0 MoveTo x+10 y+10 Delay 50 MoveR -22,13 Delay 250 LeftClick 1 Delay 1500 VBSCall FindPic(441,273,777,535,"sinuezhe.bmp",0.8,x,y) If x》=0 and y》=0 Goto 找怪 EndIf EndIf EndFor goto 找怪这是我的机战找怪的脚本命令 图片见附件。图片的制作其实非常简单，论坛当中有说明的。但是需要补充就是背景颜色不一定非得是白色。:lol :lol 自动检物品的没有..根本不起作用 例如这些水晶 流星之类的 抓图什么都不起作用

机战脚本

• 这个简单，你自己完全可以搞定，去下个按键精灵，自己点录制就可以制作了，稍微花一点点时间，相当于把你操作过程录像一次而已。不过要考虑到网速，位置等问题，框架有了，剩下的只有你自己根据具体情况作修改。

• 我有,是我自做的,不错很好用,金星,星河,等自动刷怪,组件,技能等都做了,呵呵,楼主要的话找我吧.给点分,710375169

用按键精灵制作机战Online自动打怪的脚本

• 你的第二条可行，我试过，取那个技能图标坐标就行.第三条.可以用在血条上用抓点抓色的办法。按键精灵上有这种用VB写的补红补篮脚本.你直接复制语句改下就OK撒.

• 其实你说的是完全可以实现的，只不过你没有懂怎么制作按键脚本，呵呵。血可以检测血槽颜色。XP技能可以截图判断。不玩游戏，所以不能给你做脚本，太麻烦。万事靠自己，多去看看别人的按键脚本帖子，你说的很容易实现。脚本按键论坛上海了去了。

机战脚本怎么用

机战绿B完美脚本下面是我的脚本UserVar zidongjianwu=1 0不自动捡物 1自动捡物Delay 250Gosub 打怪Gosub 捡水晶Delay 150Gosub 捡流星Delay 150Gosub 1捡钱Delay 50Sub 打怪 Rem 打怪 VBSCall FindColorEx(0,0,1024,768,"303b8",1,0.8,x,y) If x》=0 and y》=0 MoveTo x+10 y+10 RightClick 1 Delay 800 MoveTo 586,427 ----------------这里是防止鼠标卡死 回一下鼠标位置的 RightClick 1 Delay 500 Else Goto 捡水晶 EndIf Return Sub 捡水晶 Rem 捡水晶 If zidongjianwu=1 VBSCall FindPic(0,0,1024,768,"水晶.bmp",0.9,x,y) If x》=0 and y》=0 MoveTo x+10 y+10 LeftClick 1 Delay 300 LeftClick 1 Else Delay 500 Goto 捡钱 EndIf EndIf EndIf Return Sub 捡流星 If zidongjianwu=1 VBSCall FindPic(0,0,1024,768,"流星.bmp",0.9,x,y) If x》=0 and y》=0 MoveTo x+10 y+10 LeftClick 1 Delay 5000 LeftClick 1 EndIf EndIf EndIf Return Sub 捡钱 Rem 捡钱 If zidongjianwu=1 VBSCall FindPic(0,0,1024,768,"钱.bmp",0.9,x,y) If x》=0 and y》=0 MoveTo x+00 y+30 LeftClick 1 Delay 900 LeftClick 1 Else Delay 500 Goto 定位 EndIf EndIf EndIf Return Sub 定位 Rem 定位 MoveTo 898,130 LeftClick 1 Delay 600EndIf MoveTo 952,356LeftClick 1Delay 600EndIf MoveTo 456,310Delay 1500LeftClick 1MoveTo 225,408LeftClick 1Delay 600EndIf MoveTo 140,230LeftClick 1VBSCall FindColorEx(0,0,1024,768,"303b8",1,0.8,x,y)If x》=0 and y》=0 MoveTo x+10 y+10 RightClick 1 Delay 800Else Delay 500 Goto 定位2Return 定位Sub 定位2 Delay 1000EndIf MoveTo 190,547LeftClick 1Delay 1000EndIf Goto 打怪Return 定位