[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 zaqmlp 于 2019-8-10 11:38 编辑
  1. @echo off
  2. set info=互助互利,支付宝扫码头像,感谢赞助
  3. rem 有问题,可加QQ956535081及时沟通
  4. title %info%
  5. cd /d "%~dp0"
  6. set "txtfile1=域名列表.txt"
  7. set "txtfile2=结果.txt"
  8. set "appcode=你申请的appcode码"
  9. :input
  10. set "ym="
  11. if not exist "%txtfile1%" (
  12.     set /p ym=输入域名:
  13.     if not defined ym (goto input)
  14. )
  15. powershell -NoProfile -ExecutionPolicy bypass ^
  16.     [System.Collections.ArrayList]$list=@();^
  17.     [System.Collections.ArrayList]$s=@();^
  18.     if('%ym%' -ne ''){[void]$list.add('%ym%');};^
  19.     if(test-path -liter '%txtfile1%'){^
  20.         $list=[IO.File]::ReadAllLines('%txtfile1%',[Text.Encoding]::Default);^
  21.     };^
  22.     $url='http://ali-beian.showapi.com/beian?domain=';^
  23.     $web=New-Object System.Net.WebClient;^
  24.     $web.Encoding=[System.Text.Encoding]::UTF8;^
  25.     $web.Headers.Add('Authorization','APPCODE %appcode%');^
  26.     for($i=0;$i -lt $list.count;$i++){^
  27.         $str=$web.DownloadString($url+$list[$i]);^
  28.         $m=[regex]::match($str,'\"num\":\"([^^\""]+)\"');^
  29.         if($m.success){^
  30.             write-host ($list[$i]+' --^>'+$m.groups[0].value);^
  31.             [void]$s.add($list[$i]);^
  32.         }else{write-host ($list[$i]+' --^> 无记录');};^
  33.     };^
  34.     [IO.File]::WriteAllLines('%txtfile2%', $s, [Text.Encoding]::Default);
  35. echo;%info%
  36. pause
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表