MEMBUAT CD KOMPUTER BUKA DAN MENUTUP SENDIRI

Dari judulnya Angker Ya Sob?.... kali ini kita bermain lagi dengan Scrip yang membuat kita Sedikit tersenyum..
kali ini kita akan membuat CD Drive bisa Membuka dan Menutup Sendiri
Berikut caranya

• Buka NOTEPAD
• Tuliskan Script Berikut

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

• Simpanlah Dengan Extension VBS  misal Buka.vbs
• untuk Contoh Bisa di ambil disini  DOWNLOAD HERE