Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.scripting.vbscript > #11341 > unrolled thread

Fenster per Code schließen

Back to article view | Back to microsoft.public.scripting.vbscript

Contents

  Fenster  per Code schließen "Wendelin Uez" <wuez@online.de> - 2016-07-30 13:40 +0200
    Re: Fenster  per Code schließen "Evertjan." <exxjxw.hannivoort@inter.nl.net> - 2016-07-30 14:00 +0200
      Re: Fenster per Code schließen Gloops <gloops@zailes.invalid.org.invalid> - 2016-07-30 22:13 +0200
        Re:Fenster per Code schliessen? "Evertjan." <exxjxw.hannivoort@inter.nl.net> - 2016-07-30 23:28 +0200
          Re: Fenster per Code schliessen? Gloops <gloops@zailes.invalid.org.invalid> - 2016-07-31 23:32 +0200
            Re: Fenster per Code schliessen? "Wendelin Uez" <wuez@online.de> - 2016-08-12 19:43 +0200
              Re: Fenster per Code schliessen? "R.Wieser" <address@not.available> - 2016-08-13 10:22 +0200
              Re: Fenster per Code schliessen? Gloops <gloops@zailes.invalid.org.invalid> - 2016-08-14 18:11 +0200
                Re: Fenster per Code schliessen? Gloops <gloops@zailes.invalid.org.invalid> - 2016-08-14 18:50 +0200
    Re: Fenster per Code schließen Thomas Langer <spam4nl@langer-online.net> - 2016-07-31 15:13 +0200
      Re: Fenster per Code schließen "R.Wieser" <address@not.available> - 2016-07-31 15:34 +0200
        Re: Fenster per Code schließen "Wendelin Uez" <wuez@online.de> - 2017-11-10 15:52 +0100
          Re: Fenster per Code schließen "Evertjan." <exxjxw.hannivoort@inter.nl.net> - 2017-11-10 16:20 +0100

#11341 — Fenster per Code schließen

In meinem Backup.vbs möchte ich während des Backups ein Fenster mit einem 
Hinweis anzeigen, welches im selben Script nach Ausführung diverser Arbeiten 
wieder geschlossen wird, und zwar automatisch, ohne Benutzereingabe.

Eine MsgBox kommt deshalb nicht in Frage.

Ich habe jetzt einen Weg gefunden, ein Fenster mit eigenem Text anzuzeigen, 
indem eine .hta-Datei erzeugt und ausgeführt wird:

<html>
 <head>
 <title>HTAWINDOW</title>
 </head>
 <body>
 <script language="vbscript">
  Window.resizeTo 450,300
 </script>
 BACKUP wird ausgeführt, bitte warten...
 </body>
 </html>

als message.hta speichern und ausführen mit

   Set Obj = CreateObject("WScript.Shell")
   Obj.run "message.hta",1,false

Danach folgt mein Backup-vbs-Code, aber wie schließe ich jetzt dieses 
Fenster wieder per Code, ohne Benutzerklick?

Oder gibt es eine andere Methode, ein Fenster per Code zu erzeugen, 
anzuzeigen und später wieder zu schließen?

[toc] | [next] | [standalone]

#11342

"Wendelin Uez" <wuez@online.de> wrote on 30 Jul 2016 in
microsoft.public.scripting.vbscript: 

> In meinem Backup.vbs möchte ich während des Backups ein Fenster mit
> einem Hinweis anzeigen, welches im selben Script nach Ausführung
> diverser Arbeiten wieder geschlossen wird, und zwar automatisch, ohne
> Benutzereingabe. 
> 
> Eine MsgBox kommt deshalb nicht in Frage.
> 
> Ich habe jetzt einen Weg gefunden, ein Fenster mit eigenem Text
> anzuzeigen, indem eine .hta-Datei erzeugt und ausgeführt wird:
> 
> <html>
>  <head>
>  <title>HTAWINDOW</title>
>  </head>
>  <body>
>  <script language="vbscript">
>   Window.resizeTo 450,300
>  </script>
>  BACKUP wird ausgeführt, bitte warten...
>  </body>
>  </html>
> 
> als message.hta speichern und ausführen mit
> 
>    Set Obj = CreateObject("WScript.Shell")
>    Obj.run "message.hta",1,false
> 
> Danach folgt mein Backup-vbs-Code, aber wie schließe ich jetzt dieses 
> Fenster wieder per Code, ohne Benutzerklick?
> 
> Oder gibt es eine andere Methode, ein Fenster per Code zu erzeugen, 
> anzuzeigen und später wieder zu schließen?

<SCRIPT LANGUAGE="VBScript">

Dim objNewWindow

Sub btnOne_onClick
    	Set objNewWindow = Window.Open("http://www.wrox.com/", "myWindowOne",     
	"toolbar=no, menubar=no, location=no, directories=no")
End Sub    

Sub btnDOne_onClick
    	objNewWindow.Close
End Sub

Sub btnCloseMe_onClick
    	Window.Close
End Sub

</SCRIPT>

<https://msdn.microsoft.com/en-us/library/ms952668.aspx>



-- 
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)

[toc] | [prev] | [next] | [standalone]

#11343 — Re: Fenster per Code schließen

Le 30/07/2016 à 14:00, Evertjan. a écrit :
> "Wendelin Uez" <wuez@online.de> wrote on 30 Jul 2016 in
> microsoft.public.scripting.vbscript:
>
>> In meinem Backup.vbs möchte ich während des Backups ein Fenster mit
>> einem Hinweis anzeigen, welches im selben Script nach Ausführung
>> diverser Arbeiten wieder geschlossen wird, und zwar automatisch, ohne
>> Benutzereingabe.
>>
>> Eine MsgBox kommt deshalb nicht in Frage.
>>
>> Ich habe jetzt einen Weg gefunden, ein Fenster mit eigenem Text
>> anzuzeigen, indem eine .hta-Datei erzeugt und ausgeführt wird:
>>
>> <html>
>>  <head>
>>  <title>HTAWINDOW</title>
>>  </head>
>>  <body>
>>  <script language="vbscript">
>>   Window.resizeTo 450,300
>>  </script>
>>  BACKUP wird ausgeführt, bitte warten...
>>  </body>
>>  </html>
>>
>> als message.hta speichern und ausführen mit
>>
>>    Set Obj = CreateObject("WScript.Shell")
>>    Obj.run "message.hta",1,false
>>
>> Danach folgt mein Backup-vbs-Code, aber wie schließe ich jetzt dieses
>> Fenster wieder per Code, ohne Benutzerklick?
>>
>> Oder gibt es eine andere Methode, ein Fenster per Code zu erzeugen,
>> anzuzeigen und später wieder zu schließen?
>
> <SCRIPT LANGUAGE="VBScript">
>
> Dim objNewWindow
>
> Sub btnOne_onClick
>     	Set objNewWindow = Window.Open("http://www.wrox.com/", "myWindowOne",
> 	"toolbar=no, menubar=no, location=no, directories=no")
> End Sub
>
> Sub btnDOne_onClick
>     	objNewWindow.Close
> End Sub
>
> Sub btnCloseMe_onClick
>     	Window.Close
> End Sub
>
> </SCRIPT>
>
> <https://msdn.microsoft.com/en-us/library/ms952668.aspx>



Hello,

I am afraid "ohne Benutzerklick" was the key expression, with this 
confirmation : "Eine MsgBox kommt deshalb nicht in Frage"
that you could translate by "please no msgbox", the user must not have 
to click anywhere. The message tells "backup in progress, please wait", 
so closing the window must not be performed by a click on a button, but 
by the end of the backup made by the caller.

So, a window with no button at all could rather be that. In the spirit, 
the ideal solution would be showing a progressbar, but this was not 
asked, not sure the caller has any way to update it ...

But obj.Run does not return the window as an object, that the caller 
could close when the backup treatment is at the end.

This would surely be the best way to answer, another way is to select 
the window by the APIs, but then I am afraid you have to use a program 
to do that.

Well, I did such things in VB, but not in VBS. Any idea ?

Or shall we answer that chosing another language would be a better idea ?

[toc] | [prev] | [next] | [standalone]

#11344 — Re:Fenster per Code schliessen?

Gloops <gloops@zailes.invalid.org.invalid> wrote on 30 Jul 2016 in
microsoft.public.scripting.vbscript: 

> Le 30/07/2016 à 14:00, Evertjan. a écrit :
>> "Wendelin Uez" <wuez@online.de> wrote on 30 Jul 2016 in
>> microsoft.public.scripting.vbscript:
>>
>>> In meinem Backup.vbs möchte ich während des Backups ein Fenster mit
>>> einem Hinweis anzeigen, welches im selben Script nach Ausführung
>>> diverser Arbeiten wieder geschlossen wird, und zwar automatisch, ohne
>>> Benutzereingabe.
>>>
>>> Eine MsgBox kommt deshalb nicht in Frage.
>>>
>>> Ich habe jetzt einen Weg gefunden, ein Fenster mit eigenem Text
>>> anzuzeigen, indem eine .hta-Datei erzeugt und ausgeführt wird:
>>>
>>> <html>
>>>  <head>
>>>  <title>HTAWINDOW</title>
>>>  </head>
>>>  <body>
>>>  <script language="vbscript">
>>>   Window.resizeTo 450,300
>>>  </script>
>>>  BACKUP wird ausgeführt, bitte warten...
>>>  </body>
>>>  </html>
>>>
>>> als message.hta speichern und ausführen mit
>>>
>>>    Set Obj = CreateObject("WScript.Shell")
>>>    Obj.run "message.hta",1,false
>>>
>>> Danach folgt mein Backup-vbs-Code, aber wie schließe ich jetzt dieses
>>> Fenster wieder per Code, ohne Benutzerklick?
>>>
>>> Oder gibt es eine andere Methode, ein Fenster per Code zu erzeugen,
>>> anzuzeigen und später wieder zu schließen?
>>
>> <SCRIPT LANGUAGE="VBScript">
>>
>> Dim objNewWindow
>>
>> Sub btnOne_onClick
>>          Set objNewWindow = Window.Open("http://www.wrox.com/",
>>          "myWindowOne", 
>>      "toolbar=no, menubar=no, location=no, directories=no")
>> End Sub
>>
>> Sub btnDOne_onClick
>>          objNewWindow.Close
>> End Sub
>>
>> Sub btnCloseMe_onClick
>>          Window.Close
>> End Sub
>>
>> </SCRIPT>
>>
>> <https://msdn.microsoft.com/en-us/library/ms952668.aspx>
> 
> 
> 
> Hello,
> 
> I am afraid "ohne Benutzerklick" was the key expression, with this 
> confirmation : "Eine MsgBox kommt deshalb nicht in Frage"
> that you could translate by "please no msgbox", the user must not have 
> to click anywhere. The message tells "backup in progress, please wait", 
> so closing the window must not be performed by a click on a button, but 
> by the end of the backup made by the caller.
> 
> So, a window with no button at all could rather be that. In the spirit, 
> the ideal solution would be showing a progressbar, but this was not 
> asked, not sure the caller has any way to update it ...
> 
> But obj.Run does not return the window as an object, that the caller 
> could close when the backup treatment is at the end.
> 
> This would surely be the best way to answer, another way is to select 
> the window by the APIs, but then I am afraid you have to use a program 
> to do that.

The calling window can close the window by: objNewWindow.Close
The window itself can close by: Window.Close

That does not mean a "Benutzerklick" [user-click] is needed.

The VBS code in the same or the calling page can poll the server with 
xmlhttp at reasonable intervals to see if the process is finished.
[or even how far the process is in execution.]

I think this works in HTA too.

> Well, I did such things in VB, but not in VBS. Any idea ?

You cannot "do" VB in HTA or HTML.
 
> Or shall we answer that chosing another language would be a better idea
> ? 

I would prefer to do clientside javascript and serverside VBS,
but that is just my personal lazyness.

Or do you mean that we should converse in German or any other language? 

... to close the windows for the evening breeze?

-- 
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)

[toc] | [prev] | [next] | [standalone]

#11347 — Re: Fenster per Code schliessen?

Le 30/07/2016 à 23:28, Evertjan. a écrit :
> The calling window can close the window by: objNewWindow.Close
> The window itself can close by: Window.Close
>
> That does not mean a "Benutzerklick" [user-click] is needed.

Oh sorry, I think I mixed up both windows ...

So, the caller can do something as :
________________________________________
     Set objNewWindow = Window.Open("Message.hta", "myWindowOne", 
"toolbar=no, menubar=no, location=no, directories=no")

     DoTheBackup

     objNewWindow.Close()
________________________________________

And ... that's it :)


> Or do you mean that we should converse in German or any other language?
>
> ... to close the windows for the evening breeze?
>

In fact this is an English speaking forum, maybe Wendelin forgot.
If he happens not to understand we shall see.

[toc] | [prev] | [next] | [standalone]

#11357 — Re: Fenster per Code schliessen?

> So, the caller can do something as :
> ________________________________________
>     Set objNewWindow = Window.Open("Message.hta", "myWindowOne", 
> "toolbar=no, menubar=no, location=no, directories=no")
>
>     DoTheBackup
>
>     objNewWindow.Close()
> ________________________________________

Might work pretty well, but I would like to have a window close tool 
independent of an opening task, something like a task killer for a window 
only. Ok, I could create an exe showing the window and killing the exe 
afterwards, but this seems to be be a big overhead. I'm not familiar with 
.hta files, they show a window using the default browser - but how could I 
close only *this* window and not all eventually running browser windows? 

[toc] | [prev] | [next] | [standalone]

#11358 — Re: Fenster per Code schliessen?

Wendelin,

> but how could I close only *this* window and not all
> eventually running browser windows?

Look at the code you quoted: the "Set objNewWindow =" creates an object
which remembers which window it/you just created.  The
"objNewWindow.Close()" line than closes that created window, and only that
one.

Comparision: in a programming langage of your choice you can open a file and
and close it, while all other files remain open.  This due to something
referred to as a "file handle".

You can regard the "objNewWindow" as a handle to the window you just opened.

Hope that helps.

regards,
Rudy Wieser


-- Origional message:
Wendelin Uez <wuez@online.de> schreef in berichtnieuws
nol1rm$7oj$1@news.albasani.net...
> > So, the caller can do something as :
> > ________________________________________
> >     Set objNewWindow = Window.Open("Message.hta", "myWindowOne",
> > "toolbar=no, menubar=no, location=no, directories=no")
> >
> >     DoTheBackup
> >
> >     objNewWindow.Close()
> > ________________________________________
>
> Might work pretty well, but I would like to have a window close tool
> independent of an opening task, something like a task killer for a window
> only. Ok, I could create an exe showing the window and killing the exe
> afterwards, but this seems to be be a big overhead. I'm not familiar with
> .hta files, they show a window using the default browser - but how could I
> close only *this* window and not all eventually running browser windows?
>

[toc] | [prev] | [next] | [standalone]

#11359 — Re: Fenster per Code schliessen?

Le 12/08/2016 à 19:43, Wendelin Uez a écrit :
>> So, the caller can do something as :
>> ________________________________________
>>     Set objNewWindow = Window.Open("Message.hta", "myWindowOne",
>> "toolbar=no, menubar=no, location=no, directories=no")
>>
>>     DoTheBackup
>>
>>     objNewWindow.Close()
>> ________________________________________
>
> Might work pretty well, but I would like to have a window close tool
> independent of an opening task, something like a task killer for a
> window only. Ok, I could create an exe showing the window and killing
> the exe afterwards, but this seems to be be a big overhead. I'm not
> familiar with .hta files, they show a window using the default browser -
> but how could I close only *this* window and not all eventually running
> browser windows?

Hello,

It appeared a good idea to make a test.

While doing that, following elements appeared :
- the window object is not recognized by cscript, wscript, you have to 
write an html document
- files with extensions htm or html are not allowed to execute a script 
with elements on the disk, for instance a backup or another script : you 
must write an hta file with the code hereunder
- an hta file is executed in an independent window, not in a tab, so 
closing its window will not close documents
- my default browser is Firefox, but hta files are executed with IE8 (on 
Windows XP)
- by default, when your script asks to run message.hta, the user has to 
click on "Run" for it to be executed (and display the message)
- you can have an anti-virus that prevents hta scripts to be executed 
except if the user clicks on a button to authorize it each time (or the 
admin must put it in the white list)
- as of my tests, the syntax "objNewWindow.Close", with or without 
parenthesis, must be improved.


Here is the code of TstMsg.hta. I put a Test button, later you can link 
TestL to body.onload.

_______________________________________
<html>
<head>
<title>Test to open and close a window</title>
<meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1">
<script type="text/vbscript" language="VBScript">
Sub TestL()
     Set objNewWindow = Window.Open("Message.hta", "myWindowOne", 
"toolbar=no, menubar=no, location=no, directories=no")

     MsgBox "DoTheBackup"

   If IsNull(objNewWindow) Then
     MsgBox "Nobody more"
   Else
     MsgBox "Closing the message"  // Got that
     objNewWindow.Close            // But this did nothing
   End If
End Sub
</script>
</head>
<body>
<input type="button" value="Test" onclick="vbscript:TestL"/>
</body>
</html>
_________________________________

[toc] | [prev] | [next] | [standalone]

#11360 — Re: Fenster per Code schliessen?

Le 14/08/2016 à 18:11, Gloops a écrit :
> - the window object is not recognized by cscript, wscript, you have to
> write an html document
> - files with extensions htm or html are not allowed to execute a script
> with elements on the disk, for instance a backup or another script : you
> must write an hta file with the code hereunder


After posting that and leaving it a few minutes, I realize something : 
so, you have to create an html window *before* launching the treatment, 
and launch the treatment from it.

So, probably it will be much more simple to display the message in this 
window. You can do it visible or not with style="display:block" or 
style="display:none". If you like you can close the window just with 
"Close", it runs jolly good.

In fact, possibly you will decide you only make the message invisible 
once the backup is at the end, and let the window open. This will avoid 
the user to wonder whether the window disappeared because it crashed. 
Nevertheless, do not forget to provide a way for the backup to provide a 
feed back, for the user to be sure everything ran OK. Perhaps it writes 
a log, for instance.

[toc] | [prev] | [next] | [standalone]

#11345 — Re: Fenster per Code schließen

Am 30.07.2016 um 13:40 schrieb Wendelin Uez:
> In meinem Backup.vbs möchte ich während des Backups ein Fenster mit
> einem Hinweis anzeigen, welches im selben Script nach Ausführung
> diverser Arbeiten wieder geschlossen wird, und zwar automatisch, ohne
> Benutzereingabe.
>
> Eine MsgBox kommt deshalb nicht in Frage.
>
> Ich habe jetzt einen Weg gefunden, ein Fenster mit eigenem Text
> anzuzeigen, indem eine .hta-Datei erzeugt und ausgeführt wird:
>
> <html>
> <head>
> <title>HTAWINDOW</title>
> </head>
> <body>
> <script language="vbscript">
>  Window.resizeTo 450,300
> </script>
> BACKUP wird ausgeführt, bitte warten...
> </body>
> </html>
>
> als message.hta speichern und ausführen mit
>
>   Set Obj = CreateObject("WScript.Shell")
>   Obj.run "message.hta",1,false
>
> Danach folgt mein Backup-vbs-Code, aber wie schließe ich jetzt dieses
> Fenster wieder per Code, ohne Benutzerklick?
>
> Oder gibt es eine andere Methode, ein Fenster per Code zu erzeugen,
> anzuzeigen und später wieder zu schließen?
>

Im VBS-Code eine Datei erzeugen, die als Flag wirken soll.
Im HTA per Timer, z.B. sekündlich, die Existenz der Datei prüfen. Wenn 
Datei nicht mehr existiert, HTA in Timer-Routine beenden.
Per VBS-Code Flag-Datei löschen, wenn Backup beendet ist.

[toc] | [prev] | [next] | [standalone]

#11346 — Re: Fenster per Code schließen

Thomas,

> Im VBS-Code eine Datei erzeugen, die als Flag wirken soll.

Why that difficult ?

#1. open the window

#2. run VBS backup code (can be part of the HTA / does not need to be an
external script!)

#3. close the window

#4. profit ? :-)

(can read German well enough.  Writing it is a whole other matter. :-) )

Regards,
Rudy Wieser


-- Origional message:
Thomas Langer <spam4nl@langer-online.net> schreef in berichtnieuws
nnkthn$69t$1@news.albasani.net...
> Am 30.07.2016 um 13:40 schrieb Wendelin Uez:
> > In meinem Backup.vbs möchte ich während des Backups ein Fenster mit
> > einem Hinweis anzeigen, welches im selben Script nach Ausführung
> > diverser Arbeiten wieder geschlossen wird, und zwar automatisch, ohne
> > Benutzereingabe.
> >
> > Eine MsgBox kommt deshalb nicht in Frage.
> >
> > Ich habe jetzt einen Weg gefunden, ein Fenster mit eigenem Text
> > anzuzeigen, indem eine .hta-Datei erzeugt und ausgeführt wird:
> >
> > <html>
> > <head>
> > <title>HTAWINDOW</title>
> > </head>
> > <body>
> > <script language="vbscript">
> >  Window.resizeTo 450,300
> > </script>
> > BACKUP wird ausgeführt, bitte warten...
> > </body>
> > </html>
> >
> > als message.hta speichern und ausführen mit
> >
> >   Set Obj = CreateObject("WScript.Shell")
> >   Obj.run "message.hta",1,false
> >
> > Danach folgt mein Backup-vbs-Code, aber wie schließe ich jetzt dieses
> > Fenster wieder per Code, ohne Benutzerklick?
> >
> > Oder gibt es eine andere Methode, ein Fenster per Code zu erzeugen,
> > anzuzeigen und später wieder zu schließen?
> >
>
> Im VBS-Code eine Datei erzeugen, die als Flag wirken soll.
> Im HTA per Timer, z.B. sekündlich, die Existenz der Datei prüfen. Wenn
> Datei nicht mehr existiert, HTA in Timer-Routine beenden.
> Per VBS-Code Flag-Datei löschen, wenn Backup beendet ist.
>

[toc] | [prev] | [next] | [standalone]

#11786 — Re: Fenster per Code schließen

> #1. open the window
> #2. run VBS backup code (can be part of the HTA / does not need to be an
> external script!)
> #3. close the window
> #4. profit ? :-)

max profit would be a vbs script to open a window, show some text in window, 
execute some jobs, and then close window, but I'm afraid that will not work

[toc] | [prev] | [next] | [standalone]

#11787 — Re: Fenster per Code schließen

"Wendelin Uez" <wuez@online.de> wrote on 10 Nov 2017 in
microsoft.public.scripting.vbscript: 

>> #1. open the window
>> #2. run VBS backup code (can be part of the HTA / does not need to be
>> an external script!)
>> #3. close the window
>> #4. profit ? :-)
> 
> max profit would be a vbs script to open a window, show some text in
> window, execute some jobs, and then close window, but I'm afraid that
> will not work 

Why not in HTA? [the closing, not the being afraid] 

-- 
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)

[toc] | [prev] | [standalone]

Back to top | Article view | microsoft.public.scripting.vbscript

csiph-web