|
Long ago i started to use VBScript for some reasons... i dont know why, but i became pretty good in it. here is a short and simpel tuttorial about it, Im sorry, i couldnt post the scripts into the video description. it would be to long. so if you need them, just watch carefully ;) MISSING SCRIPT OF STEP 5-6B: returnvalue=Inputbox ("Choose one of the following websites: Newgrounds, Youtube en Google") If returnvalue="Newgrounds" Then Set shl = CreateObject("Wscript.shell") shl.Run "http://www.newgrounds.com" End If If returnvalue="Youtube" Then Set shl = CreateObject("Wscript.shell") shl.Run "http://www.youtube.com" End If If returnvalue="Google" Then Set shl = CreateObject("Wscript.shell") shl.Run "http://www.google.com" else msgbox "If a site didnt pop-up, you might wrote somthing wrong" End If -------------- There is also a way simpler way to do this, so you can open ANY website you can think off. As long as it ends with .com, as the script automatically adds www. and .com to it. Here it is: strsite = Inputbox ("Please write down a website you wish to open. Example: Youtube - Google - Newgrounds etc etc. DO NOT ADD THE www. and .com, as the script will do that for you.") Set shl = CreateObject("Wscript.shell") shl.Run ("http://www." & strsite & ".com") code pour embarquer la vidéo : >>> http://www.youtube.com/embed/abrcpHuwdJE <<< |