home *** CD-ROM | disk | FTP | other *** search
/ For Beginners & Professional Hackers / cd.iso / software / internet / ie4w95(1.exe / ie4_5.CAB / control.htt < prev    next >
Encoding:
Text File  |  1996-11-25  |  4.4 KB  |  136 lines
  1.  
  2. <%WinShell = CreateObject("WinShellHTMLPreProc")%>
  3. <!-- 
  4.  * This file was automatically generated by Microsoft Internet Explorer 4.0 
  5.  * using the file <%WinShell.TemplateDirPath%>control.htt 
  6.  -->
  7.  
  8.  
  9. <html>
  10.    <head>
  11.    </head>
  12.  
  13.    <body topmargin=0 leftmargin=0>
  14.       <object id="InfoHelp"    classid="clsid:3A53F860-D35B-11CF-BB82-00A0C908DBAA">
  15.       </object>
  16.       <object id="PopMenu"     classid="clsid:7823A620-9DD9-11CF-A662-00AA00C066D2" codebase="http://themesrv/DesktopNews/iemenu.ocx#Version=4,70,0,1116">
  17.       </object>
  18.       <object id="CatSelector" classid="clsid:BEAADBC0-E570-11CF-A9AD-00AA00B92C4D"
  19.          width=222 height=18>
  20.       </object>
  21.       <object id="DownArrow"   classid="clsid:BEAADBC0-E570-11CF-A9AD-00AA00B92C4D"
  22.          width=18 height=18>
  23.       </object>
  24.    </body>
  25.  
  26.    <script language="VBScript">
  27.       Option Explicit
  28.       Dim bTimerActive
  29.  
  30.       Dim   PageCount
  31.       ReDim NameArray(1)
  32.       ReDim PageArray(1)
  33.       ReDim WebViewRegFlag(1)
  34.       ReDim WebViewRegKey(1)
  35.       ReDim SubkeyArray(1)
  36.  
  37.       Sub Window_OnLoad()
  38.          Dim Result
  39.  
  40.          bTimerActive = 0
  41.  
  42.          SetColors(CatSelector)
  43.          Result = CatSelector.ChangeFont(14, "Arial")
  44.          Result = CatSelector.AddButton("...")
  45.  
  46.          SetColors(DownArrow)
  47.          Result = DownArrow.AddGraphButton( 16, 16, "0000000000000000000000001FF80FF007E003C0018000000000000000000000")
  48.  
  49.          InfoHelp.InfoviewName="Microsoft Catalog"
  50.          Call GetRegInfo("<%WinShell.RegKeyName%>")
  51.  
  52.          If PageCount > 0 Then
  53.             Result = CatSelector.ChangeButton(0,NameArray(1))
  54.             parent.view.location.href=(PageArray(1))
  55.          End If
  56.       End Sub
  57.  
  58.       Sub PopMenu_Click( ByVal x )
  59.          Dim Result
  60.          Result = CatSelector.ChangeButton(0,NameArray(X))
  61.          parent.view.location.href = PageArray(x)
  62.       End Sub
  63.  
  64.       Sub CatSelector_Click( Dummy )
  65.          Dim Result
  66.          Result = PopMenu.PopUp(1,18)
  67.       End Sub
  68.  
  69.       Sub DownArrow_Click( Dummy )
  70.          Dim Result
  71.          Result = PopMenu.PopUp(108,18)
  72.       End Sub
  73.  
  74.       Sub GetRegInfo( ByVal Subkey )
  75.          Dim Result, Index, Path
  76.  
  77.          PageCount = InfoHelp.GetWebViewInfo(Subkey + "\Content")
  78.          If PageCount = 0 Then
  79.             Subkey = "*"
  80.             PageCount = InfoHelp.GetWebViewInfo(Subkey + "\Content")
  81.          End If
  82.  
  83.          If PageCount = 0 Then
  84.             Alert("ERROR: Subkey " + Subkey + " doesn't exist")
  85.          Else
  86.             ReDim NameArray(PageCount)
  87.             ReDim PageArray(PageCount)
  88.             ReDim SubkeyArray(PageCount)
  89.  
  90.             WebViewRegFlag = InfoHelp.OutputArray
  91.             WebViewRegKey  = InfoHelp.OutputArray
  92.  
  93.             For Index = 0 To PageCount-1
  94.                If (CStr(WebViewRegFlag(Index))) = 3 Then     ' 3 means it's a subkey
  95.                   SubkeyArray(Index) = WebViewRegKey(Index)
  96.                End If
  97.             Next
  98.             For Index = 0 To PageCount-1
  99.                Path = Subkey + "\Content\" + SubkeyArray(Index) + "\"
  100.                Result = InfoHelp.GetWebViewInfo(Path)
  101.                If Result <> 1 Then
  102.                   Alert("ERROR: Couldn't find friendly name for " + SubkeyArray(Index))
  103.                Else
  104.                   WebViewRegFlag = InfoHelp.OutputArray
  105.                   WebViewRegKey  = InfoHelp.OutputArray
  106.                   NameArray(Index+1) = WebViewRegKey(0)
  107.                   PopMenu.AddItem(WebViewRegKey(0))
  108.                End If
  109.             Next
  110.             For Index = 0 To PageCount-1
  111.                Path = Subkey + "\Content\" + SubKeyArray(Index) + "\Content_HTML"
  112.                Result = InfoHelp.GetWebViewInfo(Path)
  113.                If Result <> 1 Then
  114.                   Alert("ERROR: Couldn't find URL for " + SubkeyArray(Index))
  115.                Else
  116.                   WebViewRegFlag = InfoHelp.OutputArray
  117.                   WebViewRegKey  = InfoHelp.OutputArray
  118.                   PageArray(Index+1) = WebViewRegKey(0)
  119.                End If
  120.             Next
  121.          End If
  122.       End Sub
  123.  
  124.       Sub SetColors( Button )
  125.          Button.BordColor      = "#000000"
  126.          Button.BackColor      = "#669999"
  127.          Button.ForeColor      = "#000000"
  128.          Button.BackHighColor  = "#006666"
  129.          Button.ForeHighColor  = "#FFFFFF"
  130.          Button.BackClickColor = "#000000"
  131.          Button.ForeClickColor = "#FFFFFF"
  132.       End Sub
  133.    </script>
  134. </html>
  135.  
  136.