Makes 5 Cools Virus using Notepad & Do Prank with Friends .......
Codes copy & Paste in Notepad
1. Fake Massage.
@echo off
msg * Can't Open. File Corrupted
2. CD-ROM (vbs)
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 120
loop
3. Matrix with attack msg….
@echo off
Start start start start start start start start start start start start start start start start
Msg * Shutdown Pc FAST. This Attack by HACKER.
:loop
COlor 0A
Title HACKED (DATA TRANSFERRING)
echo 5 8 9 7 9 7 9 7 65 5 567 4 4 8 8 8 54 1A 1 0 a d d f f 1 0 8
echo 0 0 0 0 0 0 0 0 1 A 0 A 1 0 A 1 1 1 1 0 A 1 0 A 5 5 6 7 a n k k k
echo 0 1 0 1 0 A B J 0 3 4 0 1 0 1 0 1 B A A O i d d 3 3 4 4 6 7 7 g u
echo 0 2 3 1 1 1 5 5 6 5 6 8 9 5 4 5 4 5 5 4 5 5 6 4 f f f g j d g d f g d
echo 2 4 5 6 5 5 6 5 9 4 5 7 7 7 7 8 9 9 0 66 6 1 5 5 6 4 5 5 8 6 4 4 6 4
goto :loop
4 Corona Virus
@echo off
Start start start Start start start
Start start start Start start start
Start start start
Start start start
Start start start
Msg * PC Infected With CORONA VIRU
Shutdown –r –t 5
:LOOP
5.Robot
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Comments