从网站http://www.kuaidi100.com获取快递名称和物流信息报错

任我逍遥

昨天开始从网站    http://www.kuaidi100.com获取快递名称和物流信息，发现获取不了任何信息了，请问是因为100网站改变了参数结构么？具体见附件，谢谢老师们。
Set xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    With xmlhttp
     For j = s To t
      If Cells(j, 12) <> "" And Cells(j, 14) <> "已签收" Then
        .Open "POST", "http://www.kuaidi100.com/autonumber/autoComNum?text=" & Trim(Cells(j, 12).Value)
        .send    'post请求，目的是获得快递公司名称
        str1 = Split(Split(.responsetext, "comCode"":""")(2), """")(0) ‘昨天开始获取不了任何信息了 VBA提取快递名称和最新状态信息-以前都可以的这两天突然出错了200410.zip (31.05 KB, 下载次数: 18)

2020-4-10 17:27 上传

点击文件名下载附件

changhong8

访问频繁的话会被管制吧

任我逍遥

用了一年了，突然就管制？

任我逍遥

你们的IP测试，可以的吗？