Erstellen Sie ein nerviges Programm, das alle Ihre CD-Laufwerke öffnet und schließt - Gunook
Erstellen Sie ein nerviges Programm, das alle Ihre CD-Laufwerke öffnet und schließt - Gunook

Dies ist mein erstes Instructable, also sagen Sie mir bitte, wie ich mich verbessern kann.

Dieses anweisbare sagt Ihnen, wie Sie ein nerviges Programm erstellen, das alle Ihre CD-Laufwerke öffnet und schließt. Sie benötigen: einen Computer mit Windows

Schritt 1: Notizblock öffnen

Öffnen Sie zuerst den Notizblock

Ich kenne 2 Möglichkeiten, dies zu tun 1: Klicken Sie auf die Starttaste, gehen Sie zu Programme oder alle Programme, gehen Sie zu Zubehör, klicken Sie auf den Notizblock Weg 2: Halten Sie die Windows-Taste gedrückt, drücken Sie dann R und lassen Sie die Windows-Taste los, ein Feld erscheint, geben Sie in diesem Feld Notizblock ein

Schritt 2: Geben Sie das Skript ein

Das Notepad-Fenster sollte jetzt geöffnet sein. Kopieren Sie den folgenden Text und fügen Sie ihn in NotepaddoDim ein tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject("Scripting. FileSystemObject")strDriveLetter = ""For intDriveLetter. = Asc("A ") To Asc("Z")Err. ClearIf fs. GetDrive(Chr(intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr(intDriveLetter)Exit ForEnd IfEnd IfNextSet oWMP = CreateObject("WMPlayer. OCX. 7")Setze colCDROMs = oWMP.cdromCollectionFor d = 0 auf colCDROMs. Count - 1colCDROMs. Item(d). EjectNext 'nullFor d = 0 auf colCDROMs. Count - 1colCDROMs. Item(d). EjectNext 'nullset owmp = nothingset colCDROMs = nichtsschleife

Schritt 3: Speichern und testen

Speichern Sie die Datei als cd.vbs auf Ihrem Desktop und doppelklicken Sie darauf, um sie auszuführen

Schritt 4: Machen Sie es aufhören

drücke Strg+Alt+Entf Task-Manager öffnen Prozesse anklicken wscript.exe anklicken Prozess beenden drücken

Empfohlen: