Page 1 of 2 1 2 LastLast
Showing results 1 to 10 of 11

Thread: Close "Web-Client" window automatically

  1. #1
    Join Date
    30.05.2007
    Location
    Salzburg
    Posts
    879

    Default Close "Web-Client" window automatically

    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

  2. #2
    Join Date
    20.08.2009
    Posts
    293

    Default Re: Close "Web-Client" window automatically

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

  3. #3
    Join Date
    20.08.2009
    Posts
    293

    Default Re: Close "Web-Client" window automatically

    With the attached zenon Project (650), IE Tabs/Windows from Version 6,7,8 can be closed (using VBA).
    Attached Files Attached Files
    Last edited by bernhardf : 4th August 2010 at 13:10

  4. #4
    Join Date
    02.06.2010
    Location
    Freiburg
    Posts
    175

    Default AW: Close "Web-Client" window automatically

    I'm sorry if this sounds stupid, but what do I have to do with the zip-file to get it working???
    zenOn Supervisor 7.60 + webserver pro

    Windows Server 2008 R2 / Windows 7 Enterprise

    ModbusTCP / LON / OPC / SQL / B&R

  5. #5
    Join Date
    20.08.2009
    Posts
    293

    Default AW: Close "Web-Client" window automatically

    Quote Originally Posted by michab View Post
    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

  6. #6
    Join Date
    02.06.2010
    Location
    Freiburg
    Posts
    175

    Default AW: Close "Web-Client" window automatically

    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
    zenOn Supervisor 7.60 + webserver pro

    Windows Server 2008 R2 / Windows 7 Enterprise

    ModbusTCP / LON / OPC / SQL / B&R

  7. #7
    Join Date
    24.07.2008
    Location
    Salzburg
    Posts
    88

    Default AW: Close "Web-Client" window automatically

    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

  8. #8
    Join Date
    02.06.2010
    Location
    Freiburg
    Posts
    175

    Default AW: Close "Web-Client" window automatically

    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...
    zenOn Supervisor 7.60 + webserver pro

    Windows Server 2008 R2 / Windows 7 Enterprise

    ModbusTCP / LON / OPC / SQL / B&R

  9. #9
    Join Date
    02.06.2010
    Location
    Freiburg
    Posts
    175

    Default AW: Close "Web-Client" window automatically

    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...
    zenOn Supervisor 7.60 + webserver pro

    Windows Server 2008 R2 / Windows 7 Enterprise

    ModbusTCP / LON / OPC / SQL / B&R

  10. #10
    Join Date
    26.07.2011
    Posts
    123

    Default AW: Close "Web-Client" window automatically

    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
    Zenon 8.00

    Zenon Server Windows R2016

    Clients WebClientStarter / Windows 10 Enterprise

    ZenonWebserver 8.00



    --trust me i'm an engineer--

Similar Threads

  1. Replies: 2
    Last Post: 9th June 2009, 12:53
  2. Replies: 0
    Last Post: 18th September 2007, 14:01
  3. automatically created limits
    By markclemens in forum zenon Supervisor
    Replies: 0
    Last Post: 20th August 2007, 10:21
  4. function "Export Data" on Windows CE
    By martinw in forum zenon Operator
    Replies: 0
    Last Post: 20th August 2007, 07:01
  5. On opening the archive MDI window an error appears!
    By wolfgangm in forum zenon Supervisor
    Replies: 0
    Last Post: 17th August 2007, 13:11

Posting Rules

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •