AutoHotkey Community

Code: Select all

#SingleInstance, Force
#NoEnv
Var:=0

OutputDebug Line  %A_LineNumber%: A_Index is: %A_Index% and Var is: %Var%
GoSub Looper
MsgBox end of program
return

;***********************First loop********************************.
Looper:
loop, 15
{
var:=Var+A_Index
OutputDebug Line %A_LineNumber%: A_Index is: %A_Index% and Var is: %Var%
var:=Var+10
GoSub SubLooper
}
return

;***********************Sub loop********************************.
SubLooper:
Loop, 3
{
SubLooperVar:=A_Index   
OutputDebug Line %A_LineNumber%: A_Index is: %A_Index% and Var is: %Var% and Sublooper index is: %SubLooperVar%
}
return

Code: Select all

Log(str){
   OutputDebug % "MyAppName: " str
}

Code: Select all

var3:=2
var:="hi"

Loop {
    tick := A_TickCount
ind:=A_Index
OutputDebug,   % ListGlobalVars()
    Sleep, 2000
}
return

RAlt::
Browser_Forward::Reload

;~ https://autohotkey.com/board/topic/20925-listvars/#entry156570
ListGlobalVars()
{
    static hwndEdit, pSFW, pSW, bkpSFW, bkpSW
    
    if !hwndEdit
    {
        dhw := A_DetectHiddenWindows
        DetectHiddenWindows, On
        Process, Exist
        ControlGet, hwndEdit, Hwnd,, Edit1, ahk_class AutoHotkey ahk_pid %ErrorLevel%
        DetectHiddenWindows, %dhw%
        
        astr := A_IsUnicode ? "astr":"str"
        ptr := A_PtrSize=8 ? "ptr":"uint"
        hmod := DllCall("GetModuleHandle", "str", "user32.dll", ptr)
        pSFW := DllCall("GetProcAddress", ptr, hmod, astr, "SetForegroundWindow", ptr)
        pSW := DllCall("GetProcAddress", ptr, hmod, astr, "ShowWindow", ptr)
        DllCall("VirtualProtect", ptr, pSFW, ptr, 8, "uint", 0x40, "uint*", 0)
        DllCall("VirtualProtect", ptr, pSW, ptr, 8, "uint", 0x40, "uint*", 0)
        bkpSFW := NumGet(pSFW+0, 0, "int64")
        bkpSW := NumGet(pSW+0, 0, "int64")
    }

    if (A_PtrSize=8) {
        NumPut(0x0000C300000001B8, pSFW+0, 0, "int64")  ; return TRUE
        NumPut(0x0000C300000001B8, pSW+0, 0, "int64")   ; return TRUE
    } else {
        NumPut(0x0004C200000001B8, pSFW+0, 0, "int64")  ; return TRUE
        NumPut(0x0008C200000001B8, pSW+0, 0, "int64")   ; return TRUE
    }
    
    ListVars
    
    NumPut(bkpSFW, pSFW+0, 0, "int64")
    NumPut(bkpSW, pSW+0, 0, "int64")
    
    ControlGetText, text,, ahk_id %hwndEdit%

    RegExMatch(text, "sm)(?<=^Global Variables \(alphabetical\)`r`n-{50}`r`n).*", text)
    return text
}