home *** CD-ROM | disk | FTP | other *** search
/ PC User 2004 November / PCU1104CD1.iso / software / security / files / norton.exe / Setup / Firewall / APP / HNetWiz.exe / HTML / WIZ-HN.VBS < prev   
Encoding:
Text File  |  2003-09-06  |  1.6 KB  |  70 lines
  1. '////////////////////////////////////////////////////////////////////////////////////////////
  2. '//
  3. '// PRODUCT: Norton Internet Security/Symantec Desktop Firewall
  4. '//
  5. '// NAME:    wiz-HN.vbs (VBScript file for wiz-HN.HTM)
  6. '//
  7. '// Copyright (c) 2001 by Symantec Corporation. All rights reserved.
  8. '//
  9. '////////////////////////////////////////////////////////////////////////////////////////////
  10.  
  11. dim g_szBack
  12. dim g_szNext
  13. dim g_szCancel
  14. dim g_szFinish
  15.  
  16. ' Set a few vars
  17. g_szBack = StrID("BackB")
  18. g_szNext = StrID("NextB")
  19. g_szCancel = StrID("CancelB")
  20. g_szFinish = StrID("FinishB")
  21.  
  22. sub Cancel_OnClick()
  23.     returnValue = ""
  24.     window.navigate("res://closeme.xyz")
  25. end sub
  26.  
  27. sub BackBtn_OnClick()
  28. ' Find the active page, front to back (if we are not disabled)
  29.     if PageA.style.display = "" then
  30.         alert("Error")
  31.     end if
  32.     
  33.     if PageB.style.display = "" then
  34.         PageB.style.display = "none"
  35.         PageA.style.display = ""
  36.         BackBtn.disabled = true
  37.         FixBtnText(false)
  38.     end if
  39.  
  40.     if PageC.style.display = "" then
  41.         PageC.style.display = "none"
  42.         PageB.style.display = ""
  43.         NextBtn.disabled = false
  44.         FixBtnText(false)
  45.     end if
  46.  
  47.     if PageOldC.style.display = "" then
  48.         PageOldC.style.display = "none"
  49.         PageC.style.display = ""
  50.         FixBtnText(false)
  51.     end if
  52.  
  53.  
  54. end sub
  55.  
  56. function FixBtnText(bFinish)
  57.     if bFinish = true then
  58.         NextBtn.style.display = "none"
  59.         FinishBtn.style.display = ""
  60.     else
  61.         NextBtn.style.display = ""
  62.         FinishBtn.style.display = "none"
  63.     end if
  64. end function
  65.  
  66. Function makeMsgBox(title,mess,icon,buts,defbut,mods)
  67.    butVal = buts + (icon*16) + (defbut*256) + (mods*4096)
  68.    makeMsgBox = MsgBox(mess,butVal,title)
  69. End Function
  70.