2003-12-30 08:55

' demo script to call up rqFakeMsgBox utility, jw 08Sep00
' author: jwarrington*NoSteekinSpam*@att.net

     OPTION EXPLICIT
     DIM sAppPath  ' as string
     CONST rqAppFile = "rqFakeMsgBox.exe"

     DIM oSH  ' as object
     DIM nRtn  ' as long
     CONST wsNormal = 1
     CONST bWaitOnReturn = True
     DIM sMsgParam  ' as string
     CONST sDQ = """"  ' a string with ONE double quote (yes, hard to believe)...

  ' get the filespec for the rqFMB app...
     sAppPath = Replace(WScript.ScriptFullName, WScript.ScriptName, rqAppFile)
  ' MsgBox(sAppPath)
     SET oSH = WScript.CreateObject("WScript.Shell")

  ' set parameter for first example...
     sMsgParam = sDQ & "Hi, from your wsh/vbs Script!" & sDQ
  ' show first fakeMB demo...
     nRtn = oSH.RUN(sAppPath & " " & sMsgParam, wsNormal, bWaitOnReturn)

  ' set parameters (msg and icon) for second example...
     sMsgParam = sDQ & "Now you will (hopefully) see an icon" & sDQ _
      & " " & "2"
  ' show second fakeMB demo...
     nRtn = oSH.RUN(sAppPath & " " & sMsgParam, wsNormal, bWaitOnReturn)

  ' set parameters (msg, icon and caption) for third example...
     sMsgParam = sDQ & "Finally, set Msg, Ico, and CAPTION!" & sDQ _
      & " " & "1" & " " &  sDQ & " Ain't this a Pretty Good MsgBox?" & sDQ
  ' third fakeMB demo...
     nRtn = oSH.RUN(sAppPath & " " & sMsgParam, wsNormal, bWaitOnReturn)

     WScript.Quit

2003-12-30 08:55