Board logo

标题: 【已解决】求批处理,网页打开状态,及文字输出,谢谢大家围观 [打印本页]

作者: skyuser    时间: 2017-8-28 10:26     标题: 【已解决】求批处理,网页打开状态,及文字输出,谢谢大家围观

本帖最后由 skyuser 于 2017-9-24 18:30 编辑

已解决,谢谢伟大的论坛
作者: skyuser    时间: 2017-8-28 11:18

着急,呼唤大神出现。
回复仅楼主可见
作者: Batcher    时间: 2017-8-28 14:30

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

作者: 窄口牛    时间: 2017-8-28 15:01

  1. @echo off
  2. for /f %%i in (1.txt) do (
  3. ping %%i|find "请求找不到主机" && echo %%i--^>无法打开>>2.txt
  4. for /f "tokens=3,4" %%a in ('ping -n 1 -w 100 %%i ^|findstr "^正在"') do echo %%i-^>正常打开--别名:%%a--IP:%%b>>2.txt
  5. )
  6. pause
复制代码
鼓捣了一天搞下的,乘着你的问题,自己试试,呵呵.
作者: 窄口牛    时间: 2017-8-28 15:06

  1. @echo off
  2. for /f %%i in (1.txt) do (
  3. ping %%i|find "请求找不到主机" >nul&& echo %%i--^>无法打开>>2.txt
  4. for /F "tokens=3,4" %%a in ('ping -n 1 -w 100 %%i ^|findstr "^正在"') do echo %%i-^>正常打开--别名:%%a--IP:%%b>>2.txt
  5. )
复制代码

作者: skyuser    时间: 2017-8-29 11:17

回复 3# Batcher


    首先非常感谢版主的解答,现在这个脚本,对于域名是别名解析的,会一直显示302代码,然后一直提示网站打不开,版主您能加我的QQ吗?我QQ号:2052339076,谢谢!
作者: Batcher    时间: 2017-8-29 19:30

回复 6# skyuser


加个302判断,是这个意思吗?
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f %%i in (1.txt) do (
  4.     for /f %%a in ('curl -so /dev/null -w %%{http_code} %%i') do (
  5.         set RetCode=%%a
  6.     )
  7.     echo !RetCode!
  8.     for /f "tokens=3,4 delims=][ " %%a in ('ping -n 1 -w 100 %%i ^| findstr "正在"') do (
  9.         set RetAlias=%%a
  10.         set RetIP=%%b
  11.     )
  12.     if !RetCode! equ 200 (
  13.         >>"2.txt" echo %%i--^>正常打开--别名:!RetAlias!--IP:!RetIP!
  14.     ) else if !RetCode! equ 302 (
  15.         >>"2.txt" echo %%i--^>正常打开--别名:!RetAlias!--IP:!RetIP!
  16.     ) else (
  17.         >>"2.txt" echo %%i--^>无法打开
  18.     )
  19. )
复制代码
很久不上QQ了,有问题请在论坛回帖吧。
作者: hlzj88    时间: 2017-8-29 22:43

如果不算晚
  1. @echo off&&setlocal enabledelayedexpansion
  2. del /q *.ini
  3. del /q 汇总.html
  4. set a=0
  5. for /f %%i in (1.txt) do (
  6.         ping -n 1 %%i>2.ini
  7.        findstr /i "超时 找不到主机" 2.ini&&echo ^<br^>%%i---^>无法打开>>3.ini ||echo ^<br^>%%i----^>正常打开--别名:>>3.ini&&type 2.ini>>3.ini
  8. )
  9. findstr /i "正常打开 正在 不到主机 无法打开" 3.ini>>4.ini
  10. for /f "delims=" %%i in (4.ini) do (
  11. set pp=%%i
  12. set pp=!pp:正在 Ping =!
  13. set pp=!pp:[=IP:!
  14. set pp=!pp:] 具有 32 字节的数据:=!
  15. echo !pp!>>汇总.html
  16. )
  17. del /q *.ini
  18. start "" 汇总.html
  19. cls
  20. echo win7下  全部测试完毕
  21. pause
复制代码
如果红包还有,请看楼上batcher的签名捐助
作者: skyuser    时间: 2017-8-30 11:36

回复 8# hlzj88


    谢谢您的热心参与,论坛朋友用exe完美解决了,再次感谢。
作者: skyuser    时间: 2017-8-30 12:08

回复 7# Batcher


    谢谢您了版主,论坛热心朋友用EXE帮我解决问题了,麻烦你帮我把那个帖子删了吧,谢谢你啦
作者: Batcher    时间: 2017-8-30 23:09

回复 10# skyuser


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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2