dubbl
Goto Top

WshShell.Run das Ergebniss zentriert darstellen

Hallo,
ich möchte die Ausgabe von WshShell.Run z.B. von einer Textdatei wenn es nicht auf Vollbildmodus ist zentriert darstellen, geht das ?
Vielen Dank für eure Hilfe

Content-ID: 51836

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

Ausgedruckt am: 26.11.2024 um 21:11 Uhr

AndreasHoster
AndreasHoster 16.02.2007 um 09:15:37 Uhr
Goto Top
Nicht mit wshshell.run
wshshell.run ruft einfach das Programm wie bei Ausführen im Startmenü auch auf und da kannst Du auch nicht einfach sagen zentriert, es sei denn, das Programm das Du aufrufst, kann sowas.
Dubbl
Dubbl 16.02.2007 um 09:17:54 Uhr
Goto Top
Mit welchem Aufruf geht es dann ?
bastla
bastla 16.02.2007 um 10:06:00 Uhr
Goto Top
Hallo Dubbl!

Um Text auf den Bildschirm zu bekommen, kannst Du einfach ein "PopUp" verwenden, also etwa für eine Anzeige mit 12 Sekunden Dauer:
Set WshShell = WScript.CreateObject("WScript.Shell")  
msg = "Hier kommt jetzt ganz viel Text hinein ..." & vbCrLF & "... auch mit Zeilenumbruch ..."  
Ret = WshShell.Popup(msg, 12, "Fenstertitel gibt's auch", vbInformation)  

Grüße
bastla
Dubbl
Dubbl 16.02.2007 um 10:09:59 Uhr
Goto Top
Und wenn ich keinen Text sondern ein Bild darstellen möchte ?
Dubbl
Dubbl 16.02.2007 um 10:10:10 Uhr
Goto Top
Und wenn ich keinen Text sondern ein Bild darstellen möchte ?

Hier ist mein Skript face-wink
Set WshShell = WScript.CreateObject("WScript.Shell")
intReturn = WshShell.Run("C:\Programme\IrfanView\i_view32.exe C:\Anmeldung.bmp /hide=15 ", 1, false)
wscript.sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
intReturn = WshShell.Run("C:\Programme\IrfanView\i_view32.exe /killmesoftly", 1, false)
Dubbl
Dubbl 16.02.2007 um 11:02:45 Uhr
Goto Top
Und wenn ich keinen Text sondern ein Bild
darstellen möchte ?

Hier mein Skript:
Set WshShell = WScript.CreateObject("WScript.Shell")
intReturn = WshShell.Run("C:\Programme\IrfanView\i_view32.exe C:\Anmeldung.bmp /hide=15 /pos=(300,200)", 1, false)
wscript.sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
intReturn = WshShell.Run("C:\Programme\IrfanView\i_view32.exe /killmesoftly", 1, false)
bastla
bastla 16.02.2007, aktualisiert am 18.10.2012 um 18:31:39 Uhr
Goto Top
Hallo Dubbl!

Viel mehr, als in Deinem anderen Thread (Anmeldeskript mit Logo oder Bild) kann ich Dir leider auch hier nicht sagen, außer vielleicht nochmals den Hinweis darauf, nicht "Irfanview", sondern die als .exe gespeicherte Slideshow aufzurufen (siehe ebenfalls im anderen Thread) ...

Grüße
bastla