matze22
Goto Top

Zwei Programme per VBS-Script starten und gleichzeitig schließen...

Hallo Leute,

ich habe ein VBS-Script geschrieben um zwei Programme gleichzeitig zu starten, das eine wird dann in die Taskleiste minimiert.

Hier mal mein bisheriger Code:

Dim WshShell, oExec,pExec
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run chr(34) & "%ProgramFiles%\Cakewalk Pro Audio 9\cwpa.exe" & chr(34)
WshShell.Run chr(34) & "%ProgramFiles%\Native Instruments\Bandstand\Bandstand.exe" & chr(34) , 7


Ich möchte nun noch erreichen, daß beim Schließen von "cwpa.exe" das Programm "Bandstand.exe" auch mitgeschlossen wird...

Wie muss ich das Script modifizieren?
kann mir da jemand weiterhelfen?

Liebe Grüße
Matze face-smile

Content-ID: 91501

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

Ausgedruckt am: 20.11.2024 um 15:11 Uhr

Logan000
Logan000 08.07.2008 um 08:42:04 Uhr
Goto Top
Moin

Wenn Du hinter den Aufruf der cwpa.exe ein ", , True" setzt sollte der Code warten bis das Prog beendet wird.
Damit aber beide Prog. gestatet werden sollte das jetzt so aussehen.

Set WshShell = WScript.CreateObject("WScript.Shell")  
WshShell.Run chr(34) & "%ProgramFiles%\Native Instruments\Bandstand\Bandstand.exe" & chr(34) , 7  
WshShell.Run chr(34) & "%ProgramFiles%\Cakewalk Pro Audio 9\cwpa.exe" & chr(34), , True  
' Hier können dann beide Prog. beendet werden  

Gruß L.
Matze22
Matze22 08.07.2008 um 16:55:46 Uhr
Goto Top
Hallo,
hab das mal ausprobiert...

Beide Programme starten,
aber wenn ich "Cakewalk" schließe wird wird Bandstand nicht automatisch geschlossen...

Fehlt da eventuell noch ein Befehl um die Programme zu schließen?

Viele Grüße
Matze
Logan000
Logan000 10.07.2008 um 08:25:48 Uhr
Goto Top
Moin

In meinem Code fetzen ist war kein befehl zum beenden enthalten.
Wenn Du keinen eingebaut hast...

Gruß L.
Matze22
Matze22 10.07.2008 um 16:59:41 Uhr
Goto Top
So,
ich habs nun hinbekomen:

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run chr(34) & "%ProgramFiles%\Native Instruments\Bandstand\Bandstand.exe" & chr(34) , 7

WshShell.Run chr(34) & "%ProgramFiles%\Cakewalk Pro Audio 9\cwpa.exe" & chr(34), , True

WshShell.Run "C:\windows\system32\taskkill /IM Bandstand.exe", 0


Jetzt klappt alles genauso wie ich es wollte face-smile
Das Programm wird dann mit taskkill.exe geschlossen...

Vielen Dank nochmal für deine Tips

Liebe Grüße
Matze face-smile
Logan000
Logan000 11.07.2008 um 08:24:53 Uhr
Goto Top
Immer wieder gerne.
Sei so gut und setze den Beitrag auf erledigt.

Gruß L.