Du bist nicht angemeldet.

mat1010

Registrierter Benutzer

  • »mat1010« ist der Autor dieses Themas

Beiträge: 1

Dabei seit: 6. September 2010

  • Private Nachricht senden

1

Montag, 6. September 2010, 08:59

Fenstertitel von "Windows Script Host" auf etwas anderes ändern

Hallo zusammen,

ich habe ein kleines Script, welches eine Datei Ausliest und den Inhalt dieser Datei in einer Meldung auf dem Bildschirm anzeigt. Wenn die Datei leer ist, gibt es eine Meldung aus.

Quellcode

1
2
3
4
5
6
7
8
9
10
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("datei2.txt")
If objFile.Size > 0 Then
    Set objReadFile = objFSO.OpenTextFile("datei2.txt", 1)
    strContents = objReadFile.ReadAll
    Wscript.Echo strContents
    objReadFile.Close
Else
    Wscript.Echo "Derzeit sind keine Störungen bekannt"
End If


Beim Aufruf des Scripts erscheint als Titel des Fensters "Windows Script Host". Wenn man eine MessageBox aufruft, ist es jedoch möglich den Titel des Fensters anzugeben. Welche möglichkeit habe ich bei einem Script den Titel des Fensters zu ändern?

Vielen Dank vorab für eure Hilfe!

Gruß
mat1010

Edit by der_Kurt:
Bitte auf das richtige Unterforum achten
* verschoben *

EDIT:
Habe die Lösung gefunden.

Quellcode

1
2
3
4
5
6
7
8
9
10
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("datei2.txt")
If objFile.Size > 0 Then
	Set objReadFile = objFSO.OpenTextFile("datei2.txt", 1)
	strContents = objReadFile.ReadAll
	MsgBox strContents, 0, "Mitteilungen"
	objReadFile.Close
Else
	'Wscript.Echo "Derzeit sind keine Störungen bekannt"
End If



Kann geschlossen werden.

Gruß
mat1010

Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von »mat1010« (6. September 2010, 11:15)


peterfido

Gelegenheitsprogger

  • »peterfido« ist männlich

Beiträge: 988

Dabei seit: 5. Januar 2007

Wohnort: Berlin

Hilfreich-Bewertungen: 37

  • Private Nachricht senden

2

Montag, 6. September 2010, 18:55

Oder der Klassiker..., verschwindet nach 4 Sekunden automatisch..

Visual Basic Quellcode

1
2
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Popup "Nachricht!",4, "Titel",vbokonly+vbinformation

Social Bookmarks