网游机战脚本
❶ 谁给个机战SF组件升星的按键精灵脚本
不用按键精灵。我就可以在游戏最小化以后按技能。真的。甚至可以一边摆摊一边挂技能。
方法是这样的:
1先把要挂的技能放在快捷栏里，还要个装备鉴定或自爆的,打开一个文件夹之类的东西〔文件夹、游戏、网页等等〕,能遮住机战整个画面最好.
2然后放一技能，然后按ALT+TAB切换画面到另外的文件。至道画面切换好以后。再同时放开这3个键。然后你不信的话可以再按ALT+TAB切换回来。看看吧。只要你不在机战画面里按鼠标左右键。它是可以一直挂技能的。
不过你要注意。切换画面时一定要用ALT+TAB~
我现在在打这些字的时候。也在挂技能。呵呵。不错的方法哦
祝你玩得愉快
❷ 机战点组件脚本
因为电脑屏幕分辨率不同 有些脚本不是"兼容"的
我这里只给你把游戏窗口拖到左上角的
:
开始
键盘[CONTROL]按下
------为什么按Ctrl,因为点到地面时候机体就乱跑了,所以点组件时候找个角
落,别让机体乱跑,当然你也可以去掉这步------
鼠标移至[X726Y371]
单击鼠标左键
延时[33]毫秒
鼠标移至[X220Y407]
单击鼠标左键
延时[33]毫秒
鼠标移至[X724Y427]
单击鼠标左键
延时[33]毫秒
鼠标移至[X220Y407]
单击鼠标左键
延时[33]毫秒
鼠标移至[X724Y536]
单击鼠标左键
延时[33]毫秒
鼠标移至[X220Y407]
单击鼠标左键
延时[33]毫秒
鼠标移至[X662Y609]
单击鼠标左键
延时[33]毫秒
返回脚本第一句运行[999]次
结束
另外由于网速及配置的影响 是做不出完全符合游戏而且自动的脚本的
这个只能升满一个组件
所以换组件时候还要自己手动换:
选好要升的组件 开脚本 点满 关脚本 选另一个 再开...
❸ 用按键精灵制作机战Online自动打怪的脚本
你的第二条可行，我试过，取那个技能图标坐标就行.
第三条.可以用在血条上用抓点抓色的办法。按键精灵上有这种用VB写的补红补篮脚本.你直接复制语句改下就OK撒.
❹ 机战按键精灵近战挂机脚本，在教教我怎么用。我不懂按键精灵
我刚玩没几天 复制一个给你 希望有用~~~~~~~~~
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 ye,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 ye=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 ye=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
❺ 链烘垬鑴氭湰镐庝箞鐢
链烘垬缁緽瀹岀编鑴氭湰
涓嬮溃鏄鎴戠殑鑴氭湰
UserVar zidongjianwu=1 0涓嶈嚜锷ㄦ崱鐗 1镊锷ㄦ崱鐗
Delay 250
Gosub 镓撴
Gosub 鎹℃按鏅
Delay 150
Gosub 鎹℃祦鏄
Delay 150
Gosub 1鎹￠挶
Delay 50
Sub 镓撴
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 600
EndIf
MoveTo 952,356
LeftClick 1
Delay 600
EndIf
MoveTo 456,310
Delay 1500
LeftClick 1
MoveTo 225,408
LeftClick 1
Delay 600
EndIf
MoveTo 140,230
LeftClick 1
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
Else
Delay 500
Goto 瀹氢綅2
Return 瀹氢綅
Sub 瀹氢綅2
Delay 1000
EndIf
MoveTo 190,547
LeftClick 1
Delay 1000
EndIf
Goto 镓撴
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
EndIf
EndFor
goto 找怪
这是我的机战找怪的脚本命令 图片见附件。图片的制作其实非常简单，论坛当中有说明的。但是需要补充就是背景颜色不一定非得是白色。:lol :lol
自动检物品的没有..
根本不起作用 例如这些水晶 流星之类的 抓图什么都不起作用