[网络连接] 批处理打开不带http的网址为何出错？

wh1234567

看到版主Hello123World回复的代码感觉不错，可遗憾的是只支持带有http://的多个网址，
能不能修改成同时支持带有http://和不带有http://的网址？例如：
http://www.bathome.net/
http://www.2345.com
www.baidu.com

@echo off&Setlocal EnableDelayedExpansion
For /f "delims=" %%i in (1.txt) do (
        Start "" "%%i"
        Set /a n+=1
        Set /a a=!n!%%10
        If !a!==0 pause
        )
pause

上面这个批处理如果网址前缀无http://的话就会提示无法打开
Windows 找不到文件 '这里是网址'。请确定文件名是否正确后，再试一次。要搜索文件，请单击「开始」按钮，然后单击“搜索”。
好像只支持带有http://的多个网址，希望高手修改成同时支持带有http://和不带有http://的网址

gawk

start "" "c:\Program Files\Internet Explorer\iexplore.exe" "www.bathome.net"
复制代码

apang

@echo off&Setlocal EnableDelayedExpansion
For /f "delims=" %%i in (1.txt) do (
        set "aa=%%i"
        if /i not "!aa:~,7!"=="http://" set "aa=http://!aa!"
        Start "" "!aa!"
        Set /a n+=1
        Set /a a=!n!%%10
        If !a!==0 pause
        )
pause
复制代码

试试

wh1234567

回复 3# apang


    嗯，可以执行，我加了个拖拽到界面的功能，但不能执行，不知道如何加个支持路径和文件名中英文和空格的拖拽到界面的功能
set /p ravel=      请输入要执行的TXT文本文件名或直接拖入文件，然后按回车键:
set "ravel=%ravel:"=%"
For /f "delims=" %%i in ('type "%ravel%"') do (......
....

Windows 找不到文件 '!aa!'。请确定文件名是否正确后，再试一次。要搜索文件，请单击「开始」按钮，然后单击“搜索”。

apang

回复 4# wh1234567

你是不是把变量延迟给关了？

@echo off&Setlocal EnableDelayedExpansion
set/p ravel=输入要执行的TXT文件路径及文件名或直接拖入文件，然后回车:
set "ravel=!ravel:"=!"
For /f "usebackq delims=" %%i in ("!ravel!") do (
        set "aa=%%i"
        if /i not "!aa:~,7!"=="http://" set "aa=http://!aa!"
        Start "" "!aa!"
        Set /a n+=1
        Set /a a=!n!%%10
        If !a!==0 pause
)
复制代码

wh1234567

(ping 127.0.0.1 /n 3)>nul
能不能加这个代码？

apang

能，想如何加？
原代码是同时打开10个暂停一次。

wh1234567

回复 7# apang

我怕偶尔打不开网址或在其它电脑上无法使用，所以在For /f "usebackq delims=" %%i in ("!ravel!") 的上面加    (ping 127.0.0.1 /n 3)>nul
不知道有没有必要？
但是提示
'ping' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
(ping 127.0.0.1 /n 3)>nul
这个不知道为什么提示不对？

主命令正常

apang

回复 8# wh1234567

貌似。。。没必要加延时
ping的问题，在另一帖子已有回复。。。

wh1234567

为什么偶尔打不开多个网址，只停留在一个网页上，偶尔如果先手动打开ie后，再运行批处理才能够顺利打开多个网址，不知道是为什么？如何解决

apang

回复 10# wh1234567

哦，这样试试看:

@echo off&Setlocal EnableDelayedExpansion
set/p ravel=输入要执行的TXT文件路径及文件名或直接拖入文件，然后回车:
set "ravel=!ravel:"=!"
For /f "usebackq delims=" %%i in ("!ravel!") do (
        set "aa=%%i"
        if /i not "!aa:~,7!"=="http://" set "aa=http://!aa!"
        Start "" "%ProgramFiles%\Internet Explorer\iexplore.exe" "!aa!"
        Set /a n+=1
        Set /a a=!n!%%10
        If !a!==0 pause
)
复制代码

wh1234567

效果依旧，偶尔打不开多个网址，只停留在一个网页上，如果先手动打开ie后，再运行批处理才能够顺利打开多个网址

apang

回复 12# wh1234567

11楼，你再试一遍吧。

wh1234567

回复 11# apang


    嗯，可以打开，速度也很快，遗憾的是 不是在同窗口里分别多个新选项卡打开，不知道能不能实现在同窗口里分别多个新选项卡打开

garyng

试试看这个

rundll32.exe url.dll,FileProtocolHandler "www.google.com"
复制代码

可以不带 http://
这个也可以直接开启文件/文件夹