Kali ini Script iseng juga, yaitu "buka DVD / VCD pake script Notepad.."
:D hehehe.
Langsung Aja Yukk Liat di Bawah ini..
Copy script dibawah ini dan paste di notepad anda. :
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
Simpan dengan format *.vbs.
Lalu Buka File Tersebut (Double Click Mouse).
Tidak ada komentar:
Posting Komentar
Terima Kasih telah melihat dan membaca artikel di atas.
Jika ada yang kurang dimengerti, silahkan tinggalkan komentar anda dengan bahasa yang baik dan bijak. bukan SARA, SPAM, SAMPAH, dan berbau PORNOGRAFI..
Anda Juga dapat memberikan kritik dan saran kepada blog ini demi terciptanya kemajuan dan perkembangan blog ini
Semoga Bermanfaat.