12 Cara menjahili teman mengggunakan Notepad

1. Iseng Mengeject 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 “ENYONG.VBS” & Berikan keteman Anda

2. Iseng Dengan Tombol Enter Terus Menerus

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

Kemudian save dengan “ENYONG.VBS” & Berikan keteman Anda

3. Iseng 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 “ENYONG.VBS” & Berikan keteman Anda

4. Iseng 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 “ENYONG.VBS” & Berikan keteman Anda

5. Iseng Dengan Membuka Calculator Terus Menerus

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

Kemudian save dengan “ENYONG.BAT” & Berikan keteman Anda

6. Iseng Dengan Keyboard

Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
loop

Kemudian save dengan “ENYONG.VBS” & Berikan keteman Anda

7. Iseng Dengan Shutdown Computer

@echo off                            
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0

Kemudian save dengan “ENYONG.BAT” & Berikan keteman Anda

8. Membuat Pesan muncul berulang – ulang

 Copy script dibawah ini dan paste di notepad anda.

@ECHO off

 :Begin

 msg * hahahhaa

 msg * santai boss

 msg * ini hanya main-main

 msg * jangan marah ya

 msg * hanya bercanda

 GOTO BEGIN

Simpan dengan format *.bat.

 Lalu Buka File Tersebut

9. Membuat Komputer Shutdown dengan muncul pesan.

 Copy script dibawah ini dan paste di notepad anda.

@echo off

 msg * Hahahahhaha

 shutdown -s -c “Komputer anda mati”

Simpan dengan format *.bat.

 Lalu Buka File Tersebut

10. Membuat Tombol Capslock terus menyala

 Copy script dibawah ini dan paste di notepad anda.

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

 do

 wscript.sleep 100

 wshshell.sendkeys “{CAPSLOCK}”

 loop

Simpan dengan format *.vbs.

 Lalu Buka File Tersebut

11. Membuat terus – menerus menekan tombol “backspace”

 Copy script dibawah ini dan paste di notepad anda.

MsgBox “Kembali ke menu sebelumnya”

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

 do

 wscript.sleep 100

 wshshell.sendkeys “{bs}”

 loop

Simpan dengan format *.vbs.

 Lalu Buka File Tersebut

12. Membuka notepad Terus – menerus

 Copy script dibawah ini dan paste di notepad anda.

@ECHO off

 :top

 START %SystemRoot%\system32\notepad.exe

 GOTO top

Simpan dengan format *.bat.

 Lalu Buka File Tersebut