Wie beende ich ein Programm mit einem VBS Skript

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Wie beende ich ein Programm mit einem VBS Skript

    Ich habe hier ein VBS Skript mit diesem kann ich eine Audiodatei mit unsichtbaren Media Player abspielen, beim zweiten Start dieses VBS Scripts wird der Media Player sichtbar, was ich nicht will.
    Ich müsste also am Ende des Scripts denn Media Player beenden, wie mache ich das.
    Ich habe schon mit verschiedenen Befehlen wie taskkill oder end herumprobiert, aber es Funktioniert alles nicht.

    Hier mein Skript:
    set WshShell = CreateObject("WScript.Shell")
    music = "C:\test\test.wav"
    WshShell.Run "wmplayer """ & music & """",0,True

    Entweder den WMPlayer mittels run starten und dessen PID in eine Textdatei speichern (wie bei Linux gängige Methode) oder ein Script, welches den Player bei eine Schlüsseldatei selbst beendet.

    Methode2:

    Visual Basic-Quellcode

    1. dim oMP, FSO, fStop, music
    2. music = "C:\Users\Peter\Music\Test.mp3"
    3. fStop=left(WScript.ScriptFullName, inStrRev(WScript.fullName,"\")+1) & "stop"
    4. set FSO=CreateObject("Scripting.FileSystemObject")
    6. FSO.CreateTextFile fStop, True
    7. WScript.Sleep 1
    8. if FSO.FileExists(fStop) = True Then
    9. FSO.DeleteFile fStop
    10. end if
    11. set oMP = CreateObject("WMPlayer.ocx")
    12. oMP.Url = music
    13. WScript.sleep 1
    14. do
    15. if FSO.FileExists(fStop)=True or oMP.playstate < 3 Then
    16. Exit do
    17. else
    18. WScript.sleep 1
    19. end if
    20. loop
    21. oMP.Close
    22. set oMP = nothing
    23. if FSO.FileExists(fStop) = True Then
    24. FSO.DeleteFile fStop
    25. end if
    26. set FSO=nothing

    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „peterfido“ ()

Facebook
Telefonspende