Daftar Isi:

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

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

Video: Buat Program Mengganggu yang Membuka dan Menutup Semua Drive Cd Anda: 4 Langkah
Video: Cara Menonaktifkan Program Aplikasi Yang Tiba-Tiba Berjalan Saat Komputer Dinyalakan/Start Up 2024, November
Anonim
Buat Program Mengganggu yang Membuka dan Menutup Semua Drive Cd Anda
Buat Program Mengganggu yang Membuka dan Menutup Semua Drive Cd Anda
Buat Program Mengganggu yang Membuka dan Menutup Semua Drive Cd Anda
Buat Program Mengganggu yang Membuka dan Menutup Semua Drive Cd Anda

ini adalah Instructable pertama saya jadi tolong beri tahu saya bagaimana saya dapat meningkatkan.

instruksi ini memberi tahu Anda cara membuat program yang mengganggu yang membuka dan menutup semua drive cd Anda. Anda akan membutuhkan: komputer yang menjalankan windows

Langkah 1: Buka Notepad

Buka Notepad
Buka Notepad

pertama buka notepad

ada 2 cara yang saya tahu untuk melakukan cara ini 1: klik tombol start, buka program atau semua program, buka aksesoris klik notepad cara 2: tahan tombol windows lalu tekan R lalu lepaskan tombol windows, kotak akan muncul, di kotak itu ketik notepad

Langkah 2: Ketik Script

Ketik Scriptnya
Ketik Scriptnya

jendela notepad sekarang harus terbuka salin dan tempel teks di bawah ini ke notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Error Resume NextSet fs = CreateObject("Scripting. FileSystemObject")strDriveLetter = ""For intDriveLetter ") Ke 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")Setel colCDROMs = oWMP.cdromCollectionFor d = 0 ke colCDROMs. Count - 1colCDROMs. Item(d). EjectNext 'nullFor d = 0 ke colCDROMs. Count - 1colCDROMs. Item(d). EjectNext 'nullset owmp = tidak ada apa-apa colCDROMs = tidak ada loop

Langkah 3: Simpan dan Uji

simpan file sebagai cd.vbs di desktop Anda dan klik dua kali untuk menjalankannya

Langkah 4: Buat Ini Berhenti

tekan ctrl+alt+delete buka pengelola tugas klik proses klik wscript.exe tekan akhiri proses

Direkomendasikan: