home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December (Special) / PCWorld_2002-12_Special_cd.bin / Special_komplet / special_komplet.exe / Hide.vbs < prev    next >
Text File  |  2002-01-03  |  692b  |  34 lines
  1. set MyShell = CreateObject("Wscript.Shell")
  2. set MyTasks = CreateObject("pcwHide.pcwHide")
  3.  
  4. do
  5. redim task(400)
  6. redim hidden(400)
  7. liste=""
  8. count=MyTasks.ListAll
  9. for n=0 to ubound(count)-1
  10.     zahl=MyTasks.List
  11.     for z=0 to ubound(zahl)-1
  12.         if count(n)=zahl(z) then 
  13.         hidden(n)=1
  14.         exit for
  15.         end if
  16.  
  17.     Next
  18.     if hidden(n)=1 then
  19.         liste=liste & vbCR & "*" & n & chr(9) & count(n) 
  20.     else
  21.         liste=liste & vbCR & " " & n & chr(9) & count(n) 
  22.     end if
  23. Next
  24.  
  25. i=inputbox(liste, "Stav programu zm∞nφte zadßnφm identifikaΦnφho Φφsla",400)
  26. if i=400 or i ="" then wscript.quit
  27. if hidden(i)=0 then
  28.     action=MyTasks.Hide(count(i))
  29.  
  30. else
  31.     action=MyTasks.Show(count(i))
  32. end if
  33. loop
  34.