Isi kandungan:

Buat Program Mengganggu yang Membuka dan Menutup Semua Pemacu Cd Anda: 4 Langkah
Buat Program Mengganggu yang Membuka dan Menutup Semua Pemacu Cd Anda: 4 Langkah

Video: Buat Program Mengganggu yang Membuka dan Menutup Semua Pemacu Cd Anda: 4 Langkah

Video: Buat Program Mengganggu yang Membuka dan Menutup Semua Pemacu Cd Anda: 4 Langkah
Video: 4 HAL YANG TIDAK BOLEH DI UMBAR DI MEDIA SOSIAL || SHARING SANTAI 2024, November
Anonim
Buat Program Mengganggu yang Membuka dan Menutup Semua Pemacu Cd Anda
Buat Program Mengganggu yang Membuka dan Menutup Semua Pemacu Cd Anda
Buat Program Mengganggu yang Membuka dan Menutup Semua Pemacu Cd Anda
Buat Program Mengganggu yang Membuka dan Menutup Semua Pemacu Cd Anda

ini adalah Instructable pertama saya, jadi tolong beritahu saya bagaimana saya boleh meningkatkan.

arahan ini memberitahu anda bagaimana membuat program yang menjengkelkan yang membuka dan menutup semua pemacu cd anda. anda memerlukan: komputer yang menjalankan tingkap

Langkah 1: Buka Notepad

Buka Notepad
Buka Notepad

pertama, buka notepad

ada 2 cara yang saya tahu untuk melakukannya dengan cara ini 1: klik butang mula, pergi ke program atau semua program, pergi ke aksesori klik pada notepad cara 2: tahan kekunci tingkap kemudian tekan R kemudian lepaskan kunci tingkap, kotak akan muncul, dalam kotak nota jenis itu

Langkah 2: Taipkan Skrip

Taipkan Skrip
Taipkan Skrip

tetingkap notepad sekarang harus dibuka dan tampal teks di bawah ke notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject ("Scripting. FileSystemObet" = "" ") Untuk Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Exit ForEnd IfEnd IfNextSet oWMP = CreateObject." WMPlayer. 7 ") Tetapkan colCDROMs = oWMP.cdromCollectionFor d = 0 ke colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 to colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owmp = notsingsetCD tiada apa-apa

Langkah 3: Simpan dan Uji

simpan fail sebagai cd.vbs di desktop anda dan klik dua kali untuk dijalankan

Langkah 4: Buat Berhenti

tekan ctrl + alt + hapus proses klik pengurus tugas terbuka klik proses akhir wscript.exe tekan

Disyorkan: