一键连招神器，带你超神带你飞
《本文由按键学院提供技术支持》
按键学院交流群（1群已满）：376122403
零基础学按键精灵群（2群）：372671254
|
言归正传，最近发现贴吧有不少用户需求英雄联盟一键连招的脚本
刚好咱们骚气的06老师也是英雄联盟的忠实玩家所以也去小写了一个
虽然网上可能有很多更好的版本，但是咱胜在能看到源码，而且可以根据自己需求更改代码，实现其他类似游戏的一键连招废话不多说了，让咱们一起深入了解下06老师的小作品
脚本下载
q文件下载
http://bbs.anjian.com/thread-569544-1-1.html
流程
处理下拉框技能
注意：技能下拉框一的技能命名格式为A.XXX，下拉框2的技能命令为B.XXX，根据需求可以依此类推直到Z
这样做的目的在于之后分割选中的行数据内容时候，可以以“."号分割，得到行数据(0)的键位名
方便之后用select···case语句判断键名调用操作（当然这边也可以自己自定义其他分割符号）
相关代码
- [color=#ff0000]// 文件数据的处理
- Text = ReadFile(g_BasePath & FilePath)
- TracePrint text
- 行数据 = Split(Text, VBCRLF)
- Call FormatScriptLine(行数据)
- Form1.ScriptEdit.List = ""
- For i = 0 To UBound(行数据)
- 行数据(i) = Trim(行数据(i))
- cmd = Split(行数据(i), " . ")
- Select Case cmd(0)
- Case "A"
- 行数据(i) = "A . 使用技能（Q）"
- Case "B"
- 行数据(i) = "B . 使用技能（W）"
- Case "C"
- 行数据(i) = "C . 使用技能（E）"
- Case "D"
- 行数据(i) = "D . 使用技能（R）"
- Case "E"
- 行数据(i) = "E . 普通攻击（A）"
- Case "F"
- 行数据(i) = "F . 停止行动（S）"
- Case "G"
- 行数据(i) = "G . 召唤师技能（D）"
- Case "H"
- 行数据(i) = "H . 召唤师技能（F）"
- Case "I"
- 行数据(i) = "I . 装备主动技能（1）"
- Case "J"
- 行数据(i) = "J . 装备主动技能（2）"
- Case "K"
- 行数据(i) = "K . 装备主动技能（3）"
- Case "L"
- 行数据(i) = "L . 装备主动技能（4）"
- Case "M"
- 行数据(i) = "M . 装备主动技能（5）"
- Case "N"
- 行数据(i) = "N . 装备主动技能（6）"
- Case "O"
- 行数据(i) = "O . 鼠标左键点击"
- Case "P"
- 行数据(i) = "P . 鼠标左键按下"
- Case "Q"
- 行数据(i) = "Q . 鼠标左键弹起"
- Case "R"
- 行数据(i) = "R . 鼠标右键点击"
- Case "S"
- 行数据(i) = "S . 锁定视角（Y）"
- Case "X"
- 行数据(i) = "X . 鼠标移动到 . " & cmd(2) & " . " & cmd(3)
- Case "Y"
- 行数据(i) = "Y . 鼠标相对移动到 . " & cmd(2) & " . " & cmd(3)
- Case "Z"
- 行数据(i) = "Z . 延时 . " & cmd(2) & " . 毫秒"
- Case Else
- 行数据(i) = ""
- End Select
- If 行数据(i) <> "" Then
- Form1.ScriptEdit.AddItem 行数据(i)
- End If
- Next
- Form1.ScriptEdit.AddItem "* . 脚本结束"
- End Function[/color]
文件的路径、读取与写入
这边用的都是之前院刊小代码里分享过的一些代码，这边再整合下
- // 读取文件内容 [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
| 简易使用演示图 |
注意：脚本只在记事本上测试过是正常的，游戏内未作具体测试，请有需要的小伙伴自行用小号在游戏里测试，另外要特别注意由于使用的是自定义热键触发，所以设置的热键只能按一下就马上就要放开，一直按着不动的话是会重复一直输入直到输入停止的
[ 此帖被按键学院在2015-04-27 16:15重新编辑 ]
附件: 
LOL一键连招.rar (10 K) 下载次数:4
LOL一键连招.rar (10 K) 下载次数:4