ORGANIZER EVENT WEDDING
Membuat computer teman ( CD, DVD-DRIVE keluar masuk keluar masuk terus tanpa bisa dihentikan )
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
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
Copy code di atas kedalam Notepat kemudian simpan dengan nama sesuai keinginan anda simpan dengan ekstensi: VBS
save as type: all file
contoh: namafile.VBS lalu simpan di computer kita atu teman
Ketika file ini dijalankan CD/DVD-DRive di komputer akan keluar masuk tanpa henti..
jika ingin progran diatas berjalan secara otomatis tinggal kita buat file autorun.inf yang akan saya share di postingan berikutnya jangan lupa ikuti Update terbaru
selamat mecoba..
Untuk menghentikan Proses ini jangan mematikan komputer, cukup tekan CTRL + ALT + DEL
kemudian matikan proses yang sedang berjalan
