製作採集腳本

Ⅰ 大航海採集腳本

大航海時代: 採集腳本（可最小化）
2006-12-25 [ http://www.game247.net ] [ 裴澀琪 ]
也許你抱怨使用按鍵精靈掛採集無法做其他事情,現在這個腳本可以幫助你!
第一次寫這類東西,還是廢話少說直接進入正題:
今日,突尼西亞練採集,某人抱怨按鍵腳本掛採集似的無法同時看小說(同時存在類似問題比如看電影啊)所以發出這個原創希望對大家有所幫助!
--------------------腳本區域開始分割線---------------
Plugin hwnd = Window.GetKeyFocusWnd()
Delay 2000
For 1000//此處設置總循環次數根據所帶料理而定
For 20//+50料理2份的採集次數即100/5=20
Gosub 採集
EndFor
For 2//連續吃2次料理
Gosub 料理
EndFor
EndFor
Sub 採集
Plugin Window.SendKeyPress(hwnd,121)
Delay 1000
Plugin Window.SendKeyPress(hwnd,113)
Delay 1000
Plugin Window.SendKeyPress(hwnd,27)
Delay 5500
Return 採集
Sub 料理
Plugin Window.SendKeyPress(hwnd,121)
Delay 1000
Plugin Window.SendKeyPress(hwnd,114)
Delay 1000
Plugin Window.SendKeyPress(hwnd,27)
Delay 1000
Return 料理
--------------------腳本區域結束分割線---------------
如果腳本無法正常運行請刪除"//"號後面的注釋內容包括"//"
網路環境差的請將Delay 1000修改到1500或2000; Delay 5500可修改成6000
以上不包括自動扔東西因此掛半個小時看一次就差不多了(視船艙容量)
------------------------------------------------------
感謝2-2的 Sting 教會我使用Plugin hwnd = Window.GetKeyFocusWnd()

非漁夫職業10級釣魚不是夢想。本腳本為港口釣魚腳本。出海的腳本，過幾天上傳。腳本如下：
－－－－－－－－－－－－－－－－－－－－－－－－－
KeyPress 121 1
Delay 1000
IfColor 773 210 667777 0
KeyPress 118 1
Delay 1000
Else
Delay 1000
EndIf
IfColor 64 145 4f4948 0
KeyPress 121 1
Delay 1000
KeyPress 119
Else
Delay 1000
EndIf
IfColor 710 436 c6b89f 0
MoveTo 707 434
Delay 500
LeftClick 1
Delay 500
MoveTo 447 343
Else
Delay 100
EndIf
IfColor 638 436 bfb5a2 0
MoveTo 643 436
Delay 500
LeftClick 1
Delay 500
MoveTo 447 343
Else
Delay 100
EndIf
－－－－－－－－－－－－－－－－－－－－－－－－－－－－
游戲模式為800*600，游戲窗口位置默認為左上角，不要拖動游戲窗口。
快鍵設定：F7為釣魚 F8為料理。
開始運行腳本鍵：小鍵盤1。停止運行腳本鍵：小鍵盤2。
推薦釣魚城市：巴塞羅那。好處這里就不說了，開釣之前先把船倉清清。
掛機前，身上料理帶夠。
祝大家早日釣魚滿級。

我未測試,剛剛找到准備晚上開用的

Ⅱ 大唐無雙用按鍵精靈怎麼做簡單的採集腳本

首先做腳本之前慎重，如果僅是開發者角度想做練習提升自己能力，必須開小號，如果有大號，開發期間最好不要在你用按鍵做腳本的那台電腦及所佔的同一個外網地址內登陸。不要問我為什麼，很多人吃過苦，各種天牢和永久封號。
其次做腳本僅僅只是個人使用，那問題不大，如果涉及商業模式運行，樹大招風，到一定程度公司想找你麻煩，那就不是耗子進天牢的事情，很可能是當事人蹲牢+賠償了。別問我怎麼知道的，我朋友就在游戲公司，是專門負責打擊外掛的人。
最後我來回答你個問題：要用按鍵做大唐腳本，首先必須要學好按鍵基礎，其次，按著你要做的採集任務，把思路理清楚。我自己的思路是，比如一級採集桑麻，把一級採集桑麻坐標放到你直接數組或者txt文本存儲，然後按坐標尋路到採集點，滑鼠在坐標點附近移動找到採集目標【滑鼠形狀為手型】，然後點擊，然後如果出現資源怪就打怪，打死後，繼續重復判斷滑鼠手型，手型滑鼠消失則繼續尋路到下一個資源點，如此重復循環即可。

Ⅲ 璋佽兘鏁欐垜鐢ㄦ寜閿綺劇伒甯璁捐′釜涔濋槾鐪熺粡鍙浠ラ噰闆嗙殑鑴氭湰鍟婏紝奼傚浘奼傛枃瀛

涔濋槾鐪熺粡閲囬泦錛屽皬鍦板浘涓婇粍鑹茬澶翠唬琛ㄤ漢鐗╋紝涓嬮潰緇胯壊鐨勪唬琛ㄧ熆鐐癸紝鎴戠幇鍦ㄥ埄鐢ㄦ壘鑹插畾浣嶏紝鍙鏄鏈夋椂鍊欎細鍑虹幇鏃犳硶瀹氫綅鐨勬儏鍐 榪樻湁涓涓闂棰 鎴戦兘鏄閫氳繃灝忓湴鍥炬壘鑹插畾浣 鐒跺悗鐐瑰嚮錛岀劧鍚庡啀閲嶅ご鏉ヨ繃錛屽氨鏄鍐嶉噸鏂版壘鑹插畾浣 榪欐牱鏁堢巼涓嶉珮錛岃鋒暀濡備綍鎻愰珮鏁堢巼鍟 浠ｇ爜濡備笅錛 01.//姣掕嵂 02. ary = Array("8AE2C1", "40CC89", "56B3AF", "37755B", "21AB62") 03. For Each c In ary 04. //MessageBox c 05. dm_ret = dm.FindColor(1440/2, 0, 1440, 900/2, dm.BGR2RGB(c), 1, 0, x, y) 06. //MessageBox X&"||"&Y 07. If x > 0 and y > 0 Then 08. dm.MoveTo x, y 09. Delay 1000 10. dm.LeftClick 11. //鎷懼彇鐗╁搧 12. Dim flag 13. flag = 0 14. exitFlag = 0 15. do 16. dm_ret = dm.FindPic(0,0,1440,900,"get.bmp","000000",0.6,0,intS,intQ) 17. If intS > 0 And intQ > 0 Then 18. dm.MoveTo intS, intQ 19. Delay 1000 20. dm.LeftClick 21. getCount = getCount + 1 22. dm_set=dm.SetWindowText(hwnd,"涔濋槾鐪熺粡"&" 鎷懼彇"&getCount&"嬈") 23. //Call Plugin.Window.SetText(hwnd,"涔濋槾鐪熺粡"&" 鎷懼彇"&getCount&"嬈") 24. flag=1 25. End If 26. exitFlag = exitFlag + 1 27. Delay 1000 28. If (exitFlag > 13) Then 29. Exit Do 30. End If 31. Loop until flag=1 32. End If 33. Next 澶嶅埗浠ｇ爜

Ⅳ 誰能給教下我按鍵精靈，我想做個採集礦石的腳本

按鍵精靈有個錄制功能，相當於傻瓜式的，比較容易。
你打開軟體，再打開你的游戲，然後在開始采礦後按錄制鍵，之後按部就班完成一次你所謂的採集礦石，順利完成一次采礦後點按鍵精靈的錄制結束，就完成了一次腳本錄制，將之保存。
之後打開游戲和按鍵精靈，注意，一定要把游戲放在頂端，然後用快捷鍵激活按鍵精靈的剛才錄制的動作，然後你就可以該幹嘛幹嘛了，電腦會一直重復挖礦的動作，前提是你不能幹別的事情，游戲必須保持一直在第一界面這樣。

Ⅳ 簡單游水滸Q傳自動採集腳本

1、物品欄第一格，放一組體力葯（不需要補體力可以不放）
2、找到採集點
3、打開物品欄
4、打開包裹或倉庫
5、按「F11」啟動
5、滑鼠放在物品欄第一格體力葯水上按「1」鍵
6、滑鼠放在包裹或者倉庫的第一格上按「2」鍵
7、滑鼠放在採集點上按「3」鍵
需要採集多個點，就在每個採集點上都按一次「3」鍵
8、按「4」鍵開始採集

Ⅵ 怎麼製作游戲採集腳本

沒那麼復雜。直接用按鍵精靈就好。網上下個破解注冊的。
上面有指令，可以自己編寫。超簡單的。
比如：1，滑鼠移到XXX，2，右鍵點擊。延時800毫秒。3，滑鼠移動到XXX，4右鍵點擊。··············
就按這樣編完一套動作就好，讓他自動循環。
說起來麻煩，事實上你自己下了試試，很簡單。
我一般是修改別人已由的祝福掛機腳本。自己重新編比較累。

Ⅶ 如何用按鍵精靈製作成吉思汗2的採集腳本 最普通的就行 好的話追加241分幫我設置語句

[General]
Description=成吉思汗通用定點多開採集
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=1
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
Rem star
VBSCall FindColor(0,0,1270,1011," 10DBEF",intX,intY)
Delay 100
MoveTo intx,inty
Delay 100
RightClick 1
Delay 100
Shape1 =1372817910
VBSCall Shape=GetCursorShape(0)
If shape = shape1
Delay 100
LeftDown 1
Delay 360
LeftUp 1
Delay 6000
VBSCall Shape=GetCursorShape(0)
If shape = shape1
Delay 100
LeftDown 1
Delay 360
LeftUp 1
Delay 6000
VBSCall Shape=GetCursorShape(0)
If shape = shape1
KeyPress 112,1
Delay 100
Else
Goto star
EndIf
Else
Goto star