LET'S PLAY WITH NOTEPAD

Mau ngerjain temen sampe dia ketakutan ? tanpa resiko tanpa bahaya just for fun, mari kita gunakan notepad sebagai bahan utamanya, saya akan tulis berbagai script notepade dibawah ini, silahkan dipilih sesuai selera


HOW TO USE ??? Gampang ko

* buka notepad
* copy script dibawah ini
* save as dengan nama apa aja tapi wajib ekstensi .VBS
* pancing teman anda membuka file tersebut, caranya tergantung kepintaran anda supaya temen mau   ngeclick file nya


1 ENTER TERUS MENERUS

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

2 PESAN SEREM LAMBAT MUNCUL SENDIRI 

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 “hihihi...”
WScript.Sleep 500
WshShell.SendKeys “HEY... ”
WScript.Sleep 500
WshShell.SendKeys “, KA”
WScript.Sleep 500
WshShell.SendKeys “MU”
WScript.Sleep 500
WshShell.SendKeys “SE ”
WScript.Sleep 500
WshShell.SendKeys “GE”
WScript.Sleep 500
WshShell.SendKeys “RA”
WScript.Sleep 500
WshShell.SendKeys “LAH”
WScript.Sleep 500
WshShell.SendKeys “BER”
WScript.Sleep 500
WshShell.SendKeys “TO”
WScript.Sleep 500
WshShell.SendKeys ”BAT”
WScript.Sleep 500
WshShell.SendKeys “HI..”
WScript.Sleep 500
WshShell.SendKeys “HI........ “ 

3 CD/DVD ROM KELUAR MASUK

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  

4 AUTO BACKSPACE

MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop  

5 KEYBOARD ISENG

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

6 ALAY GENERATOR

Script ini cocok buat ngerjain temen anda yg anti alay krna jika kna script ini dia akan menjadi alay dengan sendirinya

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

Masi banyak lagi, tapi sementara ini aja dulu, SELAMAT MENCOBA

100% aman dicoba di PC sendiri