23 lines
429 B
Plaintext
23 lines
429 B
Plaintext
|
' Sample VBScript (VBS) preview code
|
||
|
|
'
|
||
|
|
' This is a comment.
|
||
|
|
|
||
|
|
#If Win32 Then
|
||
|
|
Public Const IsWin32 = True
|
||
|
|
#Else
|
||
|
|
Public Const IsWin32 = False
|
||
|
|
#End If
|
||
|
|
|
||
|
|
Dim myVal, btnPressed
|
||
|
|
|
||
|
|
myVal = MsgBox("Hello World!", vbOkCancel, "Hello")
|
||
|
|
|
||
|
|
Select Case myVal
|
||
|
|
Case 1 btnPressed = "OK"
|
||
|
|
Case 2 btnPressed = "Cancel"
|
||
|
|
Case Else btnPressed = "Error!"
|
||
|
|
End Select
|
||
|
|
|
||
|
|
MsgBox "You pressed the " & btnPressed & " button.", vbInformation
|
||
|
|
|