home *** CD-ROM | disk | FTP | other *** search
/ PC World 2004 December (Special) / PCWorld_2004-12_Special_cd.bin / Windows / komfort / komfort.exe / PCWJpFld.VBS < prev    next >
Encoding:
Text File  |  2004-02-19  |  8.6 KB  |  228 lines
  1. Set MyShell = CreateObject("Wscript.Shell")
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. Set Appshell = CreateObject("Shell.Application")
  4. Set Schalter=wscript.arguments
  5. Set umgebung=MyShell.Environment("PROCESS")
  6.  
  7. windir=umgebung("windir")
  8.  
  9. neu="wscript.exe " & windir & "\PCWjpFld.vbs "
  10. On Error Resume Next
  11. OL=""
  12. mode=Schalter(0)
  13. installpath=windir & "\PCWjpFld.VBS"
  14. If mode = "" then 
  15.     a = myshell.regread("HKCR\*\shell\=> Vybrat slo₧ku\command\")
  16.     If a = "" Then
  17.         a = myshell.regread("HKCR\*\shell\=> Zav°φt seznam\command\")
  18.         If a = "" Then
  19.             pcwscript=wscript.scriptfullname
  20.             Set pcwcopy=MyFiles.GetFile(pcwscript)
  21.             pcwcopy.copy(installpath)
  22.             myshell.regwrite("HKCR\*\shell\=> Vybrat slo₧ku\command\"), neu & "-max"
  23.             myshell.regwrite("HKCR\Directory\shell\=> Vybrat slo₧ku\command\"), neu & "-max"
  24.             msgbox "Utilita byla nainstalovßna"
  25.             wscript.quit
  26.         Else
  27.             myshell.regdelete("HKCR\*\shell\=> Zav°φt seznam\command\")
  28.             myshell.regdelete("HKCR\*\shell\=> Zav°φt seznam\")
  29.             myshell.regdelete("HKCR\*\shell\=> P°idat odkaz na slo₧ku \command\")
  30.             myshell.regdelete("HKCR\*\shell\=> P°idat odkaz na slo₧ku \")
  31.             myshell.regdelete("HKCR\Directory\shell\=> Zav°φt seznam\command\")
  32.             myshell.regdelete("HKCR\Directory\shell\=> Zav°φt seznam\")
  33.             myshell.regdelete("HKCR\Directory\shell\=> P°idat odkaz na slo₧ku \command\")
  34.             myshell.regdelete("HKCR\Directory\shell\=> P°idat odkaz na slo₧ku \")
  35.             Weg=Myfiles.Deletefile(installpath, true)
  36.             OL = myshell.regread("HKCU\Software\PCW \jumpfolder\")
  37.             If not OL ="" then
  38.                 n=0
  39.                 m=0
  40.                 Do
  41.                 Komma = InStr(n+1, OL, ",")
  42.                 Verz = Mid(OL, n+1, Komma-n-1)
  43.                 n = Komma
  44.                 m=m+1
  45.                 ReDim Ver(m)
  46.                 Ver(m) = Verz
  47.                 BBB=Mid(Ver(m), 2, Len(Ver(m))-2)
  48.                 If Len(Ver(m))=5 Then
  49.                     Basis=Mid(BBB, 1, Len(BBB)-1)
  50.                 Else
  51.                     Basis = MyFiles.GetFilename(BBB)
  52.                 End If
  53.                 myshell.regdelete("HKCR\*\shell\" & " " & Basis & "\command\")
  54.                 myshell.regdelete("HKCR\*\shell\" & " " & Basis & "\")
  55.                 myshell.regdelete("HKCR\Directory\shell\" & " " & Basis & "\command\")
  56.                 myshell.regdelete("HKCR\Directory\shell\" & " " & Basis & "\")
  57.                 Loop Until n = Len(OL)
  58.             myshell.regdelete("HKCU\Software\PCW \jumpfolder\")
  59.             myshell.regdelete("HKCR\*\shell\=> Odstranit odkaz na slo₧ku \command\")
  60.             myshell.regdelete("HKCR\*\shell\=> Odstranit odkaz na slo₧ku \")
  61.             myshell.regdelete("HKCR\Directory\shell\=> Odstranit odkaz na slo₧ku \command\")
  62.             myshell.regdelete("HKCR\Directory\shell\=> Odstranit odkaz na slo₧ku \")
  63.             Else
  64.             myshell.regdelete("HKCR\*\shell\=> Odstranit odkaz na slo₧ku \command\")
  65.             myshell.regdelete("HKCR\*\shell\=> Odstranit odkaz na slo₧ku \")
  66.             myshell.regdelete("HKCR\Directory\shell\=> Odstranit odkaz na slo₧ku \command\")
  67.             myshell.regdelete("HKCR\Directory\shell\=> Odstranit odkaz na slo₧ku \")
  68.             End If
  69.             msgbox "Utilita byla odinstalovßna"
  70.             wscript.quit
  71.         End If
  72.     Else
  73.         myshell.regdelete("HKCR\*\shell\=> Vybrat slo₧ku\command\")
  74.         myshell.regdelete("HKCR\*\shell\=> Vybrat slo₧ku\")
  75.         myshell.regdelete("HKCR\Directory\shell\=> Vybrat slo₧ku\command\")
  76.         myshell.regdelete("HKCR\Directory\shell\=> Vybrat slo₧ku\")
  77.         myshell.regdelete("HKCU\Software\PCW \jumpfolder\")
  78.         Weg=Myfiles.Deletefile(installpath, true)
  79.         msgbox "Utilita byla odinstalovßna"
  80.         wscript.quit
  81.     End if
  82.     
  83. end if
  84.  
  85. Select case mode
  86.  
  87.     Case "-max"
  88.     OL = myshell.regread("HKCU\Software\PCW \jumpfolder\")
  89.     myshell.regdelete("HKCR\*\shell\=> Vybrat slo₧ku\command\")
  90.     myshell.regdelete("HKCR\*\shell\=> Vybrat slo₧ku\")
  91.     myshell.regwrite("HKCR\*\shell\=> Zav°φt seznam\command\"), neu & "-min"
  92.     myshell.regwrite("HKCR\*\shell\=> Zav°φt seznam\")
  93.     myshell.regwrite("HKCR\*\shell\=> P°idat odkaz na slo₧ku \command\"), neu & "-plus"
  94.     myshell.regdelete("HKCR\Directory\shell\=> Vybrat slo₧ku\command\")
  95.     myshell.regdelete("HKCR\Directory\shell\=> Vybrat slo₧ku\")
  96.     myshell.regwrite("HKCR\Directory\shell\=> Zav°φt seznam\command\"), neu & "-min"
  97.     myshell.regwrite("HKCR\Directory\shell\=> Zav°φt seznam\")
  98.     myshell.regwrite("HKCR\Directory\shell\=> P°idat odkaz na slo₧ku \command\"), neu & "-plus"
  99.     If not OL = "" Then
  100.         myshell.regwrite("HKCR\*\shell\=> Odstranit odkaz na slo₧ku \command\"), neu & "-minus"
  101.         myshell.regwrite("HKCR\Directory\shell\=> Odstranit odkaz na slo₧ku \command\"), neu & "-minus"
  102.         n=0
  103.         m=0
  104.         Do
  105.         Komma = InStr(n+1, OL, ",")
  106.         Verz = Mid(OL, n+1, Komma-n-1)
  107.         n = Komma
  108.         m=m+1
  109.         ReDim Ver(m)
  110.         Ver(m) = Verz
  111.         BBB=Mid(Ver(m), 2, Len(Ver(m))-2)
  112.         If Len(Ver(m))=5 Then
  113.             Basis=Mid(BBB, 1, Len(BBB)-1)
  114.         Else
  115.             Basis = MyFiles.GetFilename(BBB)
  116.         End If
  117.         myshell.regwrite("HKCR\*\shell\" & " " & Basis & "\command\"), neu & Ver(m)
  118.         myshell.regwrite("HKCR\Directory\shell\" & " " & Basis & "\command\"), neu & Ver(m)
  119.         Loop Until n = Len(OL)
  120.     Else
  121.         myshell.regdelete("HKCR\*\shell\=> Odstranit odkaz na slo₧ku \command\")
  122.         myshell.regdelete("HKCR\*\shell\=> Odstranit odkaz na slo₧ku \")
  123.         myshell.regdelete("HKCR\Directory\shell\=> Odstranit odkaz na slo₧ku \command\")
  124.         myshell.regdelete("HKCR\Directory\shell\=> Odstranit odkaz na slo₧ku \")
  125.     End If
  126.     myshell.Sendkeys "+{F10}"
  127.         
  128.     Case "-min"
  129.     myshell.regwrite("HKCR\*\shell\=> Vybrat slo₧ku\command\"), neu & "-max"
  130.     myshell.regwrite("HKCR\Directory\shell\=> Vybrat slo₧ku\command\"), neu & "-max"
  131.     OL = myshell.regread("HKCU\Software\PCW \jumpfolder\")
  132.     If not OL ="" then
  133.         n=0
  134.         m=0
  135.         Do
  136.         Komma = InStr(n+1, OL, ",")
  137.         Verz = Mid(OL, n+1, Komma-n-1)
  138.         n = Komma
  139.         m=m+1
  140.         ReDim Ver(m)
  141.         Ver(m) = Verz
  142.         BBB=Mid(Ver(m), 2, Len(Ver(m))-2)
  143.         If Len(Ver(m))=5 Then
  144.             Basis=Mid(BBB, 1, Len(BBB)-1)
  145.         Else
  146.             Basis = MyFiles.GetFilename(BBB)
  147.         End If
  148.         myshell.regdelete("HKCR\*\shell\" & " " & Basis & "\command\")
  149.         myshell.regdelete("HKCR\*\shell\" & " " & Basis & "\")
  150.         myshell.regdelete("HKCR\Directory\shell\" & " " & Basis & "\command\")
  151.         myshell.regdelete("HKCR\Directory\shell\" & " " & Basis & "\")
  152.         Loop Until n = Len(OL)
  153.         myshell.regdelete("HKCR\*\shell\=> Odstranit odkaz na slo₧ku \command\")
  154.         myshell.regdelete("HKCR\*\shell\=> Odstranit odkaz na slo₧ku \")
  155.         myshell.regdelete("HKCR\Directory\shell\=> Odstranit odkaz na slo₧ku \command\")
  156.         myshell.regdelete("HKCR\Directory\shell\=> Odstranit odkaz na slo₧ku \")
  157.     End If
  158.     myshell.regdelete("HKCR\*\shell\=> Zav°φt seznam\command\")
  159.     myshell.regdelete("HKCR\*\shell\=> Zav°φt seznam\")
  160.     myshell.regdelete("HKCR\*\shell\=> P°idat odkaz na slo₧ku \command\")
  161.     myshell.regdelete("HKCR\*\shell\=> P°idat odkaz na slo₧ku \")
  162.     myshell.regdelete("HKCR\Directory\shell\=> Zav°φt seznam\command\")
  163.     myshell.regdelete("HKCR\Directory\shell\=> Zav°φt seznam\")
  164.     myshell.regdelete("HKCR\Directory\shell\=> P°idat odkaz na slo₧ku \command\")
  165.     myshell.regdelete("HKCR\Directory\shell\=> P°idat odkaz na slo₧ku \")
  166.     wscript.quit
  167.             
  168.     Case "-plus"
  169.     Set AppFolder = Appshell.BrowseForFolder(0, "",  &H0001, 17)
  170.     Ordner = AppFolder.ParentFolder.ParseName(AppFolder.Title).Path
  171.     If err.number > 0 then 
  172.         i=instr(AppFolder, ":")
  173.         Ordner = mid(AppFolder, i - 1, 1) & ":\"
  174.     End If
  175.     If Ordner="" Then
  176.         myshell.run neu & "-min"
  177.         wscript.quit
  178.     End if
  179.     rest = myshell.regread("HKCU\Software\PCW \jumpfolder\")
  180.     myshell.regwrite("HKCU\Software\PCW \jumpfolder\"), rest & Chr(34) & Ordner & Chr(34) & ","
  181.     myshell.run neu & "-max"
  182.     
  183.     Case "-minus"
  184.     OL = myshell.regread("HKCU\Software\PCW \jumpfolder\")
  185.     If not OL ="" then
  186.         n=0
  187.         m=0
  188.         Do
  189.         Komma = InStr(n+1, OL, ",")
  190.         Verz = Mid(OL, n+1, Komma-n-1)
  191.         n = Komma
  192.         m=m+1
  193.         ReDim Ver(m)
  194.         Ver(m) = Verz
  195.         BBB=Mid(Ver(m), 2, Len(Ver(m))-2)
  196.         If Len(Ver(m))=5 Then
  197.             Basis=Mid(BBB, 1, Len(BBB)-1)
  198.         Else
  199.             Basis = MyFiles.GetFilename(BBB)
  200.         End If
  201.         lsch = MsgBox("Chcete smazat polo₧ku " & Chr(34) & Basis & Chr(34) & "?", 4, "Odstranit polo₧ku?")
  202.         If lsch = 6 Then
  203.             myshell.regdelete("HKCR\*\shell\" & " " & Basis & "\command\")
  204.             myshell.regdelete("HKCR\*\shell\" & " " & Basis & "\")
  205.             myshell.regdelete("HKCR\Directory\shell\" & " " & Basis & "\command\")
  206.             myshell.regdelete("HKCR\Directory\shell\" & " " & Basis & "\")
  207.         Else
  208.             Liste = Liste & Ver(m) & ","
  209.         End If
  210.         Loop Until n = Len(OL)
  211.         If Liste = "" Then
  212.             myshell.regdelete("HKCU\Software\PCW \jumpfolder\")    
  213.             deinst = MsgBox("VÜechny odkazy byly odstran∞ny" & VBCR & "Chcete nynφ celou utilitu odinstalovat?", 4, "Odinstalovat utilitu?")
  214.             If deinst = 6 Then
  215.                 myshell.run neu
  216.                 wscript.quit
  217.             End If
  218.         Else
  219.             myshell.regwrite("HKCU\Software\PCW \jumpfolder\"), Liste
  220.         End if
  221.     End if    
  222.     myshell.run neu & "-max"
  223.     
  224.     Case Else
  225.     myshell.run Chr(34) & Schalter(0) & "\" & Chr(34)
  226.     myshell.run neu & "-min"
  227. End Select
  228.