home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 July & August / PCWorld_2003-07-08_cd.bin / Software / Vyzkuste / prepinace / prepinace.exe / extratool.hta next >
Text File  |  2003-05-22  |  10KB  |  233 lines
  1. <HTML>
  2.  <HEAD>
  3.   <TITLE>Skript PC WORLDu:RozÜφ°enφ Internet Exploreru</TITLE>
  4.   <HTA:APPLICATION ID="hta3" 
  5.     APPLICATIONNAME="IE-Extension" 
  6.     BORDER="dialog"
  7.     BORDERSTYLE="complex"
  8.     CAPTION="yes"
  9.     SHOWINTASKBAR="yes"
  10.     SYSMENU="yes"
  11.     INNERBORDER = "no"
  12.     MAXIMIZEBUTTON = "no"
  13.     MINIMIZEBUTTON = "no"
  14.     WINDOWSTATE="normal"
  15.     SINGLEINSTANCE="yes"
  16.     CONTEXTMENU = "no"
  17.     SYSMENU = "no">
  18.    
  19.    <STYLE type="text/css">
  20.    
  21. body {    scrollbar-arrow-color: #000000;
  22.         font-family:Verdana;
  23.         font-style:normal;
  24.         font-size:12;
  25.         background-color:Buttonface}
  26.  
  27. .fading    {font-size:14px;
  28.         background-color:#003159;
  29.         color:white;width:400;
  30.         filter:Alpha(style=1, opacity=90, startx=93, finishx=116)
  31.  
  32.    </STYLE>
  33.    <SCRIPT LANGUAGE=vbscript>
  34.  
  35. '|--------------------------------------------------------------------------------------------------|'
  36.  
  37. Dim myfiles, myshell
  38. Set myfiles = CreateObject("Scripting.FileSystemObject")
  39. Set myshell = CreateObject("Wscript.Shell")
  40.  
  41. '|--------------------------------------------------------------------------------------------------|'
  42.  
  43. Sub SubInitFenster
  44. on error resume next
  45. dim n, f
  46. f = 0
  47. n = 85277
  48. do
  49.     MyMenu = ""
  50.     MyMenu = MyShell.RegRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{B73455AE-D3DE-492a-8FE0-0EA053B" & n & "}\MenuStatusBar")
  51.     if not MyMenu = "" then    
  52.         liste = liste & "<DIV ID=ColorSel" & f & " Title=" & Chr(34) & MyMenu & Chr(34) &"><INPUT type=checkbox name=Selmenu" & f & " Title=" & Chr(34) & MyMenu & chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MyMenu & "</DIV>"
  53.         f = f+1
  54.     end if
  55.     n = n+1
  56. loop until n = 85307
  57.     
  58. if f = 1 then
  59.     text = " polo₧ka nalezena"
  60. else
  61.     text = " polo₧ek nalezeno"
  62. end if
  63.  
  64. document.all.tableRegKey.innerHTML = Liste & "<DIV ID=Counter Title=" & f & "> " & f & text & "</DIV>"
  65. x = f*20+315
  66. if x > 500 then
  67.     x = 500
  68. end if
  69. window.resizeTo 500, x
  70. subsetoptions
  71. End Sub
  72.  
  73. '|--------------------------------------------------------------------------------------------------|'
  74.  
  75. Sub SubDel
  76. m = 0 
  77. zahl = document.all.Item("Counter").Title
  78.  
  79. do
  80. If document.all.Item("Selmenu"& m).Checked Then
  81.     MyShell.RegDelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{B73455AE-D3DE-492a-8FE0-0EA053B" & m+85277 & "}\"
  82. end if
  83. m = m+1
  84. loop until zahl - m = 0
  85.  
  86. SubInitFenster
  87. End Sub
  88.  
  89.  
  90. '|--------------------------------------------------------------------------------------------------|'
  91.  
  92. Sub SubMarkSelection
  93.     on error resume next
  94.     m = 0 
  95.     zahl = document.all.Item("Counter").Title
  96.         
  97.     do
  98.     If document.all.Item("Selmenu"& m).Checked Then
  99.         document.all.Item("Selmenu" & m).style.backgroundColor="salmon"
  100.         document.all.Item("ColorSel" & m).style.backgroundColor="salmon"
  101.     Else
  102.         document.all.Item("Selmenu" & m).style.backgroundColor=""
  103.         document.all.Item("ColorSel" & m).style.backgroundColor=""
  104.     End If
  105.     m = m+1
  106.     loop until zahl - m = 0
  107. End Sub
  108.  
  109. '|--------------------------------------------------------------------------------------------------|'
  110.  
  111. Sub SubNewEntry
  112. on error resume next
  113. Index = 85277
  114. do
  115.     MyMenu = ""
  116.     MyMenu = MyShell.RegRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{B73455AE-D3DE-492a-8FE0-0EA053B" & Index & "}\MenuStatusBar")
  117.     Index = Index + 1
  118.     if Index = 85308 then
  119.         msgbox "U₧ nenφ mo₧nΘ zadßvat dalÜφ polo₧ky"
  120.         exit Sub
  121.     end if
  122. Loop until MyMenu = ""
  123. Index = Index - 1
  124. If document.all.Item("Command").Value = "" then
  125.     msgbox "Zadejte prosφm platn² p°φkazov² °ßdek"
  126.     exit Sub
  127. elseif document.all.Item("MenuText").Value = "" then
  128.     msgbox "Zadejte prosφm nßzev pro vytvß°enou polo₧ku"
  129.     exit Sub
  130. end if
  131.  
  132. if document.all.Where(1).Checked then
  133.     MyShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{B73455AE-D3DE-492a-8FE0-0EA053B" & Index & "}\MenuCustomize", "help", "REG_SZ"
  134. end if
  135.  
  136. if document.all.What(0).Checked then
  137.     MyShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{B73455AE-D3DE-492a-8FE0-0EA053B" & Index & "}\MenuText", MenuText.Value, "REG_SZ"
  138. elseif document.all.What(1).Checked then
  139.     MyShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{B73455AE-D3DE-492a-8FE0-0EA053B" & Index & "}\ButtonText", MenuText.Value, "REG_SZ"
  140.     MyShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{B73455AE-D3DE-492a-8FE0-0EA053B" & Index & "}\HotIcon", Icon.Value, "REG_SZ"
  141.     MyShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{B73455AE-D3DE-492a-8FE0-0EA053B" & Index & "}\Icon", Icon.Value, "REG_SZ"
  142. end if
  143.  
  144. MyShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{B73455AE-D3DE-492a-8FE0-0EA053B" & Index & "}\Exec", Command.Value, "REG_SZ"
  145. MyShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{B73455AE-D3DE-492a-8FE0-0EA053B" & Index & "}\MenuStatusBar", MenuText.Value, "REG_SZ"
  146. MyShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{B73455AE-D3DE-492a-8FE0-0EA053B" & Index & "}\CLSID", "{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}", "REG_SZ"
  147. MyShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{B73455AE-D3DE-492a-8FE0-0EA053B" & Index & "}\Default Visible", "yes", "REG_SZ"
  148. SubInitFenster
  149. end Sub
  150.  
  151. '|--------------------------------------------------------------------------------------------------|'
  152. Sub SubExplore
  153.  
  154. myShell.Run "Iexplore.exe"
  155.  
  156. end Sub
  157.  
  158. '|--------------------------------------------------------------------------------------------------|'
  159.  
  160. Sub SubSetOptions
  161.  
  162. if document.all.What(1).Checked then
  163.     Document.all.Where(0).filters.Item(0).Apply()
  164.     Document.all.Where(0).style.visibility="hidden"
  165.         Document.all.Where(0).filters.Item(0).play(0.250)
  166.         Document.all.txt1.filters.Item(0).Apply()
  167.         Document.all.txt1.style.color="gainsboro"
  168.         Document.all.txt1.filters.Item(0).play(0.250) 
  169.         Document.all.Where(1).filters.Item(0).Apply()
  170.     Document.all.Where(1).style.visibility="hidden"
  171.         Document.all.Where(1).filters.Item(0).play(0.250)
  172.         Document.all.txt2.filters.Item(0).Apply()
  173.         Document.all.txt2.style.color="gainsboro"
  174.         Document.all.txt2.filters.Item(0).play(0.250) 
  175.         Document.all.Icon.filters.Item(0).Apply()
  176.     Document.all.Icon.style.visibility="visible"
  177.         Document.all.Icon.filters.Item(0).play(0.250)
  178.         Document.all.txt3.filters.Item(0).Apply()
  179.         Document.all.txt3.style.color="black"
  180.         Document.all.txt3.filters.Item(0).play(0.250)     
  181. elseif document.all.What(0).Checked then
  182.     Document.all.Where(0).filters.Item(0).Apply()
  183.     Document.all.Where(0).style.visibility="visible"
  184.         Document.all.Where(0).filters.Item(0).play(0.250)
  185.         Document.all.txt1.filters.Item(0).Apply()
  186.         Document.all.txt1.style.color="black"
  187.         Document.all.txt1.filters.Item(0).play(0.250) 
  188.         Document.all.Where(1).filters.Item(0).Apply()
  189.     Document.all.Where(1).style.visibility="visible"
  190.         Document.all.Where(1).filters.Item(0).play(0.250)
  191.         Document.all.txt2.filters.Item(0).Apply()
  192.         Document.all.txt2.style.color="black"
  193.         Document.all.txt2.filters.Item(0).play(0.250) 
  194.         Document.all.Icon.filters.Item(0).Apply()
  195.     Document.all.Icon.style.visibility="hidden"
  196.         Document.all.Icon.filters.Item(0).play(0.250)
  197.         Document.all.txt3.filters.Item(0).Apply()
  198.         Document.all.txt3.style.color="gainsboro"
  199.         Document.all.txt3.filters.Item(0).play(0.250)   
  200. end if
  201. end Sub
  202.  
  203. '|--------------------------------------------------------------------------------------------------|'
  204. Sub SubQuit
  205.     Set myshell = Nothing
  206.     Set myfiles = Nothing
  207.     Window.Close
  208. End Sub
  209.  
  210. '|--------------------------------------------------------------------------------------------------|'
  211.  
  212.   </SCRIPT>
  213.   </HEAD>
  214.     <BODY onload="SubInitFenster" scroll="yes">
  215.   <SPAN Class=fading><B>Skript PC WORLDu:RozÜφ°enφ Internet Exploreru</B></SPAN>
  216.    <HR style=" & Chr(34) & "height:5px; color:black" & Chr(34) &">
  217.    <DIV ID=tableRegKey></DIV>
  218.    <HR style=" & Chr(34) & "height:5px; color:black" & Chr(34) &"></BR>
  219.    <INPUT Type=radio name=What Title="Menu" onClick="SubSetOptions()" CHECKED> Vytvo°it novou polo₧ku menu</BR>
  220.    <INPUT Type=radio name=What Title="Toolbar" onClick="SubSetOptions()"> Vytvo°it novΘ tlaΦφtko</BR>
  221.    <INPUT Type=radio name=Where value=ON Title="Tool" Style="filter:blendTrans"><SPAN ID="txt1" Style="filter:blendTrans">Vytvo°it novou polo₧ku v menu Nßstroje</SPAN></BR>
  222.    <INPUT Type=radio name=Where value=ON Title="Help" Style="filter:blendTrans"><SPAN ID="txt2" Style="filter:blendTrans">Vytvo°it novou polo₧ku v menu Nßpov∞da</SPAN></BR>
  223.    <INPUT TYPE=text VALUE="" NAME="MenuText" SIZE=40> Nßzev polo₧ky</BR>
  224.    <INPUT TYPE=text VALUE="" NAME="Command" SIZE=40> P°φkazov² °ßdek</BR>
  225.    <INPUT TYPE=text VALUE= "shell32.dll,1" NAME="Icon" SIZE=40 Style="filter:blendTrans"><SPAN ID="txt3" Style="filter:blendTrans"> Cesta k souboru ikony</SPAN></BR>
  226.    <INPUT Type=button value="Vytvo° polo₧ku" name=button1 size=102 onClick="SubNewEntry">
  227.    <INPUT Type=button value="Odstranit" name=button2 size=52 onClick="SubDel">
  228.    <INPUT Type=button value="Internet Explorer" name=button3 size=52 onClick="SubExplore">
  229.    <INPUT Type=button value="Konec" name=button4 size=52 onClick="SubQuit">
  230.  
  231.    <Span ID=KillButton></Span>
  232.  </BODY>
  233. </HTML>