網游機戰腳本
❶ 誰給個機戰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
自動檢物品的沒有..
根本不起作用 例如這些水晶 流星之類的 抓圖什麼都不起作用