Cara gunainnya seperti biasa lewat Notepad, KOPAS Code di bawah Lalu Save Dengan Ektensi File BAT
Contoh : (file.bat) Tanpa Tanda Kurung
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:
MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
4. Iseng Dengan Membuka Calculator Terus Menerus
Code:
@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top
Ehm Ehm Minal Aidin Wal Faidzin ya, Maaf dari kemaren ga posting posting karena sibuk Ngurusin Lebaran,,
5. Iseng Dengan Shutdown Komputer
Code:
@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0
Semoga Bermanfaat buat Belajar Bukan Buat Yang Aneh-Aneh
{ 0 komentar... read them below or add one }
Posting Komentar