AutoHotkey Community

require "WIN32OLE"

ahk = WIN32OLE.new("AutoHotkey.Script")
print ahk.AhkTextDll("MsgBox, AHK in Ruby")

gets

ahktextdll([in,optional] VARIANT script,[in,optional] VARIANT options,[in,optional] VARIANT params, [out, retval] unsigned int* hThread);
ahkdll([in,optional] VARIANT filepath,[in,optional] VARIANT options,[in,optional] VARIANT params, [out, retval] unsigned int* hThread);
ahkPause([in,optional] VARIANT aChangeTo,[out, retval] BOOL* paused);
ahkReady([out, retval] BOOL* ready);
ahkFindLabel([in] VARIANT aLabelName,[out, retval] unsigned int* pLabel);
ahkgetvar([in] VARIANT name,[in,optional] VARIANT getVar,[out, retval] BSTR* returnVal);
ahkassign([in] VARIANT name,[in,optional] VARIANT value,[out, retval] unsigned int* success);
ahkExecuteLine([in,optional] VARIANT line,[in,optional] VARIANT aMode,[in,optional] VARIANT wait,[out, retval] unsigned int* pLine);
ahkLabel([in] VARIANT aLabelName,[in,optional] VARIANT nowait,[out, retval] BOOL* success);
ahkFindFunction([in] VARIANT FuncName,[out, retval] unsigned int* pFunc);
ahkFunction([in] VARIANT FuncName,[in,optional] VARIANT param1,[in,optional] VARIANT param2,[in,optional] VARIANT param3,[in,optional] VARIANT param4,[in,optional] VARIANT param5,[in,optional] VARIANT param6,[in,optional] VARIANT param7,[in,optional] VARIANT param8,[in,optional] VARIANT param9,[in,optional] VARIANT param10,[out, retval] BSTR* returnVal);
ahkPostFunction([in] VARIANT FuncName,[in,optional] VARIANT param1,[in,optional] VARIANT param2,[in,optional] VARIANT param3,[in,optional] VARIANT param4,[in,optional] VARIANT param5,[in,optional] VARIANT param6,[in,optional] VARIANT param7,[in,optional] VARIANT param8,[in,optional] VARIANT param9,[in,optional] VARIANT param10,[out, retval] unsigned int* returnVal);
ahkKey([in] VARIANT name,[out, retval] BOOL* success);
addScript([in] VARIANT script,[in,optional] VARIANT replace,[out, retval] unsigned int* success);
addFile([in] VARIANT filepath,[in,optional] VARIANT aAllowDuplicateInclude,[in,optional] VARIANT aIgnoreLoadFailure,[out, retval] unsigned int* success);
ahkExec([in] VARIANT script,[out, retval] BOOL* success);
ahkTerminate([in,optional] VARIANT kill,[out, retval] BOOL* success);

Thread:=ComObjCreate("AutoHotkey.Script")
thread.ahktextdll("MsgBox %1%",1 "","")
While Thread.ahkReady()
   Sleep 100

If 0 ;FileInstall is only required when for compiled scripts,
   FileInstall,AutoHotkey.dll,AutoHotkey.dll
Loop 2 ;load and start threads
   dll%A_Index%:=AhkDllThread("AutoHotkey.dll") ;Create new Thread
   ,dll%A_Index%.ahktextdll("~RButton::`n" ;Load a script for Threads
                           . "While % GetKeyState(""RButton"",""P"")`n"
                           . "`nToolTip Thread" A_Index ",," A_Index*-20
                           . "`nToolTip`nReturn")
   
MsgBox Main Thread, Press Right Mouse Button`nPress OK to restart threads.

Loop 2 ;Start both Threads again (they will be terminated automatically!)
   dll%A_Index%.ahktextdll("~RButton::`n"
                           . "While % GetKeyState(""RButton"",""P"")`n"
                           . "ToolTip New Thread``nThread# " A_Index ",," A_Index*-40
                           . "`nToolTip`nReturn")
   
MsgBox Main Thread, Press Right Mouse Button`n Press OK to Exit

TestBlockInput()
{
   BlockInput, On
   sleep 5000
   BlockInput, Off
   return "Function completed successfully"
}