Yuk buat “Virus” Nakal, buat
ngerjain dosen/guru yang kita ngga suka, lagi suntuk di ruang labkom kampus,
pusing ngga bisa maen facebook karena diblokir sama admin labkom, yah iseng2
buatin scripts .vbs.
Caranya: Buka notepad dan masukkan
code 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 file tadi dengan
ekstensi file iseng.vbs ato apapun nama kesukaan asalkan pastikan ekstensinya
.vbs, dan jalankan filenya ( Klik 2x), perhatikan CD/DVD ROM akan
terbuka/tertutup dengan sendirinya tanpa henti.
0 komentar:
Post a Comment
Tinggalkan Komentar anda di sini !