一键连招神器，带你超神带你飞
本帖最后由 mimi_rice 于 2015-4-27 16:02 编辑一键连招神器，带你超神带你飞
《本文由按键学院提供技术支持》
按键学院交流群（1群已满）：376122403零基础学按键精灵群（2群）：372671254
{:4_98:}曾经或正在玩类似真3、英雄联盟、dota等竞技游戏类的你
是否为自己的一次手残导致对手一丝血跑回家而懊恼过
是否为团战技能没用完就壮烈牺牲而愤怒过
是否为伪大神华丽、快速的连招羡慕过
是否为……
而现在，只要你看了这篇帖子，认真去研究下，这一切将不再是问题···{:4_95:}
言归正传，最近发现贴吧有不少用户需求英雄联盟一键连招的脚本
刚好咱们骚气的06老师也是英雄联盟的忠实玩家所以也去小写了一个
虽然网上可能有很多更好的版本，但是咱胜在能看到源码，而且可以根
据自己需求更改代码，实现其他类似游戏的一键连招 废话不多说了，让咱们一起深入了解下06老师的小作品
脚本下载
q文件下载
**** Hidden Message *****
流程
处理下拉框技能
注意：技能下拉框一的技能命名格式为A.XXX，下拉框2的技能命令为B.XXX，根据需求可以依此类推直到Z
这样做的目的在于之后分割选中的行数据内容时候，可以以“."号分割，得到行数据(0)的键位名
方便之后用select···case语句判断键名调用操作（当然这边也可以自己自定义其他分割符号）
相关代码
**** Hidden Message *****
文件的路径、读取与写入
这边用的都是之前院刊小代码里分享过的一些代码，这边再整合下
相关代码// 读取文件内容
Function ReadFile(FilePath)
Dim fso, fileobj
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileobj = fso.OpenTextFile(FilePath, 1, False)
ReadFile = fileobj.ReadAll
Call fileobj.Close()
Set fso = Nothing
Set fileobj = Nothing
End Function
// 向文件写入内容
Function WriteFile(Path, Text)
Dim fso, fileobj
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileobj = fso.OpenTextFile(Path, 2, True)
Call fileobj.Write(Text)
Call fileobj.Close()
Set fso = Nothing
Set fileobj = Nothing
End Function
// 获取程序目录
Function ExePath()
RetStr = Space(260)
GetModuleFileName 0, RetStr, 260
ExePath = Left(RetStr, InStrRev(RetStr, "\"))
End Function
//获取程序文件名
Function ExeFile()
RetStr = Space(260)
GetModuleFileName 0, RetStr, 260
ExeFile = RetStr
End Functionps：脚本其他代码请下载q文件导入后自行查看{:4_112:}
简易使用演示图
注意：脚本只在记事本上测试过是正常的，游戏内未作具体测试，请有需要的小伙伴自行用小号在游戏里测试，另外要特别注意由于使用的是自定义热键触发，所以设置的热键只能按一下就马上就要放开，一直按着不动的话是会重复一直输入直到输入停止的
真是被感动的痛哭流涕…… 我做过，但是好像街机游戏不能，用。请指教 按键精灵写的么 这是什么游戏的好好奇 顶楼主啦..希望楼主多发精品好帖啦.... 非常感谢楼主分享 不知道说些什么了,太鸡冻了 一如既往的回帖看帖，同样也是习惯 更是个人的美德！