VBS Laufwerk öffnen und Schließen

  • VBScript

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

    VBS Laufwerk öffnen und Schließen

    Hallo,

    Ich möchte so eine kleine Fun Datei mach die Dein Laufwerk öffnet und schließt öffnen geht aber nich schließen was muss ich machen??

    Quellcode

    1. '''''''''''''''''''''''''''' Öffnen
    3. Set WSHShell = WScript.CreateObject("WScript.Shell")
    5. ' schließt nach 5 Sekunden das Popup
    6. MsgBox "Wenn das Laufwerk auf geht bist du **** xD", 32, "xD"
    8. set mp = WScript.CreateObject("WMPlayer.OCX")
    9. mp.cdromcollection.item(0).eject
    10. MsgBox "Haha", 32, "xD"
    11. set mp = WScript.CreateObject("WMPlayer.OCX")
    12. mp.cdromcollection.item(0).eject

    So gehts:

    Visual Basic-Quellcode

    1. Wieoft = Inputbox("Wie oft soll es auf und zu gehen")
    2. Set oWMP = CreateObject("WMPlayer.OCX" )
    3. Set colCDROMs = oWMP.cdromCollection
    5. For x=0 to WieOft
    6. 'Öffnen
    7. If colCDROMs.Count >= 1 then
    8. For i = 0 to colCDROMs.Count - 1
    9. colCDROMs.Item(i).Eject
    10. Next
    11. End If
    13. Wscript.Sleep 500
    15. 'Schliessen
    16. If colCDROMs.Count >= 1 then
    17. For i = 0 to colCDROMs.Count - 1
    18. colCDROMs.Item(i).Eject
    19. Next
    20. End If
    21. Next


    So werden alle CD-ROm/DVD Laufwerke geöffnet und geschlossen und zwar so oft, wie du es angibst.

    Gruss Mono
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook
Telefonspende