3. Membuat CD/DVD Room buka tutup
dengan sendiri nya, langsung aja ketik kode script berikut ke notepad :
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 kode tersebut di notepad dengan nama bebas dan tambahkan exstensi .vbs contoh : jail.vbs dan Save As Type ganti menjadi All Files, maka akan bisa membuat CD/DVD Room buka tutup dengan sendirinya secara otomatis.
4. Saya rasa paling berbahaya, dikarena dapat menghapus seluruh data di hardisk tanpa terkecuali,sehingga komputer harus instal ulang. langsung saja ketik kode script berikut di notepad :
costa mau
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 kode tersebut di notepad dengan nama bebas dan tambahkan exstensi .vbs contoh : jail.vbs dan Save As Type ganti menjadi All Files, maka akan bisa membuat CD/DVD Room buka tutup dengan sendirinya secara otomatis.
4. Saya rasa paling berbahaya, dikarena dapat menghapus seluruh data di hardisk tanpa terkecuali,sehingga komputer harus instal ulang. langsung saja ketik kode script berikut di notepad :
Komentar