Usilin Teman Bermodalkan NOTEPAD

Apa kabar temen" sekalian .Yang lagi bosen dengan pekerjaan yang dijalaini Serius
terus apa salahnya sekali kali kita ngusilin temen kita sendiri....Tidak perlu susah
susah hanya ber modalkan notepad pada komputer/laptop temen anda..yang mau coba yo
ayo..

eittt jangan di test di komputer kamu ya ...... Bahaya entar....

Pastikan Anda Mengetik Dengan Benar Script Dibawah Ini! Copy Paste Kadang Tidak
Berhasil Dikarenakan Perbedaan Tanda Petik ( ” ” ) Pada Notepad, Untuk Lebih Fix
Bisa Pake TextPad...

1. Membuat CD-Drive meng-eject 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

Terakhir anda save dengan Nama “SUKASUKAANDA.VBS” script Siap untuk usilin temen

   2.  Membuat tombol enter terus Menerus

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

Terakhir anda save dengan Nama “SUKASUKAANDA.VBS” script Siap untuk usilin temen

  3. Membuat  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! “

Terakhir anda save dengan Nama “SUKASUKAANDA.VBS” script Siap untuk usilin temen

  4.  usil dengan Backspace

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

Terakhir anda save dengan Nama “SUKASUKAANDA.VBS” script Siap untuk usilin temen

   5. Membuat Calculator terbuka terus menerus

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

Terakhir anda save dengan Nama “SUKASUKAANDA.VBS” script Siap untuk usilin temen

  6. Usil dengan shutdown Komputer

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

Terakhir anda save dengan Nama “SUKASUKAANDA.VBS” script Siap untuk usilin temen

  7. usil membuat keyboad tidak berfungsi

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

Terakhir anda save dengan Nama “SUKASUKAANDA.VBS” script Siap untuk usilin temen

Semoga Bermanfaat Buat Ngerjain teman-teman kamu yang suka usilin kamu juga he...he..he..