Program Usil

Kali ini saya akan memberikan skrip program usil. Saya mendapatkan skrip ini dari BinusHacker. Lumayan buat ngejailin teman. hihihi

Saya sudah pernah mencoba semua skrip ini dan efeknya tidak sampai membuat crash komputer. Jika Anda ingin menghentikan proses skrip ini bisa melalui task manager (Ctrl + Shift + Esc).
Langsung aja copas skrip di bawah ini

1. Usil dengan tombol Enter terus menerus

Set wshShell=wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

Simpan dengan Blablabla.vbs

2. Usil dengan Eject Optical Drive terus menerus

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