Habe nun noch folgendes Problem:
Wenn das Script aufrufe:
Code:
Dim Obj
Dim Ergebnis
If IsRunning Then
Set Obj = CreateObject("Project1.Test2")
Ergebnis = Obj.Add(3, 4)
End If
Function IsRunning
On Error Resume Next
Err.Clear: Set ComObj = GetObject(, "Project1.Test2")
If Err.Number = 424 Or Err.Number = 429 Then
IsRunning= False
Else
IsRunning=True
End If
End Function
Dann funktioniert es genau ein mal! Beim zweiten mal Ist die Err.Number nicht mehr 0 und das Script wird beendet.
Stoppe ich nun meine Project1.exe und starte sie wieder neu geht es wieder ein mal.
Habe ich da in der
COM Definition noch was falsch das das Script nur ein mal ein Object zuweisen kann?