Hallo zusammen, bei mir hat die Lösung aus dem Beispiel Projekt elider nicht funktioniert.
Habe aber eine eigene hinbekommen, die um einiges simpler ist.
Gestestet unter Windows 7 mit Zenon 6.51 und IE 8
Public Sub LeftClickUp_IESchließen(obElem As Element)
Dim IE As Object
Dim Shell As Object
'Abfrage ob Zenon als Webclient ausgeführt wird
If thisProject.NetType = tpClient Then
'Objekt aller geöffneten IE Fenster erstellen
Set Shell = CreateObject("Shell.Application").Windows
With Shell
'Wenn IE Fenster/Tabs geöffnet sind
If .Count > 0 Then
'werden alle Shells durchlaufen
For i = 0 To .Count - 1
'Speichern des Fenster/Tabs als Objekt
Set IE = .Item(i)
'IE Nothing bei leerer Registrierkarte, weiter zur nächsten
If IE Is Nothing Then GoTo Jump
'Abfrage der Fensternamen
If IE.LocationName = "Zenon.htm" Then '!!Hier muss der Dateiname der init.htm angegeben werden!!
'Wird das IE Fenster/Tab mit Zenon gefunden, wird es geschlossen
If MsgBox("Webclient wird beendet!", vbYesNo, "ExitProcess") = vbYes Then
'Tab/Fenster beenden
IE.Quit
'Objekte Löschen
Set IE = Nothing
Set Shell = Nothing
'Makro beenden
Exit Sub
End If
End If
Jump:
Next
End If
End With
End If
End Sub