Message Box

[hondabones]

If i create a message box, how do I get the script to run a different line when the user clicks ok?

[Nilpo]

You need to capture the return value from the message box. Remember that although MsgBox() is often used like a subroutine, it's actually a function that returns an integer value. There are several possible return values depending on the buttons you display, but it's much easier to remember VBScript's constants instead. Try something like this:

    VBS Programming

intReturn = MsgBox("Press a button", vbOK & vbCancel)
Select Case intReturn
	Case vbOK
		' Do something here
	Case vbCancel
		' Do something else here
	Case Default
		' Something went very wrong.
End Select

[hondabones]

(09-13-2009 10:08 AM)Nilpo Wrote:  You need to capture the return value from the message box. Remember that although MsgBox() is often used like a subroutine, it's actually a function that returns an integer value. There are several possible return values depending on the buttons you display, but it's much easier to remember VBScript's constants instead. Try something like this:

    VBS Programming

intReturn = MsgBox("Press a button", vbOK & vbCancel)
Select Case intReturn
	Case vbOK
		' Do something here
	Case vbCancel
		' Do something else here
	Case Default
		' Something went very wrong.
End Select

Something like this...

    VBS Programming

Dim strPassword
strPassword = LCase (InputBox ("Guess the Secret Word!"))
If strPassword = "scripting" Then
	intCorrectResult = MsgBox ("Correct", vbOK & vbCancel)
ElseIf strPassword = "" Then
	intTryResult = MsgBox ("You have to try, silly.", vbOK)
Else
	intNopeResult = MsgBox ("NOPE!", vbOK)
End If
 
Select Case intCorrectResult
		Case vbOK
		WScript.quit
		Case Else
		WScript.quit
		'Case vbCancel
		'WScript.quit
End Select
Select Case intTryResult
		Case vbOK
		'goto dim strPassword
		strPassword
		'WScript.strPassword
		Case Else
		WScript.quit
End Select
Select Case intNopeResult
		Case vbOK
		strPassword
		Case Else
		WScript.quit
End Select