中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [原创] 检测IE收藏夹链接文件是否失效批处理
作者:
标题: [原创] 检测IE收藏夹链接文件是否失效批处理 上一主题 | 下一主题
clian76
中级用户





积分 363
发帖 162
注册 2007-4-22
状态 离线
『楼 主』:  [原创] 检测IE收藏夹链接文件是否失效批处理 使用 LLM 解释/回答一下

@echo off
title 收藏夹链接测试器
echo.&echo by:clamber QQ:282959030 CMD@XP 2008/05/29
echo ──────────────────────────────────────
for /f "tokens=2 delims=:" %%i in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v Favorites') do (set favor2=%%i)
for /f "tokens=1 delims=:" %%i in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" /v Favorites') do (set favor1=%%i)
echo.&echo 当前的收藏夹所在位置是,默认位置。&echo.
set setpath=%favor1:~-1,1%:%favor2%
set/p setpath= 指定新的位置:
cd/d %setpath%
if not exist "%favor1:~-1,1%:%favor2%\失效的链接" md "%favor1:~-1,1%:%favor2%\失效的链接"

for /f "tokens=1 delims=" %%i in ('dir/a-d/b/d/s *.url') do (
type "%%i" | findstr /i /b "url=">"%temp%\url.txt"
for /f "tokens=2 delims=//" %%a in ('type "%temp%\url.txt"') do (
for /f "tokens=1 delims=/" %%j in ("%%a") do (
set urlfile=%%i
set url=%%j
call :pingurl
)
)
)
del/q/f "%temp%\url.txt">nul 2>nul
echo.&echo 提示:失效的网页链接已转到
echo.&echo 全部完成! 任意键退出。。。
pause>nul
exit

:pingurl
ping -a -l 4 -n 1 %url% | findstr /i /b "pinging">nul
if %errorlevel% EQU 1 (
move "%urlfile%" "%favor1:~-1,1%:%favor2%\失效的链接">nul
echo 文件:"%urlfile:~,-4%"
echo ?URL: %url%
echo → ×链接失效!
) else (
echo 文件:"%urlfile:~,-4%"
echo 地址: %url%
echo → √链接正常!
)
goto :eof

--------------------------------------------------------------------------------------------------------
问题是,上面的代码检测INTERNET快捷方式PING得有点慢,如果收藏网页多的话要等很久才检测完。请问:有没有办法让检测速度变快?

Last edited by clian76 on 2008-5-30 at 12:29 PM ]


2008-5-30 12:00
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
radem
高级用户

CMD感染者


积分 691
发帖 383
注册 2008-5-23
状态 离线
『第 2 楼』:   使用 LLM 解释/回答一下

能用吗
帮顶下...




2008-5-30 19:14
查看资料  发短消息  网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: