求助大佬，域名是否备案查询程序

曾经的你

接口准备用这个【https://market.aliyun.com/produc ... ku=yuncode709400000】或者您来帮我选（价格不要太高，准确率高）

1、程序或者bat需要在win7环境下运行，尽量运行速度快；
2、域名均为：com/cn/com.cn/net后缀
3、因为使用者原因：信息可在txt中调用<一行一个域名>，也可让使用者复制域名信息直接粘贴
4、将备案的域名输出到一个文本文件中，命名随意。


30元有能做的大佬吗，难度大的话你说价格！

zaqmlp

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

复制代码

曾经的你

你好，大佬，已经成功运行，30元已经扫码支付，谢谢【麻烦把您回答的问题删除一下吧，或者修改为其他！】