VBScript Inhalt einer Message Box aktualisieren

Hey Leute,

ich benötige schon wieder eure Hilfe

Ist es möglich, in einer Message Box den inhalt zu aktualisieren?

Vorab Infos:
OS: Vista Business
Sprache: VB Script

Mir ist es egal ob ich über die Befehle "Wscipt.Echo" oder über "MsgBox" die Infos ausgebe. Das einzige was zählt das sich die Informationen in einer bestimmen Zeit aktuallisieren soll.

Danke für eure Hilfe

Gruß

0cool

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 162057

Url: https://administrator.de/contentid/162057

Ausgedruckt am: 22.11.2024 um 08:11 Uhr

9 Kommentare

Neuester Kommentar

Hallo 0cool!

Den Inhalt einer MsgBox kannst Du nachträglich nicht ändern; was wolltest Du denn damit erreichen?

Grüße
bastla

Hi,

Benutzdoch ein eigenes Form als MsgBox dann bist du nicht an die wenigen Funktionen der MsgBox-Klasse gebunden.

Gruß
MadeEye

@bastla: danke für die Antwort. Ich möchte die aktuelle größe eines Ordners anzeigen, der gerade befüllt wird.

@Mad-Eye: Danke für den Tipp. Kannst du mir bitte auch schreiben wie ich ein eigene Form erzeugen kann?

Das man mit vbs eigene Forms erzeugen kann wusste ich nicht.

OK sry, hatte überlesen das du vbs benutzt. Ist es für dich möglich auf VisualStudio Express umzusteigen?

Hallo 0cool!

Du könntest "PopUp" mit einer relativ kurzen Anzeigedauer verwenden ...

Alternative: HTA

Grüße
bastla

Für solche "Log-Ausgaben" missbrauche ich in aller Regel ein IE-PopUp in dem ich dann die verschiedenen Ereignisse ausgebe.

@manuel-r: wie spreche ich das IE-PopUp an bzw. wie rufe ich es auf?

Gruß

0cool

Hier ein kurzes Sniplet

Set objExplorer = CreateObject("InternetExplorer.Application")  
objExplorer.TheaterMode = False
objExplorer.AddressBar = False
objExplorer.MenuBar = False
objExplorer.StatusBar = False
objExplorer.ToolBar = False
objExplorer.Resizable = False
objExplorer.Height = 480
objExplorer.Width = 640
objExplorer.Left = 100
objExplorer.Top = 100
objExplorer.Silent = False
objExplorer.Visible = True
objExplorer.Navigate "about:blank"  
objExplorer.document.writeln("<html>")  
objExplorer.document.writeln("<head>")  
objExplorer.document.writeln("<title>Eine kleine Demo...</title>")  
objExplorer.document.writeln("</head>")  
objExplorer.document.writeln("<span style='font-family:Courier; font-size:10pt'>")  
objExplorer.document.writeln("<body>")  
objExplorer.document.writeln("Hallo Welt")  
objExplorer.document.writeln("</body>")  
objExplorer.document.writeln("</html>")  