Hack memakai notepad bag.II

sebelumnya saya minta maaf karena kemarin saya hanya memposting 1 artikel saja ,di karenakan saya lagi sakit,

dan kali ini saya juga hanya memposting 1 artikel lagi tentang hack pakai notepad atau jahil memakai media notepad,,,
baiklah,tanpa lebar panjang langsung saja saya berikan caranya..

PENTING !!!

semua file notepad yang di buat  dibawah ini harus mengubah " save as type"nya menjadi All files,dan masing"  mempunyai extensionnya,extension itu adalah jenis filenya saat kamu menyimpan file,
contoh : cacat.bat atau mengong.vbs

1. memberi pesan dan shutdown komputer

simpan dengan extension .Bat

@echo off
msg * Aku tidak suka kamu
shutdown -c "kamu bauk" -s

2. menyalakan tombol caps lock secara simultan

simpan dengan extension .vbs

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

3. membuka/menutup CD Drive terus menerus

simpan dengan exstension .vbs

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. tekan enter secara simultan

simpan denga extension .vbs

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

5. mengetik pesan kita secara otomatis di notepad

simpan dengan extension .vbs

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 "ri"
WScript.Sleep 500
WshShell.SendKeys "cky "
WScript.Sleep 500
WshShell.SendKeys "it"
WScript.Sleep 500
WshShell.SendKeys "u o"
WScript.Sleep 500
WshShell.SendKeys "rang "
WScript.Sleep 500
WshShell.SendKeys "nya"
WScript.Sleep 500
WshShell.SendKeys " ma"
WScript.Sleep 500
WshShell.SendKeys "nis"
WScript.Sleep 500
WshShell.SendKeys "k"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "n "
WScript.Sleep 500
WshShell.SendKeys ":"
WScript.Sleep 500
WshShell.SendKeys "D"

6. menjalankan backspace secara simultan

simpan dengan extension .vbs

MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

7. hack keyboard sehingga korban di paksa mengetik "SAYA CACAD" secara simultan

simpan dengan exstension .vbs

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "SAYA CACAD"
loop

8. buka notepad secara terus menerus

simpan dengan exstension .bat

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

9.munculin 5 pilihan yang harus korban pilih

simpan dengan extension .bat

@echo off
title The end of the world
cd C:\
:menu
cls
echo enak lo jawab pertanyaan yang satu ne
pause
echo kamu suka siapa ? =P :
echo 1. ricky.
echo 2. gue
echo 3. aku
echo 4. saya
echo 5. bye bye...
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two

mungkin hanya ini yang bisa saya beritahu pada post kali ini,
semoga bermanfaat dan selamat jahil..:D
jangan lupa komen n likenya..