英雄联盟亲人保护器.ahk

#SingleInstance Force
#Requires AutoHotkey >=2.0- <2.1 64-bit

TraySetIcon(A_WorkingDir . "\英雄联盟亲人保护器.ico")
global Name := "" ;互动对象
global Custom_Index := 1 ;自定义保护库索引

; 读取保护库，自定义保护库内容，转换为字符串数组
txt := FileRead(A_WorkingDir . "\Data\Data.txt","UTF-8")
txtArray := StrSplit(txt,"`n","`r")
custom_txt := FileRead(A_WorkingDir . "\Data\Custom.txt","UTF-8")
custom_txt_array := StrSplit(custom_txt,"`n","`r")

; 重载脚本
F12::{
    Reload
}

; ---------------------------------------------------
; 游戏对战界面保护代码
; ---------------------------------------------------
#HotIf WinActive("ahk_exe League of Legends.exe")
; #HotIf WinActive("ahk_exe EverEdit.exe") ;测试
; 随机发送Data.txt库中的内容
F2::{
    global
    index := Random(1,txtArray.Length)
    SendInput("+{Enter}")
    Sleep(200)
    if(Name == ""){
        SendCn(txtArray[index])
    }
    else{
        SendCn(Name . "，" . txtArray[index])
    }
    Sleep(400)
    SendInput("{Enter}")
}

; 按照顺序发送Custom.txt库中内容
F3::{
    global
    SendInput("+{Enter}")
    Sleep(200)
    if(Name == ""){
        SendCn(custom_txt_array[Custom_Index])
    }
    else{
        SendCn(Name . "，" . custom_txt_array[Custom_Index])
    }
    Sleep(400)
    SendInput("{Enter}")
    if(Custom_Index < custom_txt_array.Length){
        Custom_Index := Custom_Index + 1
    }
    else{
        Custom_Index := 1
        ShowText("您要骂的话都骂完了，消消气！\(^o^)/~")
    }
}

; 获取被保护姓名
F5::{
    global
    input_obj := InputBox("请输入您要骂的人的名字","名字")
    Name := input_obj.Value
}

#HotIf


; ---------------------------------------------------
; 游戏结算界面保护代码
; ---------------------------------------------------
#HotIf WinActive("ahk_exe LeagueClientUx.exe")
; 随机发送Data.txt库中的内容
F2::{
    global
    index := Random(1,txtArray.Length)
    if(Name == ""){
        SendCn(txtArray[index])
    }
    else{
        SendCn(Name . "，" . txtArray[index])
    }
    Sleep(400)
    SendInput("{Enter}")
}

; 按照顺序发送Custom.txt库中内容
F3::{
    global
    if(Name == ""){
        SendCn(custom_txt_array[Custom_Index])
    }
    else{
        SendCn(Name . "，" . custom_txt_array[Custom_Index])
    }
    Sleep(400)
    SendInput("{Enter}")
    if(Custom_Index < custom_txt_array.Length){
        Custom_Index := Custom_Index + 1
    }
    else{
        Custom_Index := 1
        ShowText("您要骂的话都骂完了，消消气！\(^o^)/~")
    }
}

; 获取被保护姓名
F5::{
    global
    input_obj := InputBox("请输入您要骂的人的名字","名字")
    Name := input_obj.Value
}

#HotIf


; ---------------------------------------------------
; 用到的自定义函数库
; ---------------------------------------------------
/*
获取字符串的Unicode编码，使用Send发送Unicode编码，避免中文输入法的干扰问题返回值为字符串
str:字符串，需要发送的字符串
*/
SendCn(str)
{
    charList:=StrSplit(str)
    for key,val in charList{
        ; 转换每个字符为{U+16进制Unicode编码}
        out.="{U+" . Format("{:X}",ord(val)) . "}"
    }
    SendInput(out)
}

;提示信息显示函数
ShowText(str)
{
    showTime := 1500
    MyGui := Gui()
    MyGui.Opt("+AlwaysOnTop +Disabled -Caption -SysMenu +Owner +LastFound")
    MyGui.SetFont("s26 cff9e00","Microsoft Yahei UI")
    MyGui.BackColor := "FF0001"
    WinSetTransColor("FF0001", MyGui)
    MyGui.Add("Text","BackgroundTrans",str)
    MyGui.Show("NoActivate Y150 NA")
    Sleep showTime
    MyGui.Destroy()
}