有没有办法批量删除WIN7任务栏的快捷方式？[已解决]

kuailetiande

有没有办法批量删除WIN7任务栏的快捷方式？在WIN7任务栏加有多个快捷方式，想批量删除，只保留IE跟资源管理器。现在只能一个个的删：ShellExecute(@AppDataDir & '\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Windows Media Player.lnk', '', @AppDataDir & '\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\', 'taskbarunpin')

lixiaolong

回复 1# kuailetiande

试试这个吧，另外我学习了删除WIN7任务栏的快捷方式的方法，谢谢~

;~ #include <Array.au3>
#include <File.au3>

$FilePath = @AppDataDir & '\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar'
$IE = "Internet Explorer.lnk"
$Explorer = "Windows Explorer.lnk"


$TaskBarLnk = _FileListToArray($FilePath, "*.lnk")
;~ _ArrayDisplay($TaskBarLnk)


For $i = 1 To $TaskBarLnk[0]
        If Not (StringInStr($TaskBarLnk[$i], $IE) Or StringInStr($TaskBarLnk[$i], $Explorer)) Then
                ShellExecute($FilePath & "" & $TaskBarLnk[$i], '', $FilePath & "", 'taskbarunpin')
        EndIf
Next

kuailetiande

回复 2# lixiaolong
测试成功，谢谢！

kuailetiande

回复 2# lixiaolong


    碰到了一个问题，如果在任务栏上没有IE跟资源管理器的话 就会提示出错，有没有办法让他判断下呢？

lixiaolong

回复 4# kuailetiande

多看帮助文档，明白了你就更喜欢autoit了~

#include <File.au3>

$FilePath = @AppDataDir & '\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar'
$IE = "Internet Explorer.lnk"
$Explorer = "Windows Explorer.lnk"


$TaskBarLnk = _FileListToArray($FilePath, "*.lnk")
If @error = 4 Then
        MsgBox(0, "", "未发现文件.")
Else
        For $i = 1 To $TaskBarLnk[0]
                If Not (StringInStr($TaskBarLnk[$i], $IE) Or StringInStr($TaskBarLnk[$i], $Explorer)) Then
                        MsgBox(0, '', $FilePath & "" & $TaskBarLnk[$i] & " " & $FilePath & "" & 'taskbarunpin')
                EndIf
        Next
EndIf


;~ _FileListToArray
;~ 创建指定文件夹的文件 和\或 文件夹清单数组(类似于使用 Dir /B 开关)


;~  #include <File.au3>
;~ _FileListToArray ( $sFilePath [, $sFilter = "*" [, $iFlag = 0 [, $fReturnPath = False]]] )


;~ 参 数
;~ $sFilePath 生成文件清单的文件夹路径. 
;~ $sFilter [可选] 使用的过滤器, 默认为 *.
;~ 使用"通配符"在本帮助文档搜索关于通配符的详细资料. 
;~ $iFlag [可选] 指定返回文件或文件夹; 或者两者都返回:
;~     0 = (默认)返回文件和文件夹
;~     1 = 只返回文件
;~     2 = 只返回文件夹 
;~ $fReturnPath [可选] True = 使用完整路径, False = 使用 $sFilePath 的相对路径. 默认值为 False. 

;~ 返 回 值
;~ 成功: 返回如下格式的一维数组.
;~     $aArray[0] = 文件\文件夹数量
;~     $aArray[1] = 第一 文件\文件夹
;~     $aArray[2] = 第二 文件\文件夹
;~     $aArray[3] = 第三 文件\文件夹
;~     $aArray[n] = 第ｎ 文件\文件夹 
;~ 失败: @error 设置 为非 0 值. 
;~ @Error: 1 - 文件夹不存在或无效
;~ 2 - $sFilter 参数值无效
;~ 3 - $iFlag 参数值无效
;~ 4 - 未发现文件 

kuailetiande

回复 5# lixiaolong


    谢谢