Rabu, 31 Desember 2014

Buka/tutup CD drive Secara Terus-menerus

1. Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension *.VBS

Set oWMP = CreateObject
("WMPlayer.OCX.7")
Set colCDROMs =
oWMP.cdromCollection
do if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

2. Untuk mengembalikan seperti semula… tekan CTRL+ALT+DEL lalu muncul Task Manager, klik tab process dan cari wscript.exe, kalau sudah ketemu klik dan End Process.

3. Selebihnya silahkan pahami dan experimen sendiri juga kembangkan lagi.
Pesan Saya, Jangan Jahilin orang yang tidak berdosa, apalagi tak tau apa-apa soal komputer.

Wolf_thumb

0 komentar:

Get Free Shots from Snap.com