If you previously registered on VGF XenForo boards, you will need to use the forgot password feature in order to be able to post here. If you do not receive a password reset by e-mail, use the contact page or post in registration/login help.

Rate my script

Locked

Rate my script

1.I hate it! It's a piece of crap!
1
50%
2.Not so good.
0
No votes
3.Decent.
0
No votes
4. Pretty good for a nine year old.
1
50%
5.You rock! Woohoo!
0
No votes
 
Total votes: 2

User avatar
Mr_Crazy
Posts: 4
Joined: Fri Oct 21, 2005 1:00 am

Rate my script

Post by Mr_Crazy » Tue Oct 25, 2005 5:49 pm

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 ]
Mr_Crazy is crazy smart...

Locked

Return to “Science & Technology”