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

曾经的你

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

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


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

zaqmlp

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
cd /d "%~dp0"
set "txtfile1=域名列表.txt"
set "txtfile2=结果.txt"
set "appcode=你申请的appcode码"
:input
set "ym="
if not exist "%txtfile1%" (
    set /p ym=输入域名:
    if not defined ym (goto input)
)
powershell -NoProfile -ExecutionPolicy bypass ^
    [System.Collections.ArrayList]$list=@();^
    [System.Collections.ArrayList]$s=@();^
    if('%ym%' -ne ''){[void]$list.add('%ym%');};^
    if(test-path -liter '%txtfile1%'){^
        $list=[IO.File]::ReadAllLines('%txtfile1%',[Text.Encoding]::Default);^
    };^
    $url='http://ali-beian.showapi.com/beian?domain=';^
    $web=New-Object System.Net.WebClient;^
    $web.Encoding=[System.Text.Encoding]::UTF8;^
    $web.Headers.Add('Authorization','APPCODE %appcode%');^
    for($i=0;$i -lt $list.count;$i++){^
        $str=$web.DownloadString($url+$list[$i]);^
        $m=[regex]::match($str,'\"num\":\"([^^\""]+)\"');^
        if($m.success){^
            write-host ($list[$i]+' --^>'+$m.groups[0].value);^
            [void]$s.add($list[$i]);^
        }else{write-host ($list[$i]+' --^> 无记录');};^
    };^
    [IO.File]::WriteAllLines('%txtfile2%', $s, [Text.Encoding]::Default);
echo;%info%
pause
复制代码

曾经的你

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