home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 March / PCWorld_2003-03_cd.bin / Software / Vyzkuste / prakticketipyprowindows / soft3_2003.exe / DELMRU.HTA < prev    next >
Text File  |  2003-01-19  |  6KB  |  142 lines
  1. <HTML>
  2.  <HEAD>
  3.   <TITLE>Skript PC WORLDu: ┌klid v historii polo₧ky Spustit</TITLE>
  4.   <HTA:APPLICATION ID="hta3" 
  5.     APPLICATIONNAME="KillMRU" 
  6.     SELECTION="NO"
  7.     CAPTION="yes"
  8.     SHOWINTASKBAR="yes"
  9.     SYSMENU="yes"
  10.     WINDOWSTATE="normal"
  11.     SINGLEINSTANCE="yes"
  12.     CONTEXTMENU = "no"
  13.     SYSMENU = "no">
  14.    
  15.    <STYLE type="text/css">
  16.    
  17. body {    scrollbar-arrow-color: #000000;
  18.         scrollbar-base-color: #003300;
  19.         scrollbar-dark-shadow-color: #999900;
  20.         scrollbar-track-color: #557755;
  21.         scrollbar-face-color: #AABBAA;
  22.         scrollbar-shadow-color: #DDDDDD;
  23.         scrollbar-highlight-color: #CCCCCC;
  24.         scrollbar-3d-light-color: #003300;
  25.         font-family:Verdana;
  26.         font-style:normal;
  27.         font-size:12;
  28.         background-color:Buttonface}
  29.  
  30. .fading    {font-size:14px;
  31.         background-color:#003159;
  32.         color:white;width:400;
  33.         filter:Alpha(style=1, opacity=90, startx=83, finishx=86)
  34.  
  35.    </STYLE>
  36.    <SCRIPT LANGUAGE=vbscript>
  37.  
  38. '|--------------------------------------------------------------------------------------------------|'
  39.     Dim WSHShell, oFS, Windir, Env, IntervalID
  40.     Dim MRUArray(25, 1)
  41.     Set WSHShell = CreateObject("WScript.Shell")
  42.     Set oFS = CreateObject("Scripting.FileSystemObject")
  43.     Set Env = WSHShell.Environment("PROCESS")
  44.     winverz=lcase(env("windir"))
  45.  
  46.  
  47.     Alefbet = "abcdefghijklmnopqrstuvwxyz"
  48.     n=0 : Do
  49.     
  50.     MRUArray(n,0) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\" & Mid(Alefbet,n+1,1)
  51.     n = n + 1 :    loop until n=25
  52. '|--------------------------------------------------------------------------------------------------|'
  53.     Sub SubInit_Fenster
  54.         self.resizeTo 448,444
  55.         
  56.         If oFS.FileExists(winverz & "\kill.exe") Then
  57.             document.all.KillButton.innerHTML="<Input Type=button value=" & Chr(34) & "KILL Explorer" & Chr(34) & " Size=32 onClick=" & Chr(34) & "SubKillExplorer "& Chr(34) &">"
  58.         End If
  59.  
  60.         n = 0 :    do
  61.             
  62.             If KeyExists(MRUArray(n,0)) Then MRUArray(n,01) = WSHShell.RegRead(MRUArray(n,00))
  63.         n = n + 1 : Loop until n=25
  64.         n = 0 :    Do
  65.             If Not MRUArray(n,01) = "" Then
  66.     
  67.                 HTMLzeug = "<DIV ID=ColorSel" & n & " Title=" & Chr(34) & MRUArray(n,00) & Chr(34) &"><INPUT type=checkbox name=SelRUN" & n & " Title=" & Chr(34) & MRUArray(n,00) & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & Mid(MRUArray(n,01),1,Len(MRUArray(n,01))-2) & "</DIV>"
  68.                 StrDIVData = StrDIVData & HTMLzeug
  69.             End If
  70.         n = n +  1 : Loop until n=25 
  71.         document.all.tableRegKey.innerHTML = StrDIVData
  72.     End Sub
  73. '|--------------------------------------------------------------------------------------------------|'
  74.     Sub SubHilfe
  75.         Set HilfeWindow = window.open("","Nßpov∞da","scrollbars=yes,menubar=yes,toolbar=yes,location=no,resizable=yes,titlebar=yes,width=400,height=460")
  76.         HilfeWindow.ResizeTo 400, 450
  77.         HilfeWindow.Moveto 40, 40
  78.         HilfeWindow.document.write("<HTML><BODY><P><H1>Nßpov∞da</H1></P><P><H2>Skript PC WORLDu: ┌klid v historii polo₧ky Spustit</H2></P><P>Vyberte klepnutφm jednu Φi vφce polo₧ek. OznaΦenΘ polo₧ky m∙₧ete odstranit prost°ednictvφm tlaΦφtka "Smazat vybranΘ" . Aby se provedenΘ zm∞ny projevily, je t°eba znovu spustit program Explorer. To se dß provΘst bu∩ restartem poΦφtaΦem, nov²m p°ihlßÜenφm do systΘmu, p°φpadn∞ pomocφ programu KILL.EXE.Zkopφrujte program KILL.EXE do slo₧ky, ve kterΘ mßte nainstalovßna Windows. P°i dalÜφm spuÜt∞nφ skriptu DELMRU.HTA tento automaticky rozpoznß, ₧e tam program KILL.EXE le₧φ a zobrazφ novΘ tlaΦφtko "KILL.EXE" . Klepnutφ na n∞j vyvolß automatick² restart programu Explorer, nebo¥ se vykonß p°φkaz "KILL.EXE /f explorer.exe" </P></BODY></HTML>")
  79.  
  80.     End Sub
  81. '|--------------------------------------------------------------------------------------------------|'
  82.     Sub SubQuit
  83.         Set WSHShell = Nothing
  84.         Window.Close
  85.     End Sub
  86. '|--------------------------------------------------------------------------------------------------|'    
  87.        Sub SubMarkSelection
  88.         on error resume next
  89.         n = 0 : Do    
  90.         If document.all.Item("SelRUN"& n).Checked Then
  91.             document.all.Item("SelRUN" & n).style.backgroundColor="salmon"
  92.             document.all.Item("ColorSel" & n).style.backgroundColor="salmon"
  93.             Else
  94.             document.all.Item("SelRUN" & n).style.backgroundColor=""
  95.             document.all.Item("ColorSel" & n).style.backgroundColor=""
  96.         End If
  97.         n = n +  1 : Loop until n=25 
  98.        End Sub
  99. '|--------------------------------------------------------------------------------------------------|'    
  100.        Sub SubDelKey
  101.            n = 0 :    do
  102.            on error resume next    
  103.         If document.all.Item("SelRUN"& n).Checked = TRUE Then WSHShell.RegDelete(document.all.Item("SelRUN"& n).Title) : window.location.reload
  104.         n = n +  1 : Loop until n=25 
  105.        End Sub
  106. '|--------------------------------------------------------------------------------------------------|'    
  107.        Sub SubKillExplorer
  108.            WSHShell.Run winverz & "\kill.exe /f explorer.exe"
  109.            IntervalID=window.setInterval("SubRestart()", 1000)
  110.     End Sub
  111.     
  112.     Sub SubRestart
  113.         window.clearInterval(IntervalID)
  114.         WSHShell.Run winverz & "\explorer.exe"
  115.     End Sub 
  116. '|--------------------------------------------------------------------------------------------------|'
  117.  
  118.     Function KeyExists(key)
  119.         On Error Resume Next
  120.         Wert = WSHShell.RegRead(key)
  121.         If err.Number=0 Then
  122.             KeyExists = True
  123.         Else
  124.             KeyExists = False
  125.         err.Clear
  126.         End If
  127.     End Function
  128. '|--------------------------------------------------------------------------------------------------|
  129.  
  130.    </SCRIPT>
  131.   </HEAD>
  132.   <BODY onload="SubInit_Fenster">
  133.   <SPAN Class=fading><B>Skript PC WORLDu: ┌klid v polo₧ce Spustit</B></SPAN>
  134.    <HR style=" & Chr(34) & "height:5px; color:black" & Chr(34) &">
  135.    <DIV ID=tableRegKey></DIV>
  136.    <HR style=" & Chr(34) & "height:5px; color:black" & Chr(34) &"></BR>
  137.    <INPUT Type=button value="Smazat vybranΘ" onClick="SubDelKey">
  138.    <INPUT Type=button value="Konec" Size=32 onClick="SubQuit">
  139.    <INPUT Type=button value="Nßpov∞da" Size=32 onClick="SubHilfe">
  140.    <Span ID=KillButton></Span>
  141.  </BODY>
  142. </HTML>