一键连招神器，带你超神带你飞

社区服务
高级搜索
猴岛论坛辅助工具一键连招神器，带你超神带你飞
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
« 返回列表
0个回复

一键连招神器，带你超神带你飞

 楼层直达
按键学院

ZxID：61232169

等级: 列兵
举报 只看楼主 使用道具 楼主   发表于: 2015-04-27 0
一键连招神器，带你超神带你飞

《本文由按键学院提供技术支持》

按键学院交流群（1群已满）：376122403
零基础学按键精灵群（2群）：372671254



曾经或正在玩类似真3、英雄联盟、dota等竞技游戏类的你
是否为自己的一次手残导致对手一丝血跑回家而懊恼过
是否为团战技能没用完就壮烈牺牲而愤怒过
是否为伪大神华丽、快速的连招羡慕过
是否为……
而现在，只要你看了这篇帖子，认真去研究下，这一切将不再是问题···


言归正传，最近发现贴吧有不少用户需求英雄联盟一键连招的脚本
刚好咱们骚气的06老师也是英雄联盟的忠实玩家所以也去小写了一个
虽然网上可能有很多更好的版本，但是咱胜在能看到源码，而且可以根
据自己需求更改代码，实现其他类似游戏的一键连招                                    
废话不多说了，让咱们一起深入了解下06老师的小作品



脚本下载
q文件下载
http://bbs.anjian.com/thread-569544-1-1.html


流程



处理下拉框技能

注意：技能下拉框一的技能命名格式为A.XXX，下拉框2的技能命令为B.XXX，根据需求可以依此类推直到Z
这样做的目的在于之后分割选中的行数据内容时候，可以以“."号分割，得到行数据(0)的键位名
方便之后用select···case语句判断键名调用操作（当然这边也可以自己自定义其他分割符号）

相关代码


复制代码
  1. [color=#ff0000]// 文件数据的处理
  2.         Text = ReadFile(g_BasePath & FilePath)
  3.         TracePrint text
  4.         行数据 = Split(Text, VBCRLF)
  5.         Call FormatScriptLine(行数据)
  6.         Form1.ScriptEdit.List = ""
  7.         For i = 0 To UBound(行数据)
  8.                 行数据(i) = Trim(行数据(i))
  9.                 cmd = Split(行数据(i), " . ")
  10.                 Select Case cmd(0)
  11.                         Case "A"
  12.                                 行数据(i) = "A . 使用技能（Q）"
  13.                         Case "B"
  14.                                 行数据(i) = "B . 使用技能（W）"
  15.                         Case "C"
  16.                                 行数据(i) = "C . 使用技能（E）"
  17.                         Case "D"
  18.                                 行数据(i) = "D . 使用技能（R）"
  19.                         Case "E"
  20.                                 行数据(i) = "E . 普通攻击（A）"
  21.                         Case "F"
  22.                                 行数据(i) = "F . 停止行动（S）"
  23.                         Case "G"
  24.                                 行数据(i) = "G . 召唤师技能（D）"
  25.                         Case "H"
  26.                                 行数据(i) = "H . 召唤师技能（F）"
  27.                         Case "I"
  28.                                 行数据(i) = "I . 装备主动技能（1）"
  29.                         Case "J"
  30.                                 行数据(i) = "J . 装备主动技能（2）"
  31.                         Case "K"
  32.                                 行数据(i) = "K . 装备主动技能（3）"
  33.                         Case "L"
  34.                                 行数据(i) = "L . 装备主动技能（4）"
  35.                         Case "M"
  36.                                 行数据(i) = "M . 装备主动技能（5）"
  37.                         Case "N"
  38.                                 行数据(i) = "N . 装备主动技能（6）"
  39.                         Case "O"
  40.                                 行数据(i) = "O . 鼠标左键点击"
  41.                         Case "P"
  42.                                 行数据(i) = "P . 鼠标左键按下"
  43.                         Case "Q"
  44.                                 行数据(i) = "Q . 鼠标左键弹起"
  45.                         Case "R"
  46.                                 行数据(i) = "R . 鼠标右键点击"
  47.                         Case "S"
  48.                                 行数据(i) = "S . 锁定视角（Y）"
  49.                         Case "X"
  50.                                 行数据(i) = "X . 鼠标移动到 . " & cmd(2) & " . " & cmd(3)
  51.                         Case "Y"
  52.                                 行数据(i) = "Y . 鼠标相对移动到 . " & cmd(2) & " . " & cmd(3)
  53.                         Case "Z"
  54.                                 行数据(i) = "Z . 延时 . " & cmd(2) & " . 毫秒"
  55.                         Case Else
  56.                                 行数据(i) = ""
  57.                 End Select
  58.                 If 行数据(i) <> "" Then
  59.                         Form1.ScriptEdit.AddItem 行数据(i)
  60.                 End If
  61.         Next
  62.         Form1.ScriptEdit.AddItem "* . 脚本结束"
  63. End Function[/color]

文件的路径、读取与写入
这边用的都是之前院刊小代码里分享过的一些代码，这边再整合下
复制代码
  1. // 读取文件内容 [SDK函数]
  2. Function ReadFile(FilePath)
  3. Dim fso, fileobj
  4. Set fso = CreateObject("Scripting.FileSystemObject")
  5. Set fileobj = fso.OpenTextFile(FilePath, 1, False)
  6. ReadFile = fileobj.ReadAll
  7. Call fileobj.Close()
  8. Set fso = Nothing
  9. Set fileobj = Nothing
  10. End Function
  12. // 向文件写入内容 [SDK函数]
  13. Function WriteFile(Path, Text)
  14. Dim fso, fileobj
  15. Set fso = CreateObject("Scripting.FileSystemObject")
  16. Set fileobj = fso.OpenTextFile(Path, 2, True)
  17. Call fileobj.Write(Text)
  18. Call fileobj.Close()
  19. Set fso = Nothing
  20. Set fileobj = Nothing
  21. End Function
  23. // 获取程序目录
  24. Function ExePath()
  25. RetStr = Space(260)
  26. GetModuleFileName 0, RetStr, 260
  27. ExePath = Left(RetStr, InStrRev(RetStr, "\"))
  28. End Function
  30. //获取程序文件名
  31. Function ExeFile()
  32. RetStr = Space(260)
  33. GetModuleFileName 0, RetStr, 260
  34. ExeFile = RetStr
  35. End Function
ps：脚本其他代码请下载q文件导入后自行查看



简易使用演示图

注意：脚本只在记事本上测试过是正常的，游戏内未作具体测试，请有需要的小伙伴自行用小号在游戏里测试，另外要特别注意由于使用的是自定义热键触发，所以设置的热键只能按一下就马上就要放开，一直按着不动的话是会重复一直输入直到输入停止的












[ 此帖被按键学院在2015-04-27 16:15重新编辑 ]
附件: LOL一键连招.rar (10 K) 下载数:4
打赏 收藏 新鲜事

相关主题

回复 引用
　 鲜花[0]　 鸡蛋[0]
« 返回列表
发帖 回复