id-trik mau
bagi-bagi 12 Cara Menjahili Teman Menggunakan Notepad
dengan
pesan ini mungkin kalian bisa ngjahilin temen kalian
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
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 “ID-TRIK.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
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! “
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
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
: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
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
msg * Komputer Anda Terinfeksi Virus
shutdown -c “Error! Virus Menyebar Keseluruh System!” -s -t 0
Kemudian
save dengan “ID-TRIK.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