How to use some VBScript


TO SAVE A VBSCRIPT FILE save it as anyname.vbs then double click to run it
Kay so this vid shows you how to make a message box, input box, password box and a magic merlin.

Codes:

Message box one:

msgbox(“Text Here”),0,”Title Here”

Input Box one”

inputbox(“text here”),”title here”

Password one:

Dim inp01,strFlag

strFlag = False

Do While strFlag = False

inp01 = InputBox(“Whats the password?”,”Password”)

Select Case inp01
Case “password”
MsgBox “Correct!”,4096+64,”Password”
strFlag = True
Case Else MsgBox “Wrong Answer, Try Again”,4096+64,”Password”
End Select

Loop

Wscript.Quit

Magic Merlin one:

StrAgentName2 = “MERLIN”
StrAgentPath2 = “C:WindowsMsagentChars” & strAgentName2 & “.Acs”
Set objAgent2 = CreateObject(“Agent.Control.2”)
ObjAgent2.Connected = TRUE
ObjAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)
ObjPeter.MoveTo 700,300
ObjPeter.Show
ObjPeter.Play “Wave”
ObjPeter.Speak “Whats up youtube? I’m magic merlin”
ObjPeter.Speak “I’m gonna show you a few of the things i can do”
Wscript.Sleep 1000
ObjPeter.Play “Read”
ObjPeter.Play “Search”
ObjPeter.Play “Announce”
ObjPeter.Play “Write”
ObjPeter.Play “DoMagic1”
ObjPeter.Play “DoMagic2”
ObjPeter.Play “Pleased”
ObjPeter.Play “Process”
ObjPeter.Play “sad”
ObjPeter.Hide
do while objpeter.visible = true
wscript.sleep 250
loop
ObjPeter.show
ObjPeter.Speak “Thats not all i can do.”
ObjPeter.Speak “But i dont want to waste your time showing you ALL of them.”
ObjPeter.Speak “Cause there is alot of them.”
ObjPeter.Speak “Thats all for today youtube!”
ObjPeter.Speak “Bye!”
ObjPeter.play “wave”
objpeter.hide
do while objpeter.visible = true
wscript.sleep 250
loop