home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 May / PCWorld_2001-05_cd.bin / Software / Vyzkuste / tiptrik / tiptrik.exe / close.vbs < prev    next >
Text File  |  2000-10-16  |  3KB  |  104 lines
  1. '================================================
  2. dim ordner(40)
  3.  
  4. Set dat = CreateObject("Scripting.FileSystemObject")
  5. Set MyShell=Wscript.CreateObject("Wscript.Shell")
  6. w = WScript.ScriptFullName
  7. Set a = dat.OpenTextFile(w, 1)
  8. Set b = dat.CreateTextFile("c:\$tmp$.BAT", True)
  9.  
  10. do
  11.     n=n+1
  12.     zeile=a.readline
  13.     ordner(n)=mid(zeile,2)
  14. loop until instr(ordner(n),"========")
  15. code=a.readall
  16. a.Close
  17.  
  18. for x = 1 to n - 1
  19.     liste = liste & chr(13) & chr(10) & ordner(x)
  20. next
  21.  
  22. if n > 1 then 
  23.     modus = MyShell.Popup ("Chcete zablokovat dalÜφ slo₧ku?",,"",3)
  24. else 
  25.     modus = 6
  26. end if
  27.  
  28. if modus=2 then 
  29.     wscript.quit
  30. else
  31.     if modus=6 then
  32.         WinDisable
  33.     else
  34.         WinEnable
  35.     end if
  36. end if
  37.  
  38. a.Writeline "'================================================"
  39. a.Write code
  40. a.Close
  41. b.close
  42. MyShell.run "command.com /c c:\$tmp$.BAT",2,True
  43. set del=dat.Getfile("c:\$tmp$.BAT")
  44. del.delete
  45.  
  46. Sub WinDisable()
  47.     Set a = dat.CreateTextFile(w, True)
  48.     for x = 1 to n - 1
  49.         a.writeline "'" & ordner(x)
  50.     next
  51.     do
  52.         verz=inputbox("Zadejte cestu ke slo₧ce, kterou chcete zablokovat" & chr(13) & chr(10) & liste)
  53.         if verz <> "" then 
  54.         on error resume next
  55.             set check=dat.getfolder(verz)
  56.             if err.Number = 0 then
  57.                 a.writeline "'" & verz
  58.                 befehl="ren " & chr(34) & verz & chr(34) & " " & chr(34) & chr(223) & check.name & chr(34)
  59.                 b.writeline befehl
  60.                 liste=liste & chr(13) & chr(10) & verz
  61.             else
  62.                 msgbox "Zadanß slo₧ka neexistuje!"
  63.                 err.clear
  64.             end if
  65.         end if
  66.     loop until verz=""
  67. end sub
  68.  
  69.  
  70. sub WinEnable()
  71.     Set a = dat.CreateTextFile(w, True)
  72.     frei=MyShell.popup("Chcete odblokovat vÜechny chrßn∞nΘ slo₧ky?" & chr(13) & chr(10) & liste,,"",4)
  73.     if frei = 6 then
  74.         for x = 1 to n - 1
  75.             nurname=ordner(x)
  76.             do
  77.                 i=instr(nurname,"\")
  78.                 if i > 0 then nurname=mid(nurname,i+1)
  79.             loop until i=0
  80.             vorne=len(ordner(x))-len(nurname)
  81.             befehl="ren " & chr(34) & left(ordner(x),vorne) & chr(223) & nurname & chr(34) & " " & chr(34) & nurname & chr(34)
  82.             b.writeline befehl
  83.         next
  84.     end if
  85.  
  86.     if frei = 7 then
  87.         for x = 1 to n - 1
  88.             frei=MyShell.popup(ordner(x) & " Odblokovat?",,"",4)
  89.             if frei=7 then a.writeline "'" & ordner(x)
  90.             if frei=6 then 
  91.                 nurname=ordner(x)
  92.                 do
  93.                     i=instr(nurname,"\")
  94.                     if i > 0 then nurname=mid(nurname,i+1)
  95.                 loop until i=0
  96.                 vorne=len(ordner(x))-len(nurname)
  97.                 befehl="ren " & chr(34) & left(ordner(x),vorne) & chr(223) & nurname & chr(34) & " " & chr(34) & nurname & chr(34)
  98.                 b.writeline befehl
  99.             end if
  100.         next
  101.     end if
  102. end sub
  103.  
  104.