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-Key: 51836

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

Printed on: April 20, 2024 at 03:04 o'clock

Member: AndreasHoster
AndreasHoster Feb 16, 2007 at 08:15:37 (UTC)
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.
Member: Dubbl
Dubbl Feb 16, 2007 at 08:17:54 (UTC)
Goto Top
Mit welchem Aufruf geht es dann ?
Member: bastla
bastla Feb 16, 2007 at 09:06:00 (UTC)
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
Member: Dubbl
Dubbl Feb 16, 2007 at 09:09:59 (UTC)
Goto Top
Und wenn ich keinen Text sondern ein Bild darstellen möchte ?
Member: Dubbl
Dubbl Feb 16, 2007 at 09:10:10 (UTC)
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)
Member: Dubbl
Dubbl Feb 16, 2007 at 10:02:45 (UTC)
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)
Member: bastla
bastla Feb 16, 2007, updated at Oct 18, 2012 at 16:31:39 (UTC)
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