制作采集脚本
Ⅰ 大航海采集脚本
大航海时代: 采集脚本(可最小化)
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文本存储,然后按坐标寻路到采集点,鼠标在坐标点附近移动找到采集目标【鼠标形状为手型】,然后点击,然后如果出现资源怪就打怪,打死后,继续重复判断鼠标手型,手型鼠标消失则继续寻路到下一个资源点,如此重复循环即可。
Ⅲ 璋佽兘鏁欐垜鐢ㄦ寜阌绮剧伒甯璁捐′釜涔濋槾鐪熺粡鍙浠ラ噰闆嗙殑鑴氭湰鍟婏纴姹傚浘姹傛枃瀛
涔濋槾鐪熺粡閲囬泦锛屽皬鍦板浘涓婇粍镩茬澶翠唬琛ㄤ汉鐗╋纴涓嬮溃缁胯壊镄勪唬琛ㄧ熆镣癸纴鎴戠幇鍦ㄥ埄鐢ㄦ垒镩插畾浣嶏纴鍙鏄链夋椂鍊欎细鍑虹幇镞犳硶瀹氢綅镄勬儏鍐 杩樻湁涓涓闂棰 鎴戦兘鏄阃氲繃灏忓湴锲炬垒镩插畾浣 铹跺悗镣瑰嚮锛岀劧钖庡啀閲嶅ご𨱒ヨ繃锛屽氨鏄鍐嶉吨鏂版垒镩插畾浣 杩欐牱鏁堢巼涓嶉珮锛岃锋暀濡备綍鎻愰珮鏁堢巼鍟 浠g爜濡备笅锛 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 澶嶅埗浠g爜
Ⅳ 谁能给教下我按键精灵,我想做个采集矿石的脚本
按键精灵有个录制功能,相当于傻瓜式的,比较容易。
你打开软件,再打开你的游戏,然后在开始采矿后按录制键,之后按部就班完成一次你所谓的采集矿石,顺利完成一次采矿后点按键精灵的录制结束,就完成了一次脚本录制,将之保存。
之后打开游戏和按键精灵,注意,一定要把游戏放在顶端,然后用快捷键激活按键精灵的刚才录制的动作,然后你就可以该干嘛干嘛了,电脑会一直重复挖矿的动作,前提是你不能干别的事情,游戏必须保持一直在第一界面这样。
Ⅳ 简单游水浒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