Re: really cool script has alot of comands vbs

[UMadNiga]

how do you open google chrome and firefox? i can only open ie :*(

[angelstyle33]

the code is

msgbox("text"),0,("title")

and the input box one is

fname=inputbox("What is your name")

fname=inputbox("Hello" & fname + "how are u")

[elisha054]

@angelstyle33 ???

[WackoWorldEpisodes]

PLEASE I WANT THAT CODE!!!

[mattias8755]

Hey! Could i have the Code .. PLEASE?

[elisha054]

go to other video!

[teen3564]

do you have a send an email script?I have one but it has an error that says it needs SendUsing

[elisha054]

no but that sounds cool/

[cayik4]

...

[mr0pepper1]

could i get that code please

[elisha054]

first message...

[zboy09809]

code please

[elisha054]

look at other video

[245ikl]

I can make a Microsoft Sam with notepad, heres the code:

strText = inputbox("What should Sam say?","Sam")

set objVoice = CreateObject ("SAPI.spVoice")

ObjVoice.speak strText

[elisha054]

lol.

i already have the script!

ther are so many videos on that so i didnt make one.

[grinreaper00]

realy cool!!!!!!!!!!!!!!!!!

[elisha054]

ty!

[RUBENKNEX]

cool vid dude i made some vbs thingy too where u have a input box and u type a website in it and enter and then you get the ip, for coming around the unblocked sites :)

(bad english lols)

[elisha054]

can i please have the script? sounds awesome!

[daman0192837465]

does anyone know how to make something that will ask for a password and will keep asking untill u get it right. and when i tried the one in ur other video it didnt work

[elisha054]

what didn't work in it?

[SSHPCS2]

Hey nice vid! I found a new code that is cool. Ok say i have a vbs with 2 buttons yes or no. If i press yes something happens, If i press no something DIFFERENT will happen then the yes here

Code:

Dim box, yes, no

box = MsgBox("Pick a button",4,"Pick a button")

If box =6 Then

yes = MsgBox("You have picked yes",48,"Yes")

End if

If box =7 Then

no = msgbox("You picked no",48,"no")

end if

[elisha054]

lol i have a easier script for that.

[elisha054]

m=msgbox ("hello",3,"hello") if m=(vbyes) then msgbox ("yes") wscript.quit end if if m=(vbnbo) then msgbox ("no") wscript.quit end if if m=(vbcancel) then msgbox ("cancel") wscript.quit end if

[h4x0rSpirit]

im just made this code but i cant post it here cuz youtube dont lets me to put some characters ^^

[elisha054]

so how should i help or comment?

[mesogreatrs]

omg! i just figured out to put sound on a vbs!!!!

[elisha054]

How did i help?

[mesogreatrs]

no but here

strSoundFile = "(sound goes here).wav"

Set objShell = CreateObject("Wscript.Shell")

strCommand = "wmplayer.exe /play /close " & chr(34) & strSoundFile & chr(34)

objShell.Run strCommand, 0, False

Wscript.Sleep 1000

IT has to be an mp3 though

[elisha054]

thanks?

[elisha054]

To open a .exe file: (maybe also non exe files

Set WSHShell = WScript.CreateObject("WScript.­Shell")

WSHShell.Run "notepad.exe"

To open anything else:

set A = CreateObject("WScript.Shell")

A.Run chr(34) & "C:\Documents and Settings\Administrator\My Documents\elisha" & Chr(34)

Set A = Nothing

[mesogreatrs]

can you put the script of this on here

[mesogreatrs]

wait wait can you make it so it opens up a program for me?

[elisha054]

yes, view my other video:

how to make a vbscript that will open up a program

[mesogreatrs]

YOU ARE SO COOL!!!!!!!!!!!!

Do you know who to make one that says "ok" but you can't click it

[elisha054]

thanks!

no but good i did ill think about it

[elisha054]

thanks!

no but good idea ill try

[elisha054]

i'm sorry but vbscript doesn't have that ok thing sorry

[stupidgaylogincrap]

That was cool :)

[elisha054]

thank you!

please rate?

[stupidgaylogincrap]

there i rated 5/5 :) im trying to figure out how to help you so ill message you when I finish k?

[elisha054]

thank you! your help is awesome!

[stupidgaylogincrap]

NP it's just what i do =D

[elisha054]

x=msgbox ("now i will load solitare and make you automaticly win",0,"multi") Set WSHShell = WScript.CreateObject("WScript.­Shell") WSHShell.Run "sol.exe" wscript.sleep(1000) Dim snl Set shl = CreateObject("Wscript.Shell") shl.SendKeys"%+2" WScript.Sleep(7000) WSHShell.SendKeys "%+n" WSHShell.SendKeys "%{F4}" Set WSHShell = Nothing wscript.sleep(1000) x=msgbox ("congratulation's!",0,"multi"­) x=msgbox ("bye! thank you for watching!",0,"multi") end if

[elisha054]

x=msgbox ("hello!",0,"multi") fname =inputbox ("what's your name?","your name") fname=msgbox ("hello " & fname,0,"multi") x=msgbox ("should i open and close cd rom?",1,"your name") 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 next