ISEng MenGGunaKAn NotePad!!!!

ISEng MenGGunaKAn NotePad!!!!







-=>bikin shutdown+message

Code:

@echo off

msg * Kowe Kuwi Arep NgopO???

shutdown -s -c "KOmpUTERMU Wis NjaluK Di PEnsiunke Ndang Di ganti Wae sing KomPUter Apik"



save namafile.BAT

(ekstensi filenya harus .BAT)





-=>Mainin Caps Lock button

Code:

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop



save namafile.vbs

(save dengan Ekstensi file .vbs)



-=>buka tutup CD/DVD

Code:

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





-=>bikin vbscript nongol terus

Code:

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "~(enter)"

loop

save namafile.vbs

ket i task manager full wscript yg lg running







-=>teken tombol backspace terus

Code:

MsgBox "Bali NEng NGarep DEwE Biar DApeT uNta!!!"

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{bs}"

loop

save namafile.vbs



-=>otomatis ngetik "KOWE Wong WHEng" di notepad/word

Code:

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "Kowe WonG WHEnG!!!"

loop

save namafile.vbs





-=>buka Task MAnAgeR trus menerus

Code:

@ECHO off

:top

START %SystemRoot%\system32\taskmgr.exe

GOTO top

save namafile.BAT





-=>otomatis buka notepad lalu ngetik apa yg lo mau

Code:

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 "ka"

WScript.Sleep 50

WshShell.SendKeys "mu "

WScript.Sleep 50

WshShell.SendKeys "je"

WScript.Sleep 50

WshShell.SendKeys "le"

WScript.Sleep 50

WshShell.SendKeys "k "

WScript.Sleep 50

WshShell.SendKeys " se"

WScript.Sleep 50

WshShell.SendKeys "ka"

WScript.Sleep 50

WshShell.SendKeys "li"

WScript.Sleep 50

WshShell.SendKeys " y"

WScript.Sleep 50

WshShell.SendKeys "a"

WScript.Sleep 50

WshShell.SendKeys " h"

WScript.Sleep 50

WshShell.SendKeys "!"

WScript.Sleep 50

WshShell.SendKeys "!! "

save namafile.vbs





-=>QuiZ

@echo off

title quiz hari ini Smile

:menu

cls

echo Yen KOMpuTERmu KEna VirUS AreP mBOk KapaKne???

pause

echo pilih yang mana:

echo 1. BunuH KomputerKu

echo 2. format Wae

echo 3. MarAi MUmet OUw.......

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





ket di atas :

kalo pilih

1.otomatis matiin computer

2.format file (terserah file apaan ganti aj dir nya)

3.sama aj kayak pilihan 1

kata2 di atas di ganti2 aj sesuai selera temen2