1. 按键精灵 脚本 自动捡物 如何做
可以做成这样。
但抓图，需要你自己完成
用多点找色功能去完成
只能给你一个提示
拍下图后，用里面的抓抓－－图像－－抓点
把鼠标移动到你想要查找的图上，按下CTRL+1
再移动鼠标到另一点，再次按CTRL+1
。。。。
可多次（最好不少于8次，不多于10次）
至于移动多少像素，无所谓，但移动的位置都要在你所要找的图片内
比如你说的这个“矿石”这2个字，因为我不知道你这2个字在游戏中是什么字体，大小是多少，颜色是什么，所以不好给你做，你只需把这二个字找出来（用多点找色功能）
再把代码，复制下来，写到里面，就可以实现准确找到这个2个字。
至于你需要由这2个字再相对移动多少像素，去点击你要拾取的物品，就自己看着修改了。
这个可以做成一个函数，然后，定义多个图片，界时，可分别拾取不同的物品。
上面所说的，就是方法，但我想你可能一时听不明白。19点到20点，我会在线，你可以在线给我发消息或是在线HI我。
2. 按键精灵 脚本 自动捡物 如何做
思路是这样的：
1、findpic找到图的坐标x和y。假设已知物品的像素是宽x高＝w和h，则物品的拣取坐标是x＋（w／2）和y+（h／2）
2、屏幕点击上述拣取坐标位置，等待人物走到物品上。
3、点击角色脚下的位置，完成拣取。
3. 按键精灵的脚本怎么用啊
分类: 电脑/网络 >> 软件
问题描述:
别人给我发了一个脚本
[General]
Description=群刀半自动练级
BeginHotkey=121
beginHotkeyMod=4
RunOnce=0
Enable=0
[Repeat]
Type=0
Number=1
[Comment]
Content=
[Script]
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓使用说明〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
*循环设为循环1次.F11开始，F12中止.
*单人挂机时建议关闭组队和查看功能，关闭所有特效，在1024×768下使用.
*F1为60级轻功，F2技能，F3红，F4蓝，判扒F5捡东西，F6回城符，F7单攻技能,F8为15轻功.
*群刀手动引怪时也此冲嫌能轻松了，点远处怪，则使用单攻技能，点身旁森手怪，则群攻。
*动动鼠标，一直打6、7个怪不是问题，轻松+愉快啊
〓〓〓〓〓〓〓〓〓〓〓〓〓玩家自定义变量〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
VBS hongBF=70
血量少于百分之多少（可自行设定）时，脚本自动吃红。
VBS dihui=25
血量少于百分之多少（可自行设定）时，脚本自动回城打坐。
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓主程序〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
Rem 开始打怪
KeyPress 119
Delay 32
Gosub 补红蓝
Gosub 无药回城
For 3
KeyPress 118 1
第一击为单攻技能,江湖中出连续技能了，怕发不出来就循环3次吧
Delay 128
EndFor
Rem 技能攻击
VBSCall Call FindCenterColor(350,220,674,460,"1028ff",x1,y1)
检测怪的血条
If x1>0 and y1>0
有血条，怪存在
For 3
KeyPress 113 1
使用技能攻击，同理循环3次
Delay 128
EndFor
技能延时
Gosub 补红蓝
For 3
KeyPress 116 1
Delay 128
EndFor
Gosub 无药回城
Goto 技能攻击
循环技能攻击
EndIf
Goto 开始打怪
无怪，怪卡住或死亡，重新开始下一轮循环
Rem 停止挂机
MoveTo 512 468
LeftClick 1
Delay 3000
KeyDown 17 1
KeyPress 67 1
KeyUp 17 1
Delay 3000
EndScript
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓子程序〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
Sub 补红蓝
Rem 低血回城
IfColor dihui*1.28+21 5 4a5173 2
SayString 晕，差点挂了，我闪。。。
Delay 32
KeyPress 13 1
Delay 512
KeyPress 117 1
Delay 5000
Delay 5000
Goto 停止挂机
EndIf
Rem 补红
IfColor hongBF*1.28+21 5 4a5173 2
KeyPress 114 1
Delay 128
EndIf
Rem 补蓝
IfColor 57 22 4a3c39 2
KeyPress 115 1
Delay 256
EndIf
Return 补红蓝
Sub 无药回城
IfColor 706 749 b5ffe7 2
SayString 没红了，我再闪。。。
Delay 32
KeyPress 13 1
Delay 512
KeyPress 117 1
Delay 5000
Delay 5000
Goto 停止挂机
EndIf
IfColor 744 749 b5ffe7 2
SayString 没蓝了，我也闪。。。
Delay 32
KeyPress 13 1
Delay 512
KeyPress 117 1
Delay 5000
Delay 5000
Goto 停止挂机
EndIf
Return 无药回城
上边的那个 怎么使用啊？ 谁能教教我
解析:
另存为一个文本文件，存到按键的SCRIPT目录下，开按键，即应该可以看到此脚本。
4. 按键精灵怎么设置自动捡东西
知皮//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
5. 按键精灵如何编辑神途脚本
试试这个专用脚本编辑工具。
下载EditPlus_3.41.rar，下载后解压，然后双击注册进行注册，就可以正常使用了。如果还需要输入注册码，那就点注册，下载keygen.exe并打开，随便输入用户名，然后点击生成注册码，将用户名和注册码分别复制到要注册的框里面就好了。
1、Goto a
2、Rem a
3、key = WaitKey()
4、If key = 87 Then
5、Delay 1500
6、KeyPress "Q", 1
7、End If
8、Goto a
6. 你好，能教我下这么制作按键精灵自动捡东西的脚本，谢谢
到打怪的地方录制,再按你的要求修改下~~k（ 空格） 数字键表友历示你将要执行的动作~d（ 空格） 数字键表示停顿的秒数~~连续设置k的动作会无法执行~所以在设置k后应加d0这样动作会比较神告衫流畅~~一般游游腔戏脚本设置这两个比较常用
7. 300高分跪求一个按键精灵脚本，功能是鼠标自动在怪爆出的东西中找到相关物品，然后自动捡取
多点找色，找到后点击第一个坐标点：
xy=Plugin.Color.FindMutiColor(0,0,2000,2000,"003CE7","1|0|1045E7,2|0|5A82EF,0|1|94AAF7,1|1|F7F7FF",1)
ZB = InStr(XY,"|")
x = Clng(Left(XY, ZB - 1)) : y = Clng(Right(XY, Len(XY) - ZB))
If x > 0 and y > 0 Then
MoveTo x, y
LeftClick 1
End If
第二行代码中，第一个双引号里的是第一个16进制色值,第二个双引号里的偏移的点及偏移点的16进制色值（找的点越多正确率越高），找到的颜色如果全符合，则点击第一个点
8. 用按键精灵编辑dnf刷图自动捡物品原理，不是源码，谢谢！
根据坐标电脑进行计算，自动识别。
9. 求一个按键精灵传奇自动打怪、捡装备脚本!
举荐楼主用凌霜传奇辅助免费版功能比如有：移动加速,顺时针移动,1.80服双刀,多倍魔法,超强蓝保护,自动丢弃物品,攻击变色,智能攻击,攻击转身,等功能。支持目前所有的主流登录器！