Vielen Dank erst einmal. Den Fehler mit der Msgbox habe ich korrigiert. Es aendert aber am Ergebnis nichts.
Die Idee mit der Zuweisung der COM Methode zu einer Variable hatte ich bereits. Das funktioniert aber nicht, da die Rueckgabe im Parameter strOutput steht. Wenn #Warn aktiv ist, meldet ahk einen Fehler, dass die Globale Variable strOutput nicht zugewiesen waere:
Warning: This variable has not been assigned a value.
Specifically: strOutput (a global variable)
Ich hatte testweise die Implementierung in vbscript gemacht. Der vbscript Interpreter kann damit umgehen und wertet strOutput aus. Es geht an der Stelle somit eigentlich um die Konvertierung der in vbscript recht simplen Implementierung auf ahk.
Ich kann nur vermuten, das der von ahk verwendete COM Wrapper die Rueckgabe 'verschluckt'.
Beispiel fuer die Implementierung in vbscript:
Code: Select all
Dim objOT, strOutput
On Error Resume Next
Set objOT = CreateObject("OtClient.OTClientAut")
objOT.InvokeAction "script_ahk", "12345678", strOutput
If Not strOutput = 1 Then msgbox strOutput
Vielen Dank erst einmal. Den Fehler mit der Msgbox habe ich korrigiert. Es aendert aber am Ergebnis nichts.
Die Idee mit der Zuweisung der COM Methode zu einer Variable hatte ich bereits. Das funktioniert aber nicht, da die Rueckgabe im Parameter strOutput steht. Wenn #Warn aktiv ist, meldet ahk einen Fehler, dass die Globale Variable strOutput nicht zugewiesen waere:
Warning: This variable has not been assigned a value.
Specifically: strOutput (a global variable)
Ich hatte testweise die Implementierung in vbscript gemacht. Der vbscript Interpreter kann damit umgehen und wertet strOutput aus. Es geht an der Stelle somit eigentlich um die Konvertierung der in vbscript recht simplen Implementierung auf ahk.
Ich kann nur vermuten, das der von ahk verwendete COM Wrapper die Rueckgabe 'verschluckt'.
Beispiel fuer die Implementierung in vbscript:
[Codebox=javascript file=Untitled.js]
Dim objOT, strOutput
On Error Resume Next
Set objOT = CreateObject("OtClient.OTClientAut")
objOT.InvokeAction "script_ahk", "12345678", strOutput
If Not strOutput = 1 Then msgbox strOutput
[/Codebox]