'*** v5.6 *** www.dieseyer.de ******************************** ' ' Datei: permanentpopup.vbs ' Autor: dieseyer@gmx.de ' Auf: www.dieseyer.de ' ' Eine PopUp-Meldung, die sich nicht weg klicken läßt. ' '************************************************************ Option Explicit Dim fso, SkriptName, Text Set fso = WScript.CreateObject("Scripting.FileSystemObject") ' wo soll das (Tochter-) Skript ("-aktive.vbs") stehen? SkriptName = fso.GetBaseName( WScript.ScriptName ) & "-aktive.vbs" ' im Skript-Verzeichnis SkriptName = fso.GetSpecialFolder( 2 ) & "\-aktive.vbs" ' im User-Abhängigen Temp-Verzeichnis ' MsgBox SkriptName, , "18 :: " & WScript.ScriptName ' was soll das (Tochter-) Skript anzeigen? Text = "Dies ist eine sehr wichtige Nachricht!" ' das (Tochter-) Skript erzeugen und aufrufen PermanentPopUp SkriptName, Text ' Function Aufruf ' das Skript hat jetzt viel und wichtiges zu tun - 60s lang WScript.Sleep 60*1000 ' das Skript ist fertig mit: viel und wichtiges zu tun fso.DeleteFile( SkriptName ) WScript.Sleep 1*1000 MsgBox WScript.ScriptName & " . . . ist zu Ende", , WScript.ScriptName WScript.Quit '*** v5.6 *** www.dieseyer.de ******************************** Sub PermanentPopUp( SkriptName, Text ) '************************************************************* Dim AKTIVvbs Dim fso, WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set AKTIVvbs = Fso.OpenTextFile( SkriptName , 2, true) AKTIVvbs.WriteLine "Set WSHShell = WScript.CreateObject(""WScript.Shell"") " AKTIVvbs.WriteLine "Set fso = WScript.CreateObject(""Scripting.FileSystemObject"") " AKTIVvbs.WriteLine "Txt = """ & Text & """" AKTIVvbs.WriteLine "Titel = ""!!! ACHTUNG !!!"" " AKTIVvbs.WriteLine "Do" ' AKTIVvbs.WriteLine "WshShell.Popup Txt, 2, Titel " AKTIVvbs.WriteLine "WshShell.Popup Txt, 2, Titel, vbSystemModal " AKTIVvbs.WriteLine "if not fso.FileExists( WScript.ScriptFullName ) Then Exit Do" AKTIVvbs.WriteLine "Loop" AKTIVvbs.WriteLine "WshShell.Popup "". . . das wars"", 3, Titel " AKTIVvbs.Close Set AKTIVvbs = Nothing WSHShell.Run SkriptName End Sub ' PermanentPopUp( SkriptName, Text )