Hetalia: Axis Powers - Liechtenstein 07Worm: Vbs Hacks

Search 07Worm

Thursday 9 January 2014

Vbs Hacks



Vbs stands for virtual basic. It is also a language default on Windows.
 You use the same notepad style way to save but instead save with a .vbs extension.

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)
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
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)
open notepad and paste this code:
onclick=msgbox ("cody rulez doesn't he (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
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 + 40
WshShell.Popup "In 40 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 in 50
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 (speaking computer)
Open Notepad and type this in:
strText  = ("what ever you want to say")
Set objvoice = CreateObject ("SAPI.SpVoice")
ObjVoice.Speak strText
then save as whatever.vbs then click the icon and listen

how to get the computer to talk (text mode)
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 a real chat box
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 counter using .vbs
Open Notepad and type this in;
For i = 1 to 10
wscript.echo i
Next
save it as whatever.vbs

how to make you cdrom open and shut 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

No comments:

Post a Comment