2
VBS - Ermitteln einer Prozess ID verlängert die Popup Anzeige Zeit
Hallo.
Der folgende Code zeigt 15 Minuten ein Popup an:
Wenn ich aber vorher diesen Code ausführe, verlängert sich die Zeit des Popup auf 21 Minuten:
Kann mir einer erklären, warum das so ist und was ich ändern muss, damit das Fenster wirklich nur die angegebene Zeit sichtbar ist?
Vielen Dank im voraus.
Der folgende Code zeigt 15 Minuten ein Popup an:
Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup pid ,900 ,"Dies ist nur ein Beispiel!", vbExclamation strComputer = "."
strProcess = "notepad.exe"
Set WshShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & strProcess & "'",,48)
For Each objItem in colItems
WshShell.Popup "Dieses Fenster sollte genau 15 Minuten erscheinen!" & time, 900, "Dies ist nur ein Beispiel!", vbExclamation
NextVielen Dank im voraus.
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 190932
Url: https://administrator.de/contentid/190932
Printed on: April 19, 2024 at 03:04 o'clock
2 Comments
Latest comment
Hallo Snowdog1964!
Keine Ahnung warum das bei Dir 21 min anstatt 15 dauert, aber innerhalb der ForEach-Schleife würde ich das PopUp auch nicht einfügen, zumal der Prozess ja auch mehrfach geöffnet sein kann und dementsprechend das PopUp auch mehrfach aufgerufen wird.
Ich würde es dann eher so machen:
wobei sich mir aber die Frage stellt, was passiert, wenn das PopUp durch den Anwender vorzeitig geschlossen wird?
Gruß Dieter
Keine Ahnung warum das bei Dir 21 min anstatt 15 dauert, aber innerhalb der ForEach-Schleife würde ich das PopUp auch nicht einfügen, zumal der Prozess ja auch mehrfach geöffnet sein kann und dementsprechend das PopUp auch mehrfach aufgerufen wird.
Ich würde es dann eher so machen:
strComputer = "."
strProcess = "notepad.exe"
Set WshShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
If objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & strProcess & "'").Count Then
WshShell.Popup "Dieses Fenster sollte genau 15 Minuten erscheinen!" & Time, 900, "Dies ist nur ein Beispiel!", vbExclamation
End IfGruß Dieter
Abgesehen davon, daß ich didi1954 recht gebe und es nicht in die Schleife einbauen würde, ich kann auf meinem Rechner nicht nachvollziehen daß es länger dauert.
Verwende XP SP3, Script Host Version 5.7
Verwende XP SP3, Script Host Version 5.7
