墨香：按键精灵使用入门
(编辑：jimmy 日期: 2024/11/16 浏览：3 次 )
接触了墨香以后才开始接触按键精灵。以前玩传奇的时候，魔法盾啊，火墙啊，都是需要挂机练出来的(当时还基本上没有好用的外
挂，而且传奇里没有打坐回蓝)，所以挂机练功用的办法就是卡键……拿个钥匙啊，硬币什么的，把键盘上那个功能键卡住，然后等
他自己长一点蓝再用一下魔法。而墨香里面人物回蓝基本上靠打坐而不是吃药(免去了买药的麻烦)，所以用按键挂技能也就风行天
下，几乎无人不用，偶也在慢慢地摸索中学习了按键的用法。
初阶按键精灵使用：录制脚本，挂被动技能。这个很简单，按键带有一个录制功能，点击“录制”按键，然后在游戏里点一下“开始
录制”，接着使用各种技能，直到没蓝，打坐，坐满，再站起来，停止录制，然后给脚本设定一个启动热键和停止热键，再修改为“
运行此脚本直到按下停止键”，脚本就算是做好了。把号扔在野外，按一下启动热键，人物就会自动练被动技能啦。金钟罩，吐纳法
，紫霞真气霹雳真气什么的，都可以这样练起来，另外，太清真气、破魂击、慑心击什么的，也可以这样练起来，一点点区别就是挂
机前要先点中另一个挂机的人而已。
中阶按键精灵使用：编辑脚本或者自己写脚本，配合录制功能实现日常游戏中的小应用。
应用一：打坐。我的F1里面10个键已经基本上设满，依次是红莲吐焰、天雷破、大漠孤烟、雪雁归巢、金钟罩、紫霞真气、霹雳真气
、吐纳法、饺子、何首乌。那么打坐哪里去了？打坐我放在F2里面了设置为1，然后编写脚本如下：
延时10毫秒
按键
延时10毫秒
按住
延时10毫秒
弹起
延时10毫秒
按键
然后把启动热键设置为“`”(就是“1”键左边的那个小虫虫)，这个键按起来很方便而且墨香里没设定它的作用。这样的话用到的
11个技能都有地方放了。另外我把自己修习的刀系的技能都放在F3里，如果练刀的时候，只需把脚本的最后一行改成“按键”就
可以了，每次打坐站起来会自动换到F3。
应用二：求购东西。墨香里不能使用复制和粘贴，所以求购的时候反复打字是一件非常麻烦的事情。以下是我使用的脚本：
延时200毫秒
按键
延时500毫秒
输入文本收购绿宝石蓝宝石乳白石钻石400一个，红宝500！
延时500毫秒
按键
把启动热键设置为CTRL+0，然后你按一次热键，就会自动喊话一次。
应用三：买皮靴。学了拆解以后经常要买皮靴，一次就买好几十双，重复地点鼠标很烦埃所以也用按键来代劳。这个先要录制，与
NPC对话后开始录制，点中皮靴，点“购买”，再点“是”。停止录制，然后把脚本设置为运行20次(一次刚好买满一背包)，设置
热键为CTRL+1，以后按下这个键，就会自动买20双皮靴……
另外还有其它应用：比如降级自杀(只需设定为每隔一秒点一下“原地复活”这个位置，反复运行)，狂按CTRL(未学技能之前使用
，也是先录制一个狂按键，然后让它反复运行)，等等。
高阶按键精灵使用：新版本的按键精灵里增加了颜色判断、颜色查找等功能，这就为编写自动转玉、自动吃药、自动打怪等功能提供
了实现的前提。脚本比较长，所以我就用源代码贴上来一个示例，是11级的小号在敦煌打大蠢纯找钱用的。
#这是按键精灵生成的脚本源文件
#在理解各条命令的基础上，您可以修改这个文件的内容
#您修改的结果将会在普通视图上有所反映
#######以下这段，判断488，291的颜色是不是7C7676，如果是，就证明被怪挂了，那么点一下原地复活。#########
IfColor4882917c76760
MoveTo488291
Delay50
LeftClick1
Delay1000
EndIf
#######以下这段，判断内力血条的颜色，如果蓝只剩一点点，则打坐30秒钟。#############
IfColor5070766c5f0
KeyDown521
Delay50
KeyUp521
Delay30000
KeyDown521
Delay50
KeyUp521
Delay1000
EndIf
#######以下这段，是在屏幕范围内查找颜色3FB1D7(大蠢纯身上的颜色)，并把查到的坐标存进INTX和INTY。######
VBSDimintX
VBSDimintY
VBSCallCallFindColor(130,100,881,771,3FB1D7,intX,intY)
#######以下这段，是判断是否找到，如果找到了，那么就在INTX，INTY处单击鼠标，选定怪物，然后跳转到杀怪脚本#######
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
######以下开始很长一段都是重复查找颜色并点击找到的地方。因为大蠢纯的颜色在不同光线下会不同，所以######
######这样的颜色查找是越多越好，要是有兴趣的话，做个几百个判断，这样就会不会错失大蠢纯啦。############
VBSCallCallFindColor(130,100,881,771,369FCE,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,3AAAD3,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,2790B5,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,3CAAD3,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,36A4D0,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,358EA9,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,3DB1D6,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,35A3CF,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,44B4D8,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
######此处开始是为杀怪脚本##########
Remkill
######点中怪物或人以后，屏幕顶端会出现一个方框，下一个语句是就是判断是否确定点中了怪物或人。########
IfColor45678873690
######如果点中的怪物是没血了的或者点中的是人(点中人以后血条显示是没血的)，那么跳过，否则杀怪。#####
######此处判断血条颜色。##############
IfColor453316060791
######然后就是使用武功技能啦，偶的七月流火设置为1，所以此处按两次1键。##########
KeyDown491
Delay50
KeyUp491
Delay2000
KeyDown491
Delay50
KeyUp491
Delay2000
######把变量值恢复为0，0，即屏幕内没有怪的状态。##############
VBSintX=0
VBSintY=0
EndIf
EndIf
Delay1000
这个脚本我试验过，加的颜色判断不够多，所以效率很低，周围刷了5次怪只有一次能被判断出来并杀掉。如果加得足够多，估计自
动杀蠢纯打钱是完全可行的。同时，由于我小号死了无所谓，所以没有加入血条判断的脚本。
自动吃药就是判断血条和内力条的颜色。自动转玉是判断玉的颜色并决定是否需要拆开、转化、或者需要叠起来，玉上面显示的数字
“1”或者“5”可用于判断是不是分成单个了或者是不是可以叠起来。此处就不赘述了。
挂，而且传奇里没有打坐回蓝)，所以挂机练功用的办法就是卡键……拿个钥匙啊，硬币什么的，把键盘上那个功能键卡住，然后等
他自己长一点蓝再用一下魔法。而墨香里面人物回蓝基本上靠打坐而不是吃药(免去了买药的麻烦)，所以用按键挂技能也就风行天
下，几乎无人不用，偶也在慢慢地摸索中学习了按键的用法。
初阶按键精灵使用：录制脚本，挂被动技能。这个很简单，按键带有一个录制功能，点击“录制”按键，然后在游戏里点一下“开始
录制”，接着使用各种技能，直到没蓝，打坐，坐满，再站起来，停止录制，然后给脚本设定一个启动热键和停止热键，再修改为“
运行此脚本直到按下停止键”，脚本就算是做好了。把号扔在野外，按一下启动热键，人物就会自动练被动技能啦。金钟罩，吐纳法
，紫霞真气霹雳真气什么的，都可以这样练起来，另外，太清真气、破魂击、慑心击什么的，也可以这样练起来，一点点区别就是挂
机前要先点中另一个挂机的人而已。
中阶按键精灵使用：编辑脚本或者自己写脚本，配合录制功能实现日常游戏中的小应用。
应用一：打坐。我的F1里面10个键已经基本上设满，依次是红莲吐焰、天雷破、大漠孤烟、雪雁归巢、金钟罩、紫霞真气、霹雳真气
、吐纳法、饺子、何首乌。那么打坐哪里去了？打坐我放在F2里面了设置为1，然后编写脚本如下：
延时10毫秒
按键
延时10毫秒
按住
延时10毫秒
弹起
延时10毫秒
按键
然后把启动热键设置为“`”(就是“1”键左边的那个小虫虫)，这个键按起来很方便而且墨香里没设定它的作用。这样的话用到的
11个技能都有地方放了。另外我把自己修习的刀系的技能都放在F3里，如果练刀的时候，只需把脚本的最后一行改成“按键”就
可以了，每次打坐站起来会自动换到F3。
应用二：求购东西。墨香里不能使用复制和粘贴，所以求购的时候反复打字是一件非常麻烦的事情。以下是我使用的脚本：
延时200毫秒
按键
延时500毫秒
输入文本收购绿宝石蓝宝石乳白石钻石400一个，红宝500！
延时500毫秒
按键
把启动热键设置为CTRL+0，然后你按一次热键，就会自动喊话一次。
应用三：买皮靴。学了拆解以后经常要买皮靴，一次就买好几十双，重复地点鼠标很烦埃所以也用按键来代劳。这个先要录制，与
NPC对话后开始录制，点中皮靴，点“购买”，再点“是”。停止录制，然后把脚本设置为运行20次(一次刚好买满一背包)，设置
热键为CTRL+1，以后按下这个键，就会自动买20双皮靴……
另外还有其它应用：比如降级自杀(只需设定为每隔一秒点一下“原地复活”这个位置，反复运行)，狂按CTRL(未学技能之前使用
，也是先录制一个狂按键，然后让它反复运行)，等等。
高阶按键精灵使用：新版本的按键精灵里增加了颜色判断、颜色查找等功能，这就为编写自动转玉、自动吃药、自动打怪等功能提供
了实现的前提。脚本比较长，所以我就用源代码贴上来一个示例，是11级的小号在敦煌打大蠢纯找钱用的。
#这是按键精灵生成的脚本源文件
#在理解各条命令的基础上，您可以修改这个文件的内容
#您修改的结果将会在普通视图上有所反映
#######以下这段，判断488，291的颜色是不是7C7676，如果是，就证明被怪挂了，那么点一下原地复活。#########
IfColor4882917c76760
MoveTo488291
Delay50
LeftClick1
Delay1000
EndIf
#######以下这段，判断内力血条的颜色，如果蓝只剩一点点，则打坐30秒钟。#############
IfColor5070766c5f0
KeyDown521
Delay50
KeyUp521
Delay30000
KeyDown521
Delay50
KeyUp521
Delay1000
EndIf
#######以下这段，是在屏幕范围内查找颜色3FB1D7(大蠢纯身上的颜色)，并把查到的坐标存进INTX和INTY。######
VBSDimintX
VBSDimintY
VBSCallCallFindColor(130,100,881,771,3FB1D7,intX,intY)
#######以下这段，是判断是否找到，如果找到了，那么就在INTX，INTY处单击鼠标，选定怪物，然后跳转到杀怪脚本#######
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
######以下开始很长一段都是重复查找颜色并点击找到的地方。因为大蠢纯的颜色在不同光线下会不同，所以######
######这样的颜色查找是越多越好，要是有兴趣的话，做个几百个判断，这样就会不会错失大蠢纯啦。############
VBSCallCallFindColor(130,100,881,771,369FCE,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,3AAAD3,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,2790B5,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,3CAAD3,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,36A4D0,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,358EA9,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,3DB1D6,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,35A3CF,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
VBSCallCallFindColor(130,100,881,771,44B4D8,intX,intY)
IfExpressionintX>100andintY>99
VBSCallCallSetCursorPos(intX,intY)
LeftClick1
Delay50
Gotokill
EndIf
######此处开始是为杀怪脚本##########
Remkill
######点中怪物或人以后，屏幕顶端会出现一个方框，下一个语句是就是判断是否确定点中了怪物或人。########
IfColor45678873690
######如果点中的怪物是没血了的或者点中的是人(点中人以后血条显示是没血的)，那么跳过，否则杀怪。#####
######此处判断血条颜色。##############
IfColor453316060791
######然后就是使用武功技能啦，偶的七月流火设置为1，所以此处按两次1键。##########
KeyDown491
Delay50
KeyUp491
Delay2000
KeyDown491
Delay50
KeyUp491
Delay2000
######把变量值恢复为0，0，即屏幕内没有怪的状态。##############
VBSintX=0
VBSintY=0
EndIf
EndIf
Delay1000
这个脚本我试验过，加的颜色判断不够多，所以效率很低，周围刷了5次怪只有一次能被判断出来并杀掉。如果加得足够多，估计自
动杀蠢纯打钱是完全可行的。同时，由于我小号死了无所谓，所以没有加入血条判断的脚本。
自动吃药就是判断血条和内力条的颜色。自动转玉是判断玉的颜色并决定是否需要拆开、转化、或者需要叠起来，玉上面显示的数字
“1”或者“5”可用于判断是不是分成单个了或者是不是可以叠起来。此处就不赘述了。
下一篇：VBA 浏览文件夹对话框调用的几种方法