[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

【已解决】求批处理,网页打开状态,及文字输出,谢谢大家围观

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

已解决,谢谢伟大的论坛
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

着急,呼唤大神出现。
回复仅楼主可见

TOP

  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. )
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

  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
复制代码
鼓捣了一天搞下的,乘着你的问题,自己试试,呵呵.

TOP

  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. )
复制代码

TOP

回复 3# Batcher


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

TOP

回复 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了,有问题请在论坛回帖吧。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

如果不算晚
  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的签名捐助
目的,学习批处理

TOP

回复 8# hlzj88


    谢谢您的热心参与,论坛朋友用exe完美解决了,再次感谢。

TOP

回复 7# Batcher


    谢谢您了版主,论坛热心朋友用EXE帮我解决问题了,麻烦你帮我把那个帖子删了吧,谢谢你啦

TOP

回复 10# skyuser


这个论坛没有在问题解决后删帖的习惯。留着吧,这几个代码说不定别人能用得上。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表