home *** CD-ROM | disk | FTP | other *** search
/ Computer Active 2011 August / CA08.iso / Multimedija / SPlayerSetupInt.exe / $TEMP / pin.vbs
Encoding:
Text (UTF-16)  |  2010-12-29  |  1.8 KB  |  20 lines

  1. Set objShell = CreateObject("Shell.Application")
  2. Set filesystem = CreateObject("scripting.Filesystemobject")
  3. Set objFolder = objShell.Namespace(filesystem.GetParentFolderName(Wscript.Arguments(1)))
  4. Set objFolderItem = objFolder.ParseName(filesystem.GetFileName(WScript.Arguments(1)))
  5. Set colVerbs = objFolderItem.Verbs
  6. Dim vname
  7. For Each objVerb in colVerbs
  8.     vname = Replace(objVerb.name, "&", "")
  9.         If Wscript.Arguments(0) = "unpin"  Then
  10.           If InStr(vname , "Unpin") = 1 And InStr(vname , "Taskbar") > 1 Or (InStr(vname , "从任务栏解锁") > 0) Or (InStr(vname , "從工作列取消釘選") > 0)  Then
  11.              objVerb.DoIt
  12.           End If
  13.         Else
  14.           If ( InStr(vname , "Pin") = 1 And InStr(vname , "Taskbar") > 1 ) Or (InStr(vname , "锁定到任务栏") > 0)  Or (InStr(vname , "釘選到工作列") > 0) Then
  15.               If InStr(vname , "Pin") = 1 Then
  16.                 objVerb.DoIt
  17.               End If
  18.           End If
  19.         End If
  20. Next