kuailetiande 发表于 2014-5-7 17:06:02

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

本帖最后由 kuailetiande 于 2014-5-8 08:51 编辑

有没有办法批量删除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 发表于 2014-5-7 18:26:02

回复 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
        If Not (StringInStr($TaskBarLnk[$i], $IE) Or StringInStr($TaskBarLnk[$i], $Explorer)) Then
                ShellExecute($FilePath & "\" & $TaskBarLnk[$i], '', $FilePath & "\", 'taskbarunpin')
        EndIf
Next

kuailetiande 发表于 2014-5-8 08:50:56

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

kuailetiande 发表于 2014-5-21 12:56:39

回复 2# lixiaolong


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

lixiaolong 发表于 2014-5-21 19:05:51

回复 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
                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 = 文件\文件夹数量
;~   $aArray = 第一 文件\文件夹
;~   $aArray = 第二 文件\文件夹
;~   $aArray = 第三 文件\文件夹
;~   $aArray = 第ｎ 文件\文件夹
;~ 失败: @error 设置 为非 0 值.
;~ @Error: 1 - 文件夹不存在或无效
;~ 2 - $sFilter 参数值无效
;~ 3 - $iFlag 参数值无效
;~ 4 - 未发现文件

kuailetiande 发表于 2014-5-22 09:28:22

回复 5# lixiaolong


    谢谢
页: [1]
查看完整版本: 有没有办法批量删除WIN7任务栏的快捷方式？[已解决]