Inhaltsverzeichnis:

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

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

Video: Erstellen Sie ein nerviges Programm, das alle Ihre CD-Laufwerke öffnet und schließt - Gunook
Video: Windows 10: CD/DVD-Laufwerk im Netzwerk freigeben 2024, November
Anonim
Erstellen Sie ein nerviges Programm, das alle Ihre CD-Laufwerke öffnet und schließt
Erstellen Sie ein nerviges Programm, das alle Ihre CD-Laufwerke öffnet und schließt
Erstellen Sie ein nerviges Programm, das alle Ihre CD-Laufwerke öffnet und schließt
Erstellen Sie ein nerviges Programm, das alle Ihre CD-Laufwerke öffnet und schließt

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

Notizblock öffnen
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

Geben Sie das Skript ein
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: