AutoHotkey Community

ahk:=ComObjCreate("AutoHotkey.Script")   
script =                                 
( %                                       
#persistent                               
return                                   
                                         
filter(w){                               
return w[0]                               
}                                                 
)                                                 
ahk.ahktextdll(script)                             
Sleep, 1000                                       
arr := ComObjArray(VT_VARIANT:=12, 3)     
arr[0] := "hello world"                   
msgbox % ahk.ahkFunction("filter", arr)  ; works first time 
                                                         
arr[0] := "world"                                         
msgbox % ahk.ahkFunction("filter", arr)  ; fails as arr has been somehow broken by dll
                                                                                   
arr := ComObjArray(VT_VARIANT:=12, 3)  ; if you create a new array...   
arr[0] := "hello"                                                   
msgbox % ahk.ahkFunction("filter", arr)  ; then it works again                           

ahk:=ComObjCreate("AutoHotkey.Script")
   
script =                   
( %                         
#persistent                 
NumPut(p*){
   MsgBox Function %A_ThisFunc% has been deactivated
}
return                     
)                                 
ahk.ahktextdll(script)             
Sleep, 1000                                 

sandboxed =
(
fx(){
VarSetCapacity(x, 5)
static s := numput(5, x)
}
  VarSetCapacity(x, 5)
numput(5, x) 
)               

ahk.addScript(sandboxed , 1) 
return

!r::reload
!q::exitapp   

ahk := comobjcreate("AutoHotkey.Script.ANSISANDBOX")
FileRead, sandbox, sandbox.ahk                 
ahk.ahktextdll(sandbox)       
x := ahk.ahkFunction("inStr", "helloworld", "hello")
msgbox % "substr returned: " x
return               
!r::reload
!q::exitapp         

#Persistent
mousemove, 100, 100   ; disabled, mouse will not move
WhichButton := DllCall("MessageBox", "Int", "0", "Str", "Press Yes or No", "Str", "Title of box", "Int", 4)   ;; dllcall disabled
MsgBox You pressed button #%WhichButton%.  ; msgbox disabled
fx(a, b ){
return substr(a, b)
}     
return

ahk := comobjcreate("AutoHotkey.Script.UNICODE")                   
ahk.ahktextdll("#persistent")                         
arr := ComObjArray(VT_VARIANT:=12, 3)
arr[0] := "Auto"
arr[1] := "Hot"
arr[2] := "key"       
ahk.ahkassign("x", arr)
y := ahk.ahkgetvar("x")
for i in y{
msgbox % i   ; works
}         
return               

import pythoncom, win32com.client, time
ahk = win32com.client.Dispatch("AutoHotkey.Script.UNICODE")
script = '''                     
#persistent                       
echo(x){   
for i in x {
msgbox % i  ; ok                         
return x                         
}                                 
'''                               
ahk.ahktextdll(script)           
time.sleep(1)

ahk.ahkassign('simple', 'simple value')
simple = ahk.ahkgetvar('simple') # ok
                                 
ahk.ahkassign('x', ['auto', 'hot', 'key'])
x = ahk.ahkgetvar('x')  # error                             

autohotkey = ahk.ahkFunction('echo', ['auto', 'hot', 'key'])  # ok

import pythoncom, win32com.client, time
# ahk = win32com.client.Dispatch("AutoHotkey.Script.ANSISANDBOX")
ahk = win32com.client.Dispatch("AutoHotkey.Script.UNICODE")
script = '''                         
#persistent                           
putreports(r){                           
global reports                       
loop % 2 {                           
msgbox % r[A_Index - 1, A_Index - 1] 
}                                     
reports := r.clone()  ; fails without the clone()
}                                     
getreport(i, j){                     
global reports                           
listvars       
VarType := ComObjType(reports)
maxindex := reports.maxindex()
x := reports[i, j]         
msgbox % "vartype: " vartype "`nmaxindex: " maxindex "`nx: " x
return x                             
}                                     
'''                                   
ahk.ahktextdll(script)               
time.sleep(1)                                     
ahk.ahkFunction('putreports', [['auto', 'hot', 'key'],
                               ['2auto', '2hot', '2key']])                                                                                             
y = ahk.ahkFunction('getreport', 1, 1)           
z = ahk.ahkgetvar('reports') # works

#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%

T1 := AhkDllThread(A_ScriptDir "\AutoHotkey.dll")
FileRead, sstr, %A_ScriptDir%\t\test.ahk
T1.ahktextdll(sstr)

While T1.ahkReady()
  sleep, 100

T2 := AhkDllThread(A_ScriptDir "\AutoHotkey.dll")
T2.ahkdll(A_ScriptDir "\t\test.ahk")

While T2.ahkReady()
  sleep, 100

return

#Include AhkDllThread.ahk

#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%

MsgBox, %A_ScriptDir%
return