The codes :
Code: Select all
Var1 := 1
objShell := ComObjCreate("WScript.Shell")
objEnv := objShell.Environment("Volatile")
objEnv.Item("Var1") := Var1
Code: Select all
Var1 := 1
objShell := ComObjCreate("WScript.Shell")
objEnv := objShell.Environment("Volatile")
objEnv.Item("Var1") := Var1
Code: Select all
;set var
Var1 := [11, 22, 33]
objShell := ComObjCreate("WScript.Shell")
objEnv := objShell.Environment("Volatile")
for k,v in Var1
objEnv.Item("Var" k) := v
Var1 := objShell := objEnv := "" ;release
Code: Select all
;get var
Var1 := []
objShell := ComObjCreate("WScript.Shell")
objEnv := objShell.Environment("Volatile")
Loop, 3
Var1.Push(objEnv.Item("Var" A_Index))
;show array
for k,v in Var1
msgbox % "Key: " k ", Value: " v
Var1 := objShell := objEnv := "" ;release
Code: Select all
Obj := ComObjCreate("HTMLfile")
Obj.Write("<script></script>")
_JS := Obj.parentWindow
_JS.Var1 := [11, 22, 33]
Var2 := _JS.Var1
MsgBox, % Var2[1]
MsgBox, % Var2[2]
MsgBox, % Var2[3]
Code: Select all
Loop, 3
Var1.Push(objEnv.Item("Var" A_Index))
;show array
Users browsing this forum: No registered users and 265 guests