发表回复 
英雄联盟一键喊话助手增强版
2015-07-25, 14 : 10 (这个帖子最后修改于: 2017-04-30 10 : 19 by 空谷.)
Rainbow 英雄联盟一键喊话助手增强版
我新写的“英雄联盟喊话助手增强版”分享给大家~~

英雄联盟喊话助手
作者:wck
******************************基本功能***************************

本软件主要用于帮助英雄联盟喊话,快捷键为Ctrl+1,2,3,…,9,0
输入要喊的话后,点击【保存配置并启动热键】,界面会自动隐藏并开启热键
在英雄联盟窗口非激活状态下,快捷键Ctrl+F2会呼出主界面,当然也可以对系统托盘图标右键选择【显示主窗口】来呼出。单机右上角关闭按钮后软件将退出

*****************************特色功能****************************

1.CapsLock键激活状态下按快捷键向所有人发送消息(相当于Shift+Enter),未激活时只向队友发送消息
2.【重要功能!!必看!!】每个键对应的喊话内容将按句号分别发送。这将有助于使你的表达更有层次,更清晰。(字符串尾请勿加句号,否则将产生无效操作,可能导致出错)
例如,设定喊话内容:“健康游戏忠告:。抵制不良游戏,拒绝盗版游戏。注意自我保护,谨防受骗上当。适度游戏益脑,沉迷游戏伤身。合理安排时间,享受健康生活”
按下快捷键后,对话中会出现:
健康游戏忠告:
抵制不良游戏,拒绝盗版游戏
注意自我保护,谨防受骗上当
适度游戏益脑,沉迷游戏伤身
合理安排时间,享受健康生活
注意:句号将作为分隔符而永远不会出现在显示内容中
3.【挂起热键】按钮将取消Ctrl+数字键的热键(以防在其他程序激活时的热键冲突),如要恢复热键,可以点击“保存配置并启动热键”。

*****************************注意事项****************************

本软件会在工作目录下生成配置文件set.ini,请勿删除。
网速不佳,如ping为500时,由于发送延迟,不能正常实现功能
如果游戏内按快捷键无反应,但在记事本等编辑器中有反应,请尝试右键“以管理员身份运行”



[Image: 34ruot4.png]

[Image: 15s2810.jpg]


代码: (全选)
ininame = set.ini
all := "/all"

;设置菜单
Menu, tray, Add, 显示主窗口, Main

;检查文件是否存在
if !FileExist("%ininame%")        
    FileAppend,,%ininame%

initialization:        ;初始化
;读取配置文件
IniRead, mystr1, %ininame%,roar,mystr1,%A_Space%
IniRead, mystr2, %ininame%,roar,mystr2,%A_Space%
IniRead, mystr3, %ininame%,roar,mystr3,%A_Space%
IniRead, mystr4, %ininame%,roar,mystr4,%A_Space%
IniRead, mystr5, %ininame%,roar,mystr5,%A_Space%
IniRead, mystr6 ,%ininame%,roar,mystr6,%A_Space%
IniRead, mystr7, %ininame%,roar,mystr7,%A_Space%
IniRead, mystr8, %ininame%,roar,mystr8,%A_Space%
IniRead, mystr9, %ininame%,roar,mystr9,%A_Space%
IniRead, mystr0, %ininame%,roar,mystr0,%A_Space%

;GUI界面
Gui, New, , 英雄联盟喊话助手
Gui, Font, S14 CDefault, Verdana        
Gui, Add, Text, x12 y20 w60 h20 , Ctrl+
Gui, Font, S12 CDefault Bold, Verdana
Gui, Add, Text, x12 y60  w40 h20 , 1
Gui, Add, Text, x12 y90  w40 h20 , 2
Gui, Add, Text, x12 y120 w40 h20 , 3
Gui, Add, Text, x12 y150 w40 h20 , 4
Gui, Add, Text, x12 y180 w40 h20 , 5
Gui, Add, Text, x12 y210 w40 h20 , 6
Gui, Add, Text, x12 y240 w40 h20 , 7
Gui, Add, Text, x12 y270 w40 h20 , 8
Gui, Add, Text, x12 y300 w40 h20 , 9
Gui, Add, Text, x12 y330 w40 h20 , 0
Gui, Font, S10 CDefault, Verdana
Gui, Add, Button, x100 y370 w300 h30 gsubmitahk, 保存配置并启动热键
;一键喊话编辑控件
Gui, Add, Edit, x52 y60 w420 h20 vEstr1, %mystr1%        
Gui, Add, Edit, x52 y90 w420 h20 vEstr2, %mystr2%
Gui, Add, Edit, x52 y120 w420 h20 vEstr3, %mystr3%
Gui, Add, Edit, x52 y150 w420 h20 vEstr4, %mystr4%
Gui, Add, Edit, x52 y180 w420 h20 vEstr5, %mystr5%
Gui, Add, Edit, x52 y210 w420 h20 vEstr6, %mystr6%
Gui, Add, Edit, x52 y240 w420 h20 vEstr7, %mystr7%
Gui, Add, Edit, x52 y270 w420 h20 vEstr8, %mystr8%
Gui, Add, Edit, x52 y300 w420 h20 vEstr9, %mystr9%
Gui, Add, Edit, x52 y330 w420 h20 vEstr0, %mystr0%
Gui, Add, Button, x392 y10 w80 h30 gsusp, 挂起热键
Gui, Show, w491 h428, 英雄联盟喊话助手
return

Main:
Gosub, initialization
return

;执行“保存配置并启动热键”
submitahk:        
Gui, Submit        ;保存每个控件的内容到其关联变量中
IniWrite,%Estr1%,%ininame%,roar,mystr1        
;写入配置文件
IniWrite,%Estr2%,%ininame%,roar,mystr2
IniWrite,%Estr3%,%ininame%,roar,mystr3
IniWrite,%Estr4%,%ininame%,roar,mystr4
IniWrite,%Estr5%,%ininame%,roar,mystr5
IniWrite,%Estr6%,%ininame%,roar,mystr6
IniWrite,%Estr7%,%ininame%,roar,mystr7
IniWrite,%Estr8%,%ininame%,roar,mystr8
IniWrite,%Estr9%,%ininame%,roar,mystr9
IniWrite,%Estr0%,%ininame%,roar,mystr0
;喊话内容切割,赋值给数组iroar
StringSplit, 1roar, Estr1, 。
StringSplit, 2roar, Estr2, 。
StringSplit, 3roar, Estr3, 。
StringSplit, 4roar, Estr4, 。
StringSplit, 5roar, Estr5, 。
StringSplit, 6roar, Estr6, 。
StringSplit, 7roar, Estr7, 。
StringSplit, 8roar, Estr8, 。
StringSplit, 9roar, Estr9, 。
StringSplit, 0roar, Estr0, 。
;启用热键
Hotkey, $^1, roar1, On
Hotkey, $^2, roar2, On
Hotkey, $^3, roar3, On
Hotkey, $^4, roar4, On
Hotkey, $^5, roar5, On
Hotkey, $^6, roar6, On
Hotkey, $^7, roar7, On
Hotkey, $^8, roar8, On
Hotkey, $^9, roar9, On
Hotkey, $^0, roar0, On
return

;执行“暂停热键”
susp:
Hotkey, $^1, roar1, Off
Hotkey, $^2, roar2, Off
Hotkey, $^3, roar3, Off
Hotkey, $^4, roar4, Off
Hotkey, $^5, roar5, Off
Hotkey, $^6, roar6, Off
Hotkey, $^7, roar7, Off
Hotkey, $^8, roar8, Off
Hotkey, $^9, roar9, Off
Hotkey, $^0, roar0, Off
return

roar1:
KeyWait, Ctrl
state := GetKeyState("Capslock", "T")        ;当 CapsLock 打开时为真, 否则为假
Loop, %1roar0%
{
    this_str := 1roar%a_index%
    if state
        this_str := all A_Space this_str
    gosub, dialog
}
return
roar2:
KeyWait, Ctrl
state := GetKeyState("Capslock", "T")
Loop, %2roar0%
{
    this_str := 2roar%a_index%
    if state
        this_str := all A_Space this_str
    gosub, dialog
}
return
roar3:
KeyWait, Ctrl
state := GetKeyState("Capslock", "T")
Loop, %3roar0%
{
    this_str := 3roar%a_index%
    if state
        this_str := all A_Space this_str
    gosub, dialog
}
return
roar4:
KeyWait, Ctrl
state := GetKeyState("Capslock", "T")
Loop, %4roar0%
{
    this_str := 4roar%a_index%
    if state
        this_str := all A_Space this_str
    gosub, dialog
}
return
roar5:
KeyWait, Ctrl
state := GetKeyState("Capslock", "T")
Loop, %5roar0%
{
    this_str := 5roar%a_index%
    if state
        this_str := all A_Space this_str
    gosub, dialog
}
return
roar6:
KeyWait, Ctrl
state := GetKeyState("Capslock", "T")
Loop, %6roar0%
{
    this_str := 6roar%a_index%
    if state
        this_str := all A_Space this_str
    gosub, dialog
}
return
roar7:
KeyWait, Ctrl
state := GetKeyState("Capslock", "T")
Loop, %7roar0%
{
    this_str := 7roar%a_index%
    if state
        this_str := all A_Space this_str
    gosub, dialog
}
return
roar8:
KeyWait, Ctrl
state := GetKeyState("Capslock", "T")
Loop, %8roar0%
{
    this_str := 8roar%a_index%
    if state
        this_str := all A_Space this_str
    gosub, dialog
}
return
roar9:
KeyWait, Ctrl
state := GetKeyState("Capslock", "T")
Loop, %9roar0%
{
    this_str := 9roar%a_index%
    if state
        this_str := all A_Space this_str
    gosub, dialog
}
return
roar0:
KeyWait, Ctrl
state := GetKeyState("Capslock", "T")
Loop, %0roar0%
{
    this_str := 0roar%a_index%
    if state
        this_str := all A_Space this_str
    gosub, dialog
}
return

;发送消息
dialog:
Send, {Enter}
sleep 50
Send, %this_str%
Sleep, 50
Send, {Enter}
Sleep, 50
return

;Ctrl+F2呼出主窗口
^F2::
Gosub, Main
return

;关闭窗口则退出程序
GuiClose:
ExitApp

// 事不过三
if (操作步骤>=3 && 每日使用频次>=3){
赶紧写个快捷键;
}
查找这个用户的全部帖子
表示感谢 引用并回复 移动视图置页面顶端
发表回复 


论坛跳转:


联系我们 | Autohotkey 中文站 | 回到顶部 | 回到正文区 | 精简(归档)模式 | RSS 聚合