Nih yang mau buat orang panik ketakutan gara-gara DVD Rom-nya buka tutup sendiri
nih mantranya hehe
1.bikin new text document.
2.masukin 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
3.save dalam extensi .vbs
4.kasi aja nama "gadisbugil"...hahahaha...biar napsu nya pada naik buat buka nih script....
Selasa, 26 Januari 2010
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar