AHKinfo工具修改版以及修改方法教程

Generate(){ ;生成简单代码
    Gui, 1:ListView,ListView1   ;切换到窗口列表以设置数据
    GuiControlGet,Checkbox1_C,,Checkbox1
    GuiControlGet,Checkbox2_C,,Checkbox2
    GuiControlGet,Checkbox3_C,,Checkbox3
    GuiControlGet,Checkbox4_C,,Checkbox4
    GuiControlGet,ALL_text,,Hidden_text
    StringSplit,ALL_text,ALL_text,`n
    LV_GetText(text1,1,2) ;标题
    LV_GetText(text2,2,2)   ;类名
    LV_GetText(text3,10,2)  ;进程名
    LV_GetText(text4,6,2)   ;窗口内指定坐标
    LV_GetText(screenCoord,13,2) ;获取全局坐标
    Gui, 1:ListView,ListView2
    LV_GetText(text5,1,2) ;获取控件类
    LV_GetText(text6,7,2) ;获取控件内坐标

接下来就是生成模板代码的部分

找到这个函数的部分就可以了SetText(text)

会发现就是一些赋值给text然后转入显示

自己想要修改的话先看一下这个判断的条件,比如是在判断标题控件是否为空的条件内部就是涉及标题的

可以看我添加的示例,我加入了判断根据全局坐标是否取得来添加点击屏幕坐标的函数的示例代码

if (WinTitle!="" and WinTitle!="ahk_class"){
        ;~ SetText(";------<<操作代码>>-------")
        text=
        (
        ;等待指定标题窗口出现
        WinWait, %WinTitle%%WinText%

        )
        SetText(text)

        text=
        (
        ;点击窗口内指定坐标
        ControlClick, %text4%, %WinTitle%%WinText%

        )
        SetText(text)
        text=
        (
        ;激活窗口和添加组,以及限定窗口
        WinActivate,%WinTitle%%WinText%
        GroupAdd,%WinTitle%%WinText%
        #IfWinActive,%WinTitle%%WinText%

        )
        SetText(text)

        if screenCoord!=
        {
            Text=
            (
            ;点击屏幕坐标
            ClickPosition( %screenCoord% ,1, 0, "Screen", true)

            )
            SetText(text)
        }

        if text5!=
        {
            text=
            (
            ;点击控件
            ControlClick, %text5%, %WinTitle%%WinText%

            )
            SetText(text)

            if text6!=
            {
                text=
                (
                ;左键点击控件内指定坐标1次
                ControlClick, %text5%, %WinTitle%%WinText%, LEFT, 1, %text6%

                )
                SetText(text)
            }

            if % InStr(text5,"Button")
            {
                text=
                (
                ;控件选中(如果此控件为选择框或单选框) Check替换为Uncheck即取消选中
                Control, Check, , %text5%, %WinTitle%%WinText%

                )
                SetText(text)
            }
            text=
            (
            ;向控件发送空格键
            ControlSend, %text5%,{Space}, %WinTitle%%WinText%

            )
            SetText(text)
            

截止到这里其实你就已经会修改info的示例代码了

然后就是出现的位置的修改

搜索这个show的位置选择你想要出现的位置即可,我选择根据鼠标的位置出现

MouseGetPos, scx, scy
Gui, 1:Show,x %scx% y %scy% w%窗口宽% h410, %AHKInfo_Title%

然后就是僵尸大佬提出的想要修改info为可拖拽改变大小的功能(害,这要求真麻烦)

演示

GuiSize:
Critical Off  ; 无论是否设置过 Critical On.
Sleep -1
GuiControl, 1:Move, Tab1, % "w"A_GuiWidth-2 " h" A_GuiHeight-2
GuiControl, 1:Move, ListView1, % "w"A_GuiWidth-15 " h" A_GuiHeight-120
GuiControl, 1:Move, Slider1, % "y" A_GuiHeight-100
GuiControl, 1:Move, Text_T, % "y" A_GuiHeight-100
GuiControl, 1:Move, ListView2, % "w"A_GuiWidth-15 " h" (A_GuiHeight-100)/2+30
GuiControl, 1:Move, ListView4, % "w"A_GuiWidth-15 " h" (A_GuiHeight-100)/2-20 " y" (A_GuiHeight-80)/2+30
GuiControl, 1:Move, Visible_text, % "w"A_GuiWidth-15 " h" (A_GuiHeight-100)/2
GuiControl, 1:Move, Hidden_text, % "w"A_GuiWidth-15 " h" (A_GuiHeight-100)/2+10 " y" (A_GuiHeight-80)/2
GuiControl, 1:Move, ListView3, % "w"A_GuiWidth-15 " h" A_GuiHeight-85
GuiControl, 1:Move, Generate_text, % "w"A_GuiWidth-15 " h" A_GuiHeight-105
GuiControl, 1:Move, ListView5, % "w"A_GuiWidth-15 " h" A_GuiHeight-190
GuiControl, 1:Move, Radio1, % "y" A_GuiHeight-180
GuiControl, 1:Move, Radio2, % "y" A_GuiHeight-180
GuiControl, 1:Move, Edit1, % "y" A_GuiHeight-160 " w"A_GuiWidth-15 " h80"
GuiControl, 1:Move, IeGenerate_text, % "w"A_GuiWidth-15 " h" A_GuiHeight-105
return