home *** CD-ROM | disk | FTP | other *** search
/ PC User 2004 November / PCU1104CD1.iso / software / security / files / norton.exe / Setup / ISCommon / APP / ALEScan.exe / HTML / WIZ-ALES.VBS < prev   
Encoding:
Text File  |  2003-09-06  |  3.8 KB  |  174 lines
  1. '////////////////////////////////////////////////////////////////////////////////////////////
  2. '//
  3. '// PRODUCT: Norton Internet Security/Symantec Desktop Firewall
  4. '//
  5. '// NAME:    wiz-ALEs.vbs (VBScript file for wiz-ALEs.HTM)
  6. '//
  7. '// Copyright (c) 2001 by Symantec Corporation. All rights reserved.
  8. '//
  9. '////////////////////////////////////////////////////////////////////////////////////////////
  10.  
  11. dim nFound
  12. dim bUserStopped
  13. dim g_szBack
  14. dim g_szNext
  15. dim g_szCancel
  16. dim g_szFinish
  17. dim g_bFoundListLoaded
  18. dim g_bScanStarted
  19.  
  20. ' Set a few vars
  21. g_szBack = StrID("BackB")
  22. g_szNext = StrID("NextB")
  23. g_szCancel = StrID("CancelB")
  24. g_szFinish = StrID("FinishB")
  25. g_bFoundListLoaded = false
  26. g_bScanStarted = false
  27. bUserStopped = 0
  28. nFound = 0
  29.  
  30. sub Window_OnLoad()
  31.     dialogheight = "400px"
  32.     dialogWidth = "532px"
  33.     returnValue = ""
  34.     bUserStopped = 0
  35.     PageA.style.display = ""
  36.     BackBtn.disabled = true
  37.  
  38.     ' // Watch for the FREIntegrator to run
  39.     UserManager.WatchForFREIntegStart()
  40.  
  41.     ProdNameA.innerHTML = UserManager.AppTitle
  42.     ProdNameB.innerHTML = UserManager.AppTitle
  43.  
  44.     ' DWong 01/26/01 Note: CheckUserType is defined in wiz-ALEs.js
  45.     CheckUserType()
  46.  
  47.     initDriveList()
  48.     
  49.     OnLoad()    
  50.     
  51.     FixBtnText(false)
  52.     window.focus()
  53. end sub
  54.  
  55. sub Cancel_OnClick()
  56.     returnValue = ""
  57.     window.navigate("res://closeme.xyz")
  58. end sub
  59.  
  60. sub StopBtn_OnClick()
  61.     ' Stop the scanner
  62.     bUserStopped = 1
  63.     NetScan.StopScan
  64. end sub
  65.  
  66. sub FoundList_OnLoad()
  67.     BackBtn.disabled = true
  68.     NextBtn.disabled = true
  69.     Cancel.disabled = true
  70.     EnableCloseButton false
  71.  
  72.     ' Insert all the application into the list
  73.     FoundList.PutFileListAsync NetScan.FileList,OnPutFileListComplete,SetPutFileListProgress
  74.     
  75.     SetFileListIsLoading true
  76. end sub
  77.  
  78. sub FoundList_OnSelect()
  79.     dim curSel
  80.  
  81.     curSel = FoundList.CurSelCount
  82.     if curSel > 0 then
  83.         if curSel = 1 then
  84.             Modify.disabled = false
  85.         else
  86.             Modify.disabled = true
  87.         end if    
  88.     else
  89.         Modify.disabled = true
  90.     end if
  91. end sub
  92.  
  93. sub BackBtn_OnClick()
  94. ' Find the active page, front to back (if we are not disabled)
  95.     if PageA.style.display = "" then
  96.         'alert("Error")
  97.     end if
  98.     
  99.     if PageB.style.display = "" then
  100.         bUserStopped = "0"
  101.         PageB.style.display = "none"
  102.         PageA.style.display = ""
  103.         BackBtn.disabled = true
  104.         FixBtnText(false)
  105.     end if
  106.  
  107.     if PageC.style.display = "" then
  108.         PageC.style.display = "none"
  109.         SetFileListIsLoading true
  110.         PageA.style.display = ""
  111.         BackBtn.disabled = true
  112.         NextBtn.disabled = false
  113.         FixBtnText(false)
  114.         FoundList.ClearFileList()
  115.     end if
  116.  
  117.     if PageD.style.display = "" then
  118.         PageD.style.display = "none"
  119.         PageC.style.display = ""
  120.         BackBtn.disabled = false
  121.         FixBtnText(false)
  122.     end if
  123.  
  124. end sub
  125.  
  126. sub NetScan_OnScanStopped(when)
  127.     g_bScanStarted = false
  128.     Scanning.style.display = "none"
  129.     NextBtn.disabled = false
  130.     BackBtn.disabled = false
  131.     Cancel.disabled = false
  132.     StopBtn.disabled = true
  133.     Filename.style.display = "none"
  134.     SetProgress(0)
  135.     pctdone.innerHTML = " "
  136.     pctdone_text.style.display = "none"    
  137.     EnableCloseButton true
  138.  
  139.     if bUserStopped = "0" then
  140.         ScanDone.style.display = ""
  141.         NextBtn_OnClick()
  142.     else
  143.         ScanStopped.style.display = ""
  144.         FixBtnText(false)
  145.     end if
  146. end sub
  147.  
  148. sub NetScan_OnFileFound(count)
  149.     ScanFound.innerHTML = count
  150. end sub
  151.  
  152. sub NetScan_OnScanningFile(when, name)
  153.     Filename.innerHTML = Elipse_Path(39, name)
  154. end sub
  155.  
  156. sub NetScan_OnScanProgressUpdate(when, nPctDone)
  157.     SetProgress(nPctDone)
  158. end sub
  159.  
  160. function FixBtnText(bFinish)
  161.     if bFinish = true then
  162.         NextBtn.style.display = "none"
  163.         FinishBtn.style.display = ""
  164.     else
  165.         NextBtn.style.display = ""
  166.         FinishBtn.style.display = "none"
  167.     end if
  168. end function
  169.  
  170. Function makeMsgBox(title,mess,icon,buts,defbut,mods)
  171.    butVal = buts + (icon*16) + (defbut*256) + (mods*4096)
  172.    makeMsgBox = MsgBox(mess,butVal,title)
  173. End Function
  174.