本帖最后由 mimi_rice 于 2015-4-27 16:02 编辑
一键连招神器,带你超神带你飞
《本文由按键学院提供技术支持》
按键学院交流群(1群已满):376122403
{:4_98:}曾经或正在玩类似真3、英雄联盟、dota等竞技游戏类的你
是否为自己的一次手残导致对手一丝血跑回家而懊恼过
是否为团战技能没用完就壮烈牺牲而愤怒过
是否为伪大神华丽、快速的连招羡慕过
是否为……
而现在,只要你看了这篇帖子,认真去研究下,这一切将不再是问题···{:4_95:}
|
言归正传,最近发现贴吧有不少用户需求英雄联盟一键连招的脚本
刚好咱们骚气的06老师也是英雄联盟的忠实玩家所以也去小写了一个
虽然网上可能有很多更好的版本,但是咱胜在能看到源码,而且可以根
据自己需求更改代码,实现其他类似游戏的一键连招 废话不多说了,让咱们一起深入了解下06老师的小作品
脚本下载
q文件下载
流程
处理下拉框技能
注意:技能下拉框一的技能命名格式为A.XXX,下拉框2的技能命令为B.XXX,根据需求可以依此类推直到Z
这样做的目的在于之后分割选中的行数据内容时候,可以以“."号分割,得到行数据(0)的键位名
方便之后用select···case语句判断键名调用操作(当然这边也可以自己自定义其他分割符号)
相关代码
文件的路径、读取与写入
这边用的都是之前院刊小代码里分享过的一些代码,这边再整合下
相关代码- // 读取文件内容 [SDK函数]
- 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
- // 向文件写入内容 [SDK函数]
- 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 Function
复制代码 ps:脚本其他代码请下载q文件导入后自行查看{:4_112:}
注意:脚本只在记事本上测试过是正常的,游戏内未作具体测试,请有需要的小伙伴自行用小号在游戏里测试,另外要特别注意由于使用的是自定义热键触发,所以设置的热键只能按一下就马上就要放开,一直按着不动的话是会重复一直输入直到输入停止的
联系我时,请说是在 挂海论坛 上看到的,谢谢! |