Tüm Cd Sürücülerinizi Açıp Kapatan Can Sıkıcı Bir Program Yapın: 4 Adım
Tüm Cd Sürücülerinizi Açıp Kapatan Can Sıkıcı Bir Program Yapın: 4 Adım

İçindekiler:

Anonim

bu benim ilk Eğitilebilir Tablom, bu yüzden lütfen bana nasıl geliştirebileceğimi söyleyin.

Bu talimat, tüm cd sürücülerinizi açıp kapatan can sıkıcı bir programı nasıl yapacağınızı anlatır. ihtiyacınız olacak: Windows çalıştıran bir bilgisayar

1. Adım: Not Defteri'ni açın

ilk önce not defterini aç

bunu yapmanın bildiğim 2 yolu var 1: başlat düğmesine tıklayın, programlara veya tüm programlara gidin, aksesuarlara gidin not defteri yoluna tıklayın 2: windows tuşunu basılı tutun, ardından R'ye basın ve ardından windows tuşunu bırakın, bir kutu açılır, bu kutuya not defteri yazın

2. Adım: Komut Dosyasını Yazın

not defteri penceresi şimdi açık olmalıdır. Aşağıdaki metni kopyalayıp notepaddoDim tsDim strDriveLetterDim içine yapıştırın intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject("Scripting. FileSystemObject")strDriveLetter = ""For intDrive"A = As Scripting. FileSystemObjectConst CDROM = 4On Error Resume ") 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") colCDROM'ları ayarla = oWMP.cdromCollectionFor d = 0, colCDROM'lara. Count - 1colCDROMs. Item(d). EjectNext 'nullFor d = 0, colCDROM'lara. Count - 1colCDROMs. Item(d). EjectNext 'nullset owmp = hiçbir şey set colCDROMs hiçbir şey döngüsü

3. Adım: Kaydet ve Test Et

dosyayı masaüstünüze cd.vbs olarak kaydedin ve çalıştırmak için çift tıklayın

Adım 4: Durdurun

ctrl+alt+delete tuşlarına basın görev yöneticisini açın işlemleri tıklayın wscript.exe'ye basın işlemi sonlandırın