暴天攻略网 > 教程技巧 > 机战按键精灵近战挂机脚本，在教教我怎么用。我不懂按键精灵

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

2025-04-19 21:57:12教程技巧

暴天攻略网将跟大家是介绍关于机战脚本的，希望可以帮你解惑。

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

我刚玩没几天复制一个给你希望有用~~~~~~~~~

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

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

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

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

Return

Sub 技能2

IfColor 139 45 ae21 2

Delay 32

VBS jn2=jn2+1

If jn2>=8

KeyPress 114 1

VBS jn2=0

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

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

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

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

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

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

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

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

怎么制作机战捡物品脚本

按键精灵

打怪的

机战自动打怪简易脚本

今天用按键里的原有脚本组合改造出了一个机战的自动打怪脚本，初测试了一下可以用，不过有几个地方不足，一是不能锁定坐标，由于是两点抓色的寻怪，所以会有乱跑的可能，不能自动检物品（包括钱，水晶，装备，核心）。第一次做脚本，还请大家共同研究，有那位朋友能将这个脚本改进的也发上来共同研究下。有时间的话，我把抓图也加进去，这样就可以检东西了，不过这个需要比较长的时间，最近比较忙没太多的时间弄。脚本中不能技能只能平砍，红放在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,k2

s=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=a1

Else

n=x0-(a2-x0)

EndIf

Rem 开始

//循环开始标记

Delay 32

Rem 补红

IfColor 196,31,92ff,1

Else

KeyPress 117,1

Delay 256

//补血延时

EndIf

v=L

i=M

x=x0:y=y0-v

While 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 1000

EndIf

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

EndFor

goto 找怪

这是我的机战找怪的脚本命令图片见附件。图片的制作其实非常简单，论坛当中有说明的。但是需要补充就是背景颜色不一定非得是白色。:lol :lol

自动检物品的没有

根本不起作用例如这些水晶流星之类的抓图什么都不起作用

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

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

怎么制作机战捡物品脚本

猜你喜欢

华为手机测试有哪些功能

怎样卡箱子

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

中兴手机v967s

联盟先遣军声望怎么冲的快？

洛克王国：成为骑士的那些材料在哪收集？

堆雪人的步骤有哪些？

远征OL名字:本人和两个好友打算玩远征OL，想取三

霍格沃茨中国学生怎么才能去读？

空间等级怎么才能让它升得快？

51动漫苹果怎么下载不了了

PSP太鼓达人DX 鬼模式难度怎么打出来

吞食守卫剑阁是怎么样吃装备的

为什么我下载的手机QQ2011(JAVA)用不了

地铁跑酷怎么更新冰岛

用飞车绿箭说遵守游戏规则怎么回事

龙之谷的游戏截图

松鼠AI学习机怎么样?收费贵吗?

QQ空间进不来是怎么回事

cfg是什么文件？可以删除吗？