| |
| Welcome to the Video Game Forums forums. You are currently viewing our boards as a guest which gives you limited access to view most discussions and access our other features. By joining our free community you will have access to post topics, communicate privately with other members (PM), respond to polls, upload content and access many other special features. Registration is fast, simple and absolutely free so please, join our community today! If you have any problems with the registration process or your account login, please contact contact us. |
| |||||||
| Cheat Codes | Arcade-(279 Games) | RPG | Donate | Member Forums | Daily Crossword Puzzle |
| View Poll Results: Rate my script | |||
| 1.I hate it! It's a piece of crap! |     | 2 | 100.00% |
| Voters: 2. You may not vote on this poll | Withdraw Vote | |||
| | Thread Tools |
 10-25-2005, 04:49 PM | #1 |
| Newbie Join Date: Oct 2005 Posts: 4 Thanks: 0 Thanked 0 Times in 0 Posts |  This is a vbs program I made. I'm only 9, I'ts not much. Just copy and paste into a text program, save with the file extention .vbs, double click on the file, and enjoy! [img]smile.gif[/img] Here it is: Dim Input, BtnCode Set Input = WScript.CreateObject("WScript.Shell") Input = InputBox("Enter text.", "Text Popup Version 8.0", "Enter text here") MsgBox "You entered: " & Input, vbOK,"You entered:" BtnCode = MsgBox ("Do one more time?", vbYesNo, "Do one more time?") Select Case BtnCode case 6 Input = InputBox("Enter text.", "Text Popup Version 8.0", "Enter text here") MsgBox "You entered: " & Input, vbOK,"You entered:" MsgBox "Programming by Crazysoft.", vbOK, "Credits:" MsgBox "Thank you for using Text Popup.", vbOK, "End" case 7 Input = MsgBox ("Programming by Crazysoft.", vbOK, "Credits:") MsgBox "Thank you for using Text Popup.", vbOK, "End" End Select [ October 25, 2005, 04:51 PM: Message edited by: MrCrazy ] |
 |
| Bookmarks |
| |
| |
| Thread Tools | |
| |
