Batcher

@echo off
setlocal enabledelayedexpansion
for /f %%i in (1.txt) do (
    for /f %%a in ('curl -so /dev/null -w %%{http_code} %%i') do (
        set RetCode=%%a
    )
    echo !RetCode!
    for /f "tokens=3,4 delims=][ " %%a in ('ping -n 1 -w 100 %%i ^| findstr "正在"') do (
        set RetAlias=%%a
        set RetIP=%%b
    )
    if !RetCode! equ 200 (
        >>"2.txt" echo %%i--^>正常打开--别名：!RetAlias!--IP：!RetIP!
    ) else (
        >>"2.txt" echo %%i--^>无法打开
    )
)
复制代码

Batcher

回复 6# skyuser


加个302判断，是这个意思吗？

@echo off
setlocal enabledelayedexpansion
for /f %%i in (1.txt) do (
    for /f %%a in ('curl -so /dev/null -w %%{http_code} %%i') do (
        set RetCode=%%a
    )
    echo !RetCode!
    for /f "tokens=3,4 delims=][ " %%a in ('ping -n 1 -w 100 %%i ^| findstr "正在"') do (
        set RetAlias=%%a
        set RetIP=%%b
    )
    if !RetCode! equ 200 (
        >>"2.txt" echo %%i--^>正常打开--别名：!RetAlias!--IP：!RetIP!
    ) else if !RetCode! equ 302 (
        >>"2.txt" echo %%i--^>正常打开--别名：!RetAlias!--IP：!RetIP!
    ) else (
        >>"2.txt" echo %%i--^>无法打开
    )
)
复制代码

很久不上QQ了，有问题请在论坛回帖吧。

Batcher

回复 10# skyuser


这个论坛没有在问题解决后删帖的习惯。留着吧，这几个代码说不定别人能用得上。