AutoHotkey Community

#include <FileGetVersionInfo>
AhkDllThread(dll="AutoHotkey.dll",obj=0){
   static init,ahkfunction,hLib,ahkexec,DynaCall:="DynaCall", MemoryLoadLibrary:="MemoryLoadLibrary",MemoryFreeLibrary:="MemoryFreeLibrary"
         ,ResourceLoadLibrary:="ResourceLoadLibrary", MemoryGetProcAddress:="MemoryGetProcAddress"
   static AHK_H:=A_IsCompiled?1:FileGetVersionInfo_AW(A_AhkPath,"InternalName")="AutoHotkey_H"
   static base:={__Delete:"AhkDllThread"}
   static functions ="
(Join
ahkKey:s|ahkFunction:s=sssssssssss|ahkPostFunction:i=sssssssssss|
ahkdll:ut=sss|ahktextdll:ut=sss|ahkReady:|ahkReload:ui=|
ahkTerminate:i|addFile:ut=sucuc|addScript:ut=si|ahkExec:ui=s|
ahkassign:ui=ss|ahkExecuteLine:ut=utuiui|ahkFindFunc:ut=s|
ahkFindLabel:ut=s|ahkgetvar:s=sui|ahkLabel:ui=sui|ahkPause:s
)"
   static AhkDllThreadfunc ="
(Join`r`n
#Persistent
#NoTrayIcon
Return
AhkDllThread(dll=""AutoHotkey.dll"",obj=0,map=""""){
   static functions = ""ahkKey:s|ahkFunction:s=sssssssssss|ahkPostFunction:i=sssssssssss|""
                     . ""ahkdll:ut=sss|ahktextdll:ut=sss|ahkReady:|ahkReload:ui=|""
                     . ""ahkTerminate:i|addFile:ut=sucuc|addScript:ut=si|ahkExec:ui=s|""
                     . ""ahkassign:ui=ss|ahkExecuteLine:ut=utuiui|ahkFindFunc:ui=s|""
                     . ""ahkFindLabel:ui=s|ahkgetvar:s=sui|ahkLabel:ui=sui|ahkPause:s""
   If (dll=""0"")
      return object:=""""
   else If dll is digit
      return MemoryFreeLibrary(dll)
   else If (!FileExist(dll)){
      MsgBox File: `%dll`% does not exist`, provide correct path for AutoHotkey.dll
      ExitApp
   }
   object:=IsObject(obj)?obj:{},object[""""]:= MemoryLoadLibrary(dll)
   Loop,Parse,functions,|
   {
      StringSplit,v,A_LoopField,:
      object[map="""" ? v1 : !InStr(map,v1) ? v1 : SubStr(map,InStr(map,v1)+StrLen(v1)+1,InStr(map,A_Space,0,InStr(map,v1)))]:=DynaCall(MemoryGetProcAddress(object[""""],v1),v2)
   }
   object.base:=Object(" (&base) ")
   return &object
}
)"
   If IsObject(dll){
      dll.ahkterminate()
      If !AHK_H{
         DllCall(ahkfunction,"Str","AhkDllThread","Str",dll[""],"Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","CDecl Str")
      } else %MemoryFreeLibrary%(dll[""])
      return
   } else if (!FileExist(dll) && !A_IsCompiled){
      MsgBox File: %dll%`ndoes not exist`, provide correct path for AutoHotkey.dll
      ExitApp
   }
   If !AHK_H{
      If (init || ((hLib:=DllCall("LoadLibrary","Str",dll)) && (Init:=DllCall("GetProcAddress","PTR",hLib,"Astr","ahktextdll","PTR")))){
         If (ahkfunction || (DllCall(init,"Str",AhkDllThreadfunc,"Str","","Str","","Cdecl UInt") && (ahkfunction:=DllCall("GetProcAddress","PTR",hLib,"Astr","ahkFunction","PTR")) && (ahkExec:=DllCall("GetProcAddress","PTR",hLib,"Astr","ahkExec","PTR")))){
            return Object(0+DllCall(ahkfunction,"Str","AhkDllThread","Str",dll,"Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","CDecl Str"))
            ;reset internal memory in autoHotkey.dll
            ,DllCall(ahkfunction,"Str","AhkDllThread","Str","0","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","CDecl Str")
         } else {
            MsgBox Could not load script in %dll%
            Return 0
         }
      } else {
         MsgBox Could not load %dll%
         Return 0
      }
   }
   object:=IsObject(obj)?obj:{},object[""]:= A_IsCompiled ? %ResourceLoadLibrary%(dll) : %MemoryLoadLibrary%(dll)
   Loop,Parse,functions,|
   {
      StringSplit,v,A_LoopField,:
      object[map="" ? v1 : !InStr(map,v1) ? v1 : SubStr(map,InStr(map,v1)+StrLen(v1)+1,InStr(map,A_Space,0,InStr(map,v1)))]:=%DynaCall%(%MemoryGetProcAddress%(object[""],v1),v2)
   }
   return object,object.base:=base
}

#Noenv
SetWorkingDir %A_ScriptDir%
#persistent
#include <AhkDllThread>
oThreads := []   

if !FileExist(strDllLocation := A_PtrSize = 8 ? A_ScriptDir "\AutoHotkey64.dll" : A_ScriptDir "\AutoHotkey32.dll") {
   msgbox The autohotkey.dll is not found.
   ExitApp
}
loop 15
{
   oThreads[A_Index]:=AhkDllThread(strDllLocation)
   oThreads[A_Index].ahktextdll("
   (Ltrim
      #NoTrayIcon
      msgbox " A_Index "
      ExitApp
   )")
}
Process, Exist
MsgBox Check memory of PID %ErrorLevel% now, click OK to unload dlls.
loop 15
   oThreads[A_Index].ahkterminate(), oThreads[A_Index] := ""
MsgBox Memory freed.

#include <FileGetVersionInfo>
AhkDllThread(dll="AutoHotkey.dll",obj=0){
   static init,ahkfunction,hLib,ahkexec,DynaCall:="DynaCall", MemoryLoadLibrary:="MemoryLoadLibrary",MemoryFreeLibrary:="MemoryFreeLibrary"
         ,ResourceLoadLibrary:="ResourceLoadLibrary", MemoryGetProcAddress:="MemoryGetProcAddress"
   static AHK_H:=A_IsCompiled?1:FileGetVersionInfo_AW(A_AhkPath,"InternalName")="AutoHotkey_H"
   static base:={__Delete:"AhkDllThread"}
   static functions ="
(Join
ahkKey:s|ahkFunction:s=sssssssssss|ahkPostFunction:i=sssssssssss|
ahkdll:ut=sss|ahktextdll:ut=sss|ahkReady:|ahkReload:ui=|
ahkTerminate:i|addFile:ut=sucuc|addScript:ut=si|ahkExec:ui=s|
ahkassign:ui=ss|ahkExecuteLine:ut=utuiui|ahkFindFunc:ut=s|
ahkFindLabel:ut=s|ahkgetvar:s=sui|ahkLabel:ui=sui|ahkPause:s
)"
   static AhkDllThreadfunc ="
(Join`r`n
#Persistent
#NoTrayIcon
Return
AhkDllThread(dll=""AutoHotkey.dll"",obj=0,map=""""){
   static functions = ""ahkKey:s|ahkFunction:s=sssssssssss|ahkPostFunction:i=sssssssssss|""
                     . ""ahkdll:ut=sss|ahktextdll:ut=sss|ahkReady:|ahkReload:ui=|""
                     . ""ahkTerminate:i|addFile:ut=sucuc|addScript:ut=si|ahkExec:ui=s|""
                     . ""ahkassign:ui=ss|ahkExecuteLine:ut=utuiui|ahkFindFunc:ui=s|""
                     . ""ahkFindLabel:ui=s|ahkgetvar:s=sui|ahkLabel:ui=sui|ahkPause:s""
   If (dll=""0"")
      return object:=""""
   else If (!FileExist(dll)){
      MsgBox File: `%dll`% does not exist`, provide correct path for AutoHotkey.dll
      ExitApp
   }
   object:=IsObject(obj)?obj:{},object[""""]:= MemoryLoadLibrary(dll)
   Loop,Parse,functions,|
   {
      StringSplit,v,A_LoopField,:
      object[map="""" ? v1 : !InStr(map,v1) ? v1 : SubStr(map,InStr(map,v1)+StrLen(v1)+1,InStr(map,A_Space,0,InStr(map,v1)))]:=DynaCall(MemoryGetProcAddress(object[""""],v1),v2)
   }
   object.base:=Object(" (&base) ")
   return &object
}
)"
   If IsObject(dll){
      dll.ahkterminate()
      If !AHK_H{
         DllCall(ahkExec,"Str","MemoryFreeLibrary(" dll[""] ")")
      } else %MemoryFreeLibrary%(dll[""])
      return
   } else if (!FileExist(dll) && !A_IsCompiled){
      MsgBox File: %dll%`ndoes not exist`, provide correct path for AutoHotkey.dll
      ExitApp
   }
   If !AHK_H{
      If (init || ((hLib:=DllCall("LoadLibrary","Str",dll)) && (Init:=DllCall("GetProcAddress","PTR",hLib,"Astr","ahktextdll","PTR")))){
         If (ahkfunction || (DllCall(init,"Str",AhkDllThreadfunc,"Str","","Str","","Cdecl UInt") && (ahkfunction:=DllCall("GetProcAddress","PTR",hLib,"Astr","ahkFunction","PTR")) && (ahkExec:=DllCall("GetProcAddress","PTR",hLib,"Astr","ahkExec","PTR")))){
            return Object(0+DllCall(ahkfunction,"Str","AhkDllThread","Str",dll,"Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","CDecl Str"))
            ;reset internal return memory in autoHotkey.dll and release object
            ,DllCall(ahkfunction,"Str","AhkDllThread","Str","0","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","CDecl Str")
         } else {
            MsgBox Could not load script in %dll%
            Return 0
         }
      } else {
         MsgBox Could not load %dll%
         Return 0
      }
   }
   object:=IsObject(obj)?obj:{},object[""]:= A_IsCompiled ? %ResourceLoadLibrary%(dll) : %MemoryLoadLibrary%(dll)
   Loop,Parse,functions,|
   {
      StringSplit,v,A_LoopField,:
      object[map="" ? v1 : !InStr(map,v1) ? v1 : SubStr(map,InStr(map,v1)+StrLen(v1)+1,InStr(map,A_Space,0,InStr(map,v1)))]:=%DynaCall%(%MemoryGetProcAddress%(object[""],v1),v2)
   }
   return object,object.base:=base
}

loop 15
   oThreads[A_Index].ahkterminate(), oThreads[A_Index] := ""
; Should be
While % oThreads.MaxIndex() ; Can be Loop 15 as well
   oThreads.Remove() ; Thread will be terminated internally as well
; Alternatively
loop 15
   oThreads[16-A_Index] := ""

#Noenv
SetWorkingDir %A_ScriptDir%
#persistent
#include <AhkDllThread>
oThreads := []   

if !FileExist(strDllLocation := A_PtrSize = 8 ? A_ScriptDir "\AutoHotkey64.dll" : A_ScriptDir "\AutoHotkey32.dll") {
   msgbox The autohotkey.dll is not found.
   ExitApp
}
loop 15
{
   oThreads[A_Index]:=AhkDllThread(strDllLocation)
   oThreads[A_Index].ahktextdll("
   (Ltrim
      #NoTrayIcon
      msgbox " A_Index "
      ExitApp
   )")
}
Process, Exist
MsgBox Check memory of PID %ErrorLevel% now, click OK to unload dlls.
While % oThreads.MaxIndex() ; Can be Loop 15 as well
   oThreads.Remove() ; Thread will be terminated internally as well 
MsgBox Memory freed.

#Noenv
#singleinstance, Force
#persistent
SetWorkingDir %A_ScriptDir%

#include <AhkDllThread>

;make it super global for testing to see the number of thread objects in the function
global oThreads := []   
loop 15
   MsgboxInThread(A_Index)
Return

;Press F1 to see the current number of thread objects in the function
F1::msgbox % oThreads.maxindex()     

MsgboxInThread(param, strDllLocation=".\AutoHotkey.dll") {
   static strDllLoc, oThreadRemove:=[] ;, oThreads := []
   strDllLoc := strDllLoc ? strDllLoc : strDllLocation
   oThreads.Insert(AhkDllThread(strDllLocation))
   oThreads[oThreads.MaxIndex()].ahktextdll("
   (Ltrim
      #NoTrayIcon
      msgbox " param "
      ExitApp
   )")

   SetTimer, MsgboxInThread_TerminateThread, 1000
   Return
   MsgboxInThread_TerminateThread:
      For index, oThread in oThreads {
         If !oThread.ahkReady() {
            oThread.ahkterminate()
            oThread := ""
            oThreadRemove.Insert(index)
         }
      }
      Loop % oThreadRemove.MaxIndex()
         oThreads.Remove(oThreadRemove[A_Index])
      if !oThreads.MaxIndex()
         SetTimer,, Off   
   Return
}

dll:=AhkDllThread(".\AutoHotkey.dll")
dll.ahktextdll("
         (LTrim
         #NoTrayIcon
         TT:=TT(""Balloon"")
         ShowToolTip:
         TT.Show(""Hello"",""TrayIcon"",""TrayIcon"",""Welcome"")
         SetTimer,HideToolTip,-5000
         Return
         HideToolTip:
         TT.Hide()
         Return
         )")
dll.ahkLabel("ShowToolTip",1)
Loop
   ToolTip % A_Now
Escape::ExitApp

2. The script crashes after exiting the thread script.