Microsoft WSH and VBScript Programming for the Absolute Beginner Part 45 pot

Before you run it for the first time, be sure that you’ve first created a folder called C:\VBScriptGames and that you’ve copied both the VBScript game console script as well as a few oth

Writing the Second JScript

The final script defined in this Windows Script File, shown next, is JScript It displays the game’s closing splash screen and is designed in the same basic manner as the first JScript, using the WshShellobject’s Popup()method to display its graphical pop-up dialog.

//******************************************************************

//Script Name: N/A

//Author: Jerry Ford

//Created: 12/20/02

//Description: This JScript displays the WSF file’s closing splash

// screen

//******************************************************************

//Initialization Section

var objWshShl = WScript.CreateObject(“WScript.Shell”);

var strMessage;

var strAuthor;

var dtmDate;

var strTitleBarMsg;

strMessage = “Thank you for using the VBScript Game Console © “;

strAuthor = “Jerry Ford “;

dtmDate = “2002”;

//Main Processing Section

strTitleBarMsg = getResource(“cTitlebarMsg”);

//Display a popup dialog using the WshShell object’s Popup() method

objWshShl.Popup(strMessage + strAuthor + dtmDate, 0, strTitleBarMsg);

The Final Result

That’s it Let’s assemble the entire Windows Script File as shown next Before you run it for the first time, be sure that you’ve first created a folder called C:\VBScriptGames and that you’ve copied both the VBScript game console script as well as a few other of your VBScript games into the folder.

<comment>This WSF file builds a VBScript Game Console</comment>

<job>

<resource id=”cTitlebarMsg”>VBScript Game Console</resource>

<script language=”JScript”>

//*******************************************************************

//Script Name: N/A

//Author: Jerry Ford

//Created: 12/20/02

//Description: This JScript displays the WSF file’s initial splash

// screen

//*******************************************************************

//Initialization Section

var objWshShl = WScript.CreateObject(“WScript.Shell”);

var strWelcome;

var strInstructions;

var intResults;

var intReply;

var strTitleBarMsg;

strWelcome = “Welcome to the VBScript Game Console “;

strInstructions = “Click on OK to play a VBScript game!”;

//Main Processing Section

//Verify that the user wants to open the VBScript Game Console

intReply = DisplayInitialSplashScreen();

//intReply will be set equal to 2 if the user clicks on the Cancel

if (intReply == 2) {

//Close the VBScript Game Console

WScript.Quit();

}

//Procedure Section

//This procedure prompts the user for confirmation

function DisplayInitialSplashScreen() {

strTitleBarMsg = getResource(“cTitlebarMsg”);

//Display popup dialog using the WshShell object’s Popup() method intResults = +

objWshShl.Popup(strWelcome +

strInstructions, 0, strTitleBarMsg, 1);

//Return the result to the calling statement

return intResults

}

</script>

<script language=”VBScript”>

‘*******************************************************************

‘Script Name: N/A

‘Author: Jerry Ford

‘Created: 12/20/02

‘Description: This VBScript displays the actual VBScript

‘ Game Console interface and interacts with the user

‘*******************************************************************

‘Initialization Section

Option Explicit

Dim objFsoObject, objWshShl, strPlayOrNot, strConsoleStatus

Dim objGameFolder, objGames, strSelection, objWordList

Dim strFileString, intCount, strDisplayString, intNoFilesFound

Dim strTitleBarMsg, intResults

Dim ConsoleArray()

‘Set up an instance of the FileSystemObject

Set objFsoObject = CreateObject(“Scripting.FileSystemObject”)

‘Set up an instance of the WshShell

Set objWshShl = WScript.CreateObject(“WScript.Shell”)

‘Retrieve the titlebar message to the display in popup dialogs

strTitleBarMsg = getResource(“cTitlebarMsg”)

‘Main Processing Section

If intResults = 2 Then

WScript.Quit()

End If

‘Specify the location of the folder where word files are stored

Set objGameFolder = objFsoObject.GetFolder(“C:\VBScriptGames”)

‘Get a list of files stored in the folder

Set objGames = objGameFolder.Files

‘Look and count the number of word files

For Each objWordList In objGames

intNoFilesFound = intNoFilesFound + 1

Next

‘Redefine the script’s array based on number of word files found

ReDim ConsoleArray(intNoFilesFound)

‘Call the function that displays the VBScript Game Console

ConsoleLoop()

‘Procedure Section

‘This function displays the VBScript Game Console, accepts user

‘input, validates the input and starts other VBScript games

Function ConsoleLoop()

‘This string contains a list of all the word files discovered

‘in the target folder

strSelection = “”

‘This counter will be used to track individual word files and

‘will be kept in sync with array entries

intCount = 0

‘Loop through the list of word files

For Each objWordList In objGames

‘Build a master string containing a list of all the word files

‘But exclude the VBScriptGameConsole.wsf file from this list

If objWordList.Name <> “VBScriptGameConsole.wsf” Then

‘Increment count each time through the loop intCount = intCount + 1

strFileString = strFileString & “ “ & objWordList.Name

‘Build another list, adding number for later display strSelection = strSelection & intCount & “ “ & _ objWordList.Name & vbCrLf

‘Load the name of each script into the array ConsoleArray(intCount) = objWordList.Name End If

Next

‘This variable is used to determine when to close the console

strConsoleStatus = “Active”

‘Create loop & keep it running until the user decides to close it

Do Until strConsoleStatus = “Terminate”

‘Interrogate the user’s input

strPlayOrNot = UCase(PickAGame())

‘If the user did not type anything or if he or she clicked on

‘Cancel then exit the function let things come to an end

If strPlayOrNot = “” Then

Exit Function

End If

‘Define a Select Case statement and use it to test the various

‘possible types of user input

Select Case UCase(strPlayOrNot)

‘If the user typed QUIT then exit the function let things

‘come to an end

Case “QUIT”

Exit Function

‘If the user typed ABOUT call the function that displays

‘additional information about the VBScript Game Console

Case “ABOUT”

AboutFunction()

‘If the user typed HELP call the function that provides

‘additional help information

Case “HELP”

HelpFunction()

‘Otherwise call the function that runs the selected VBScript

Case Else

ValidateAndRun()’

End Select

Loop

End Function

‘This function validates user input and if appropriate calls

‘functions that display further instructions or runs the selected

‘VBScript

Function ValidateAndRun()

‘Check to see if the user provided a valid game number

If IsNumeric(strPlayOrNot) <> 0 Then

‘Make sure that the user did not type a negative number

If strPlayOrNot > 0 Then

‘Make sure that the use did not type a invalid number

If CInt(strPlayOrNot) < CInt(intCount) Then

‘If the number is valid then find the associated script strPlayOrNot = ConsoleArray(strPlayOrNot)

‘Call the procedure that will then run the selected script RunScript()

Else

‘Call this procedure if the user has not typed a valid

‘script number InvalidChoice() End If

Else

InvalidChoice() End If

‘Check to see instead if the user provided a valid game name

Else

‘Proceed only if the input typed by the user a valid VBScript

‘game (e.g its name appears in the previously built list of

‘VBScript game names

If InStr(1, strSelection, strPlayOrNot, 1) > 1 Then

‘If the user didn’t type the vbs file extension add it

If InStr(1, strPlayOrNot, “.VBS”, 1) = 0 Then strPlayOrNot = strPlayOrNot & “.vbs”

‘Recheck to make sure that the script name is still valid

If InStr(1, strSelection, strPlayOrNot, 1) > 1 Then

‘Call the procedure that runs the selected script RunScript()

Else

‘Call this procedure if the user has not typed a valid

‘script name

InvalidChoice()

End If

Else

‘If the user specified the script’s vbs file extension and

‘it is found in the previously built list of VBScript game

‘names then go ahead and call the procedure that will run

‘the script

If InStr(1, strSelection, strPlayOrNot, 1) > 1 Then

RunScript()

Else

‘Run this procedure if user fails to supply valid input

InvalidChoice()

End If

End If

Else

‘If user supplied input is not found in the previously

‘built list of VBScript game names call this procedure

InvalidChoice()

End If

End If

End Function

‘This function displays the main VBScript game Console and collects

‘user input

Function PickAGame()

strDisplayString = strSelection & vbCrLf & _

“Or Type: [Help] [About] [Quit]” & vbCrLf

PickAGame = InputBox(“W e l c o m e t o t h e” & vbCrLf & _

vbCrLf & “V B S c r i p t G a m e C o n s o l e !” & _

vbCrLf & vbCrLf & “Pick a Game:” & vbCrLf & vbCrLf & _

strDisplayString, strTitleBarMsg, “”, 50, 50)

End Function

‘This function starts the VBScript selected by the user

Function RunScript()

objWshShl.Run “WScript “ & strPlayOrNot

End Function

‘This function is called whenever the user provides invalid input

Function InvalidChoice()

MsgBox “Sorry Your selection was not valid A valid “ & _

“selection consists of one of the following:” & vbCrLf & _

vbCrLf & “* The number associated with one of the listed “ & _

“VBScript games” & vbCrLf & “* The name of a listed “ & _

“VBScript game” & vbCrLf & “* The name of a listed “ & _

“VBScript game plus its file extension” & vbCrLf & _

“* Help - To view help information.” & vbCrLf & _

“* About - To view additional information about this game “ & _

“and its Author” & vbCrLf & “* Quit - To close the “ & _

“VBScript Game Console” & vbCrLf & vbCrLf & _

“Please try again.”, , strTitleBarMsg

End Function

‘This function displays help information in a popup dialog

Function HelpFunction()

MsgBox “Additional help information for the VBScript Game “ & _

“Console can be found at:” & vbCrLf & vbCrLf & _

“www.xxxxxxxx.com.”, , strTitleBarMsg

End Function

‘This function displays information about the VBScript Game Console

‘and its author

Function AboutFunction()

MsgBox “VBScript Game Console © Jerry Ford 2002” & vbCrLf & _

vbCrLf & “Email the author at: xxxxx@xxxxxxxx.com.”, , strTitleBarMsg

End Function

</script>

<script language=”JScript”>

//******************************************************************

//Script Name: N/A

//Author: Jerry Ford

//Created: 12/20/02

//Description: This JScript displays the WSF file’s closing splash

// screen

//******************************************************************

//Initialization Section

var objWshShl = WScript.CreateObject(“WScript.Shell”);

var strMessage;

var strAuthor;

var dtmDate;

var strTitleBarMsg;

strMessage = “Thank you for using the VBScript Game Console © “;

strAuthor = “Jerry Ford “;

dtmDate = “2002”;

//Main Processing Section

strTitleBarMsg = getResource(“cTitlebarMsg”);

//Display a popup dialog using the WshShell object’s Popup() method

objWshShl.Popup(strMessage + strAuthor + dtmDate, 0, strTitleBarMsg);

</script>

</job>

</package>