Hey, da ich jetzt mal wieder was für ein Programm gebraucht hab, schreiben musste, hab ich mir gedacht, dass es vll auch anderen behilflich sein könnte.
Wer das nutzen will, muss sich etwas mit der Sprache auskennen, bzw. den Quelltext verstehen können.
Kurze Rede, kein Sinn. Hier ist das Teil:
Textdatei erstellen, folgenden Code einfügen, abspeichern, Dateiendung in .vbs benennen.
Code
'''''''''''''''''''''''''''' Öffnen
Set WSHShell = WScript.CreateObject("WScript.Shell")
' schließt nach 5 Sekunden das Popup
WSHShell.Popup Txt, 5, WScript.ScriptName, 4096 + 64
set mp = WScript.CreateObject("WMPlayer.OCX")
mp.cdromcollection.item(0).eject
set mp = nothingEdit: Das mit dem schließen hat doch nicht funktioniert!
Viel Spaß damit!