自動撿物腳本
⑴ 按鍵精靈 腳本 自動撿物 如何做
可以做成這樣。
但抓圖，需要你自己完成
用多點找色功能去完成
只能給你一個提示
拍下圖後，用裡面的抓抓－－圖像－－抓點
把滑鼠移動到你想要查找的圖上，按下CTRL+1
再移動滑鼠到另一點，再次按CTRL+1
。。。。
可多次（最好不少於8次，不多於10次）
至於移動多少像素，無所謂，但移動的位置都要在你所要找的圖片內
比如你說的這個「礦石」這2個字，因為我不知道你這2個字在游戲中是什麼字體，大小是多少，顏色是什麼，所以不好給你做，你只需把這二個字找出來（用多點找色功能）
再把代碼，復制下來，寫到裡面，就可以實現准確找到這個2個字。
至於你需要由這2個字再相對移動多少像素，去點擊你要拾取的物品，就自己看著修改了。
這個可以做成一個函數，然後，定義多個圖片，界時，可分別拾取不同的物品。
上面所說的，就是方法，但我想你可能一時聽不明白。19點到20點，我會在線，你可以在線給我發消息或是在線HI我。
⑵ 用按鍵精靈編輯dnf刷圖自動撿物品原理，不是源碼，謝謝！
根據坐標電腦進行計算，自動識別。
⑶ 請教按鍵精靈 腳本 後台自動撿物 如何做
只能給你一個提示
拍下圖後，用裡面的抓抓－－圖像－－抓點
把滑鼠移動到你想要查找的圖上，按下CTRL+1
再移動滑鼠到另一點，再次按CTRL+1
。。。。
可多次（最好不少於8次，不多於10次）
至於移動多少像素，無所謂，但移動的位置都要在你所要找的圖片內
比如你說的這個「礦石」這2個字，因為我不知道你這2個字在游戲中是什麼字體，大小是多少，顏色是什麼，所以不好給你做，你只需把這二個字找出來（用多點找色功能）
再把代碼，復制下來，寫到裡面，就可以實現准確找到這個2個字。
至於你需要由這2個字再相對移動多少像素，去點擊你要拾取的物品，就自己看著修改了。
這個可以做成一個函數，然後，定義多個圖片，界時，可分別拾取不同的物品。
上面所說的，就是方法，但我想你可能一時聽不明白。19點到20點，我會在線，你可以在線給我發消息或是在線HI我。
⑷ 按鍵精靈怎麼設置自動撿東西
//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
⑸ 按鍵精靈 腳本 自動撿物 如何做
思路是這樣的：
1、findpic找到圖的坐標x和y。假設已知物品的像素是寬x高＝w和h，則物品的揀取坐標是x＋（w／2）和y+（h／2）
2、屏幕點擊上述揀取坐標位置，等待人物走到物品上。
3、點擊角色腳下的位置，完成揀取。
⑹ 各位大蝦小弟問個問題 如果製作一個自動撿物腳本 易語言和按鍵精靈哪一種容易製作
自動撿物腳本
按鍵就能撿物的話，請使用按鍵精靈。
如果需要其它操作，可以用OD找出基址偏移等，遍歷。
⑺ 怎麼用按鍵精靈設置自動撿取特定物品求大神賜教
按鍵中有個例子「附件直接查找圖形」，你可以看看。主要就是找到A圖形，滑鼠點擊拾取，你要添加到你的腳本中可以放到你的按鍵循環中，找到就點擊，沒有就循環。
⑻ 怎麼寫游戲的自動撿物腳本
是DNF嗎？
網上有的下
想寫腳步沒那麼簡單的，一點電腦常識都不懂你能寫出腳本那學電腦還干什麼內
寫腳步要有很多准備的，如圖片。軟體等一下應該准備的東西，還有那些程序編碼你記得了嗎？
一道道命令你能寫出來嗎？
先學的基礎的吧。C++學點最基本的語言。
⑼ 有沒有dnf 自動撿東西的腳本
DNF還有什麼秘密可言。
首先確定自己的xy坐標，白色的LV你懂的。其次，找到地上的東西，地上的東西都頂著大大的字，也沒有偏色，使用大漠插件找字簡直易如反掌。如果你不打算用大漠，也不打算用按鍵自己做個字型檔，那麼剩下的功能就只能找圖了。找圖也不難，因為掉地上的東西名字外面都有一個框框。。。把框框的一條邊截下來，也能定位。
定位完以後，就是走過去撿起來。。。
什麼？你問怎麼用鍵盤走過去？有了坐標，應該算解決一切了吧。。。
⑽ 有沒有自動撿東西的腳本
爆的裝備名字不是有顏色的嘛 這樣做
FindColor 0,0,1024,768,quot;XXXXquot;,intX,intY
If intX 0 And intY 0 Then
MoveTo intX,intY
LeftClick 1
End If
XXXX代表物品顏色
不懂追問