Close "Web-Client" window automatically

[herberto]

How can I close the "Web-Client" window automatically?

This can be done with following VBA code:

'API Function
Public Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)

Public Sub CloseWebClient()
    If thisProject.NetType = tpClient Then
        If MsgBox("Do you really want to close the Web-Client?", vbYesNo, "ExitProcess") = vbYes Then
            ExitProcess (0) 'close window
        End If
    End If
End Sub

[bernhardf]

This does not work anymore with IE8, for whatever reason.
(IE hangs when executing the macro).

[bernhardf]

With the attached zenon Project (650), IE Tabs/Windows from Version 6,7,8 can be closed (using VBA).

[michab]

I'm sorry if this sounds stupid, but what do I have to do with the zip-file to get it working???

[bernhardf]

I'm sorry if this sounds stupid, but what do I have to do with the zip-file to get it working???

It's a project backup (zenon version 6.50).

Once you have opened it in the editor you have to change the server name (enter your runtime server name) in the network properties of the project.
After that you have to adapt your webserver configuration file (global_vars.js), here the name of the project (TESTWEB) has to be entered.

For further information regarding the configuration of the Webserver please see the documentation: Manual -> Web Server and Web Server Pro

Regards,
Bernhard

[michab]

Sorry, ich muss das auf deutsch machen - hoffe, das ist okay so:
"once you have opened it..." -> da würde ich gerne hin kommen! Ich krieg das Ding ja gar nicht geöffnet. Wenn ich mich nicht irre, muss ich einen bestehenden Arbeitsbereich geöffnet haben und dann unter Datei --> Projektsicherung rücklesen... den Pfad zur zip-Datei angeben und die Datei auswählen. Nur: wenn ich das mache, bleibt der "ok"-Button nicht anwählbar... Was ist zu tun?

Grüße,
Michael

[konstantinf]

Hallo Michael,
habe es gerade unter der zenon Version 6.50 getestet. Die Sicherung lies sich ohne Probleme rücklesen.
Welche Version benutzen Sie?
Können Sie evt. versuchen die Projektsicherung auf einem anderen Rechner rückzulesen?


LG,
Konstantin

[michab]

Ich arbeite mit einer zenon 6.50 SP0 Build 1, installiert auf einem Windows Server 2003. - Einen anderen Rechner dafür habe ich "eigentlich" nicht, kann aber evtl. morgen einen bekommen. - Mal sehen...

[michab]

Ok, sorry, ich war ein bisschen blöd... Projekt lässt sich auch bei mir rücklesen und starten. Allerdings sind die buttons beim webclient bis jetzt noch ohne jede Reaktion... VBA ist installiert, die zenon6.ini ist angepasst, das Projekt netzwerktechnisch auf den Server eingestellt...??? Wie mir scheint, muss ich da noch ein bisschen rumexperimentieren...

[zero]

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