扫描连接远程路由器批处理代码

@echo off
setlocal enabledelayedexpansion
set read=☆☆☆☆☆☆   DOS资源站 www.cmdos.net  ☆☆☆☆☆☆
color 4f
for /l %%i in (1,1,42) do (
cls
echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo       !read:~0,%%i!
ping/n 1 127.1>nul 2>nul
)
echo.&echo.&echo.
echo     === === === === 按任意键开始主程序!
pause>nul
cls
:SA
title 自动扫描打开IE连接远程路由器
color f
echo.&echo.
echo       ╔══════════════════════════════╗
echo       ║                                                            ║
echo       ║                    『 说        明 』                      ║
echo.      ║                                                            ║ 
echo       ║         一定要严格按说明的格式输入,(如：61.190.102.1)      ║
echo       ║     则只需输入：61.190.102即可。然后再输入开始和结束IP     ║
echo       ║     ，否则容易出错。最后输入端口号，要远程打开路由器管     ║  
echo       ║     理界面必须要输入端口号，本地打开则不需要。程序执行     ║
echo       ║     后要等待IE浏览器的返回信息，当前为活动的IP全部打入     ║
echo       ║     d:\有效IP文本文件中,如果返回找不到服务器则按任意键     ║
echo       ║     关闭IE并打开下一个IP，如果弹出输入用户名和密码对话     ║ 
echo       ║     框，那么恭喜，你找到一个可远程打开的路由器了。这时     ║
echo       ║     你可直接关闭本程序，按×键。                           ║
echo       ║                                                            ║
echo       ╚══════════════════════════════╝
echo.
echo.
echo.& echo                              ═══╬ 按任意键开始程序 ╬═══
pause>nul
cls
:ST
echo 
set num_=0
set path_=d:\有效IP.txt
set/p ip_=请输入IP...(格式：61.190.102)。
if not defined ip_ (cls & goto ST)
for /f "tokens=1-3 delims=." %%i in ("%ip_%") do (
    if %%i LSS 1 goto error_1
    if %%i GTR 255 goto error_1
    if %%j LSS 1 goto error_1
    if %%j GTR 255 goto error_1
    if %%k LSS 1 goto error_1
    if %%k GTR 255 goto error_1
    )
:star_
echo.& set/p ip_star=请输入开始IP （1——255之间）。
if not defined ip_star (cls & goto star_)
if %ip_star% GTR 255 goto error_2
if %ip_star% Lss 1 goto error_2
:end_
echo.& set/p ip_end=请输入结束IP （2——255之间）。
if not defined ip_end (cls & goto end_)
if %ip_end% GTR 255 goto error_2
if %ip_end% lss 2 goto error_2
if %ip_star% GTR %ip_end% goto error_2
:pro_
echo.& set/p port_=请输入端口号 （0——65535之间）。
if not defined port_ (cls & goto pro_)
if %port_% GTR 65535 goto error_3
if %port_% lss 1 goto error_3
:input_
echo.& set/p pause_=当扫描到可用IP时，是否启用暂停，输入(Y)或(N)?
if not defined pause_ (cls & goto input_)
cls & color f
echo  %time:~0,7% ——扫描结果: > !path_! & echo. >> !path_!
for /L %%i in (!ip_star!,1,!ip_end!) do (
   title 扫描 !ip_!.%%i 已发现!num_!个有效IP。& echo.& echo.& echo.& echo.& echo.& echo.
   echo              ○○○○○○§§§§§§§§§§§§§○○○○○○
   echo              ○                                              ○　
   echo              ○           正在扫描：!ip_!.%%i            
   echo              ○                                              ○
   echo              ○○○○○○○○○○○○○○○○○○○○○○○○○
   ping -n 1 -l 1 -w 1 !ip_!.%%i >nul 2>nul && (echo && color 1f && set /a num_+=1 && (
   if !num_! LSS 100 (
   if !num_! LSS 10 (
   echo    !num_! !ip_!.%%i >> !path_!
   ) else (echo   !num_! !ip_!.%%i >> !path_!)
   ) else echo  !num_! !ip_!.%%i >> !path_!
   ) && if /i !pause_! EQU Y (echo -----当前IP有效并已打开IE浏览器。&& start /min IEXPLORE.EXE http://!ip_!.%%i:!port_! && ping 127.1 -n 4 >nul 2>nul & taskkill /f /im IEXPLORE.EXE /T>nul 2>nul))
   cls && color f
   )
echo.&echo.&echo.&echo.&echo & color 30
echo. >> !path_! & echo   %time:~0,7% 扫描完毕。>> !path_! && echo   本次共发现有效IP地址【!num_!】个。>> !path_!
echo IP !IP_%!.!ip_star! — !ip_!.!ip_end! 已扫描完毕，是（Y）否（N）重新扫描？& echo.
set/p yn= 注意：重新扫描将覆盖上次扫描到的有效IP地址。
set ip_=
set ip_star=
set ip_end=
set port_=
set pause_=
if /i %yn% EQU Y (cls & goto SA)
echo.&echo.&echo   ◤ 按下任意键结束程序 ◥
echo.&echo.&echo.&echo.&echo.&echo.&echo.
echo                                         ╭—————————————————╮
echo                                         │   作者：DOS资源站，不足之处请指正 │
echo                                         ╰—————————————————╯
pause>nul
exit
:error_1
cls
echo.&echo                【IP地址输入错误，请严格按照格式重新输入】& color 20& goto ST
:error_2
cls
echo.&echo                【开始或结束IP输入错误，请按格式重新输入】& color 20& goto ST
:error_3
cls
echo.&echo                【端口号输入错误，请严格按照格式重新输入】& color 20& goto ST