AhkDllThread (2).ahk

AhkDllThread(dll="AutoHotkey.dll",obj=0){
	static
	local v,v1,v2
	static init, DynaCall:="DynaCall", MemoryLoadLibrary:="MemoryLoadLibrary",MemoryFreeLibrary:="MemoryFreeLibrary"
			,ResourceLoadLibrary:="ResourceLoadLibrary", MemoryGetProcAddress:="MemoryGetProcAddress"

	static functions ="
(Join
ahkKey:s|ahkFunction:s=sssssssssss|ahkPostFunction:i=sssssssssss|
ahkdll:ui=sss|ahktextdll:ui=sss|ahkReady:|ahkReload:ui=|
ahkTerminate:i|addFile:ui=sucuc|addScript:ui=si|ahkExec:ui=s|
ahkassign:ui=ss|ahkExecuteLine:ui=uiuiui|ahkFindFunc:ui=s|
ahkFindLabel:ui=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
	local v,v1,v2
	static functions = ""ahkKey:s|ahkFunction:s=sssssssssss|ahkPostFunction:i=sssssssssss|""
							. ""ahkdll:ui=sss|ahktextdll:ui=sss|ahkReady:|ahkReload:ui=|""
							. ""ahkTerminate:i|addFile:ui=sucuc|addScript:ui=si|ahkExec:ui=s|""
							. ""ahkassign:ui=ss|ahkExecuteLine:ui=uiuiui|ahkFindFunc:ui=s|""
							. ""ahkFindLabel:ui=s|ahkgetvar:s=sui|ahkLabel:ui=sui|ahkPause:s""
	If !dll {
		Loop `% i
		{
			idx:=A_Index
			`%MemoryFreeLibrary`%(dllmodule`%A_Index`%)
			obj`%A_Index`%:="""",dll`%A_Index`%:="""",dllmodule`%A_Index`%:=""""
		}
		i=0
		return
	} else if (!FileExist(dll)){
		MsgBox File: `%dll`% does not exist`, provide correct path for AutoHotkey.dll
		ExitApp
	}
	i++
	dllmodule`%i`%:= MemoryLoadLibrary(dll)
	if IsObject(obj)
    object:=obj
	else
    object := Object()
  object[""""]:=dllmodule`%i`%
	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(dllmodule`%i`%,v1),v2)
	}
  obj`%i`%:=object
	dll`%i`%:=dll
	return &obj`%i`%
}
)"
  If !(dll){
    If !AHK_H{
			return DllCall(dll "\ahkFunction","Str","AhkDllThread","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","CDecl Str")
		}
		Loop % i
		{
			idx:=A_Index
			%MemoryFreeLibrary%(dllmodule%A_Index%)
			obj%A_Index%:="",dll%A_Index%:="",dllmodule%A_Index%:=""
		}
		i=0
		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 || init:=DllCall("LoadLibrary","Str",dll)){
			If DllCall(dll "\ahktextdll","Str",AhkDllThreadfunc,"Str","","Str","","Cdecl UInt")
				Return Object(0+DllCall(dll "\ahkFunction","Str","AhkDllThread","Str",dll,"Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","CDecl Str"))
			else
				Return 0,ErrorLevel:="Could not load AutoHotkey.dll"
		} else {
			MsgBox Could not load %dll%
			Return 0
		}
	}
	i++
	dllmodule%i%:=A_IsCompiled ? %ResourceLoadLibrary%(dll) : %MemoryLoadLibrary%(dll)
	if IsObject(obj)
    object:=obj
	else
    object := Object()
  object[""]:=dllmodule%i%
	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%(dllmodule%i%,v1),v2)
	}
  obj%i%:=object
	dll%i%:=dll
	return obj%i%
}


/*
AhkDllThread(dll=""){
	static
	static ResourceLoadLibrary:="ResourceLoadLibrary"
	static functions:="ahkdll|ahktextdll|ahkReady|ahkReload|ahkTerminate|addFile|addScript|assign|ahkExecuteLine|ahkFindFunc|ahkFindLabel|ahkgetvar|ahkLabel|ahkPause"
	If !(dll){
		Loop % i
		{
			idx:=A_Index
			Loop,Parse,functions,|
				DynaCall(dll%idx% . "\" . A_LoopField)
			MemoryFreeLibrary(dllmodule%A_Index%)
			obj%A_Index%=
			dll%A_Index%=
			dllmodule%A_Index%=
		}
		i=0
		return
	}
	i++
	dllmodule%i%:=A_IsCompiled ? %ResourceLoadLibrary%(dll) : MemoryLoadLibrary(dll)
	object := Object()
	Loop,Parse,functions,|
		object[A_LoopField]:=MemoryGetProcAddress(dllmodule%i%,A_LoopField)
	DynaCall(object.ahkdll,"Str","","Str","","Str","","CDecl UInt")
	DynaCall(object.ahktextdll,"Str","","Str","","Str","","CDecl UInt")
	DynaCall(object.ahkReady,"Cdecl Int")
	DynaCall(object.ahkReload,"Cdecl Int")
	DynaCall(object.ahkTerminate,"Int",0,"Cdecl Int")
	DynaCall(object.addFile,"Str","","uchar",0,"uchar",0,"CDecl UInt")
	DynaCall(object.addScript,"Str","","Int",0,"Int",0,"CDecl UInt")
	DynaCall(object.ahkassign,"Str","","Str","")
	DynaCall(object.ahkExecuteLine,"UInt",0,"UInt",0,"UInt",0,"CDecl UInt")
	DynaCall(object.ahkFindFunc,"Str","","CDecl UInt")
	DynaCall(object.ahkFunction,"Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","CDecl Str")
   DynaCall(object.ahkPostFunction,"Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","Str","","CDecl Str")
	DynaCall(object.ahkgetvar,"Str","","UInt",0,"CDecl Str")
	DynaCall(object.ahkLabel,"Str","","CDecl UInt")
	DynaCall(object.ahkPause,"Str","")
	obj%i%:=object
	dll%i%:=dll
	return obj%i%
}