https://
thread-index: Adw5r6B5uOxiPEuTSiqcFVfs+SQcdA==

吹版，像这种网址，各种模式都抓不到数据，如何解决

要自己写代码去爬
玩这些东东一定要学会web的东西，起码要懂点 html、js 等。

[此贴子已经被作者于2025-12-17 11:16编辑过]

当然是自己写了完整的代码，也尝试了你的DLL，都抓不到，绝大多数网址都没问题，像以下的网址，就没办法抓到，因为源文件（源码）里根本就没有网页内容数据，各位兄弟可有解决办法：

https://
thread-index: Adw5r6B5uOxiPEuTSiqcFVfs+SQcdA==

https://jms.
thread-index: Adw5r7558idvI2p6T3Wq9+XhT7NAtw==

https://news.
thread-index: Adw5r7RfgzqfPa42RkWCARgVBnjcig==

https://hdact.linker.cc/bzyuntingActivity_new/share/information.html?newsId=13282&inApp=0&providerCode=21010&version=6.13.1&appCode=21010&wxUserId=null&openType=1
thread-index: Adw5r/tRoRWBEexZSHSEx7hzRLKFHQ==

这是我为单位写的一个爬取宣传数据的应用程序，绝大多数网页场景都OK，就是少部分网页无能为力

你的爬代码呢？

看看html文本，改改 but2.click

    PROCEDURE but2.click
        IF this.Caption=="源码json"
            thisform.txt.value = getHtmlJson(thisform, ALLTRIM(thisform.url.value))
        ELSE
            thisform.txt.value = getHtmlText(thisform, ALLTRIM(thisform.url.value))
        ENDIF
        this.Caption = IIF(this.Caption=="源码json","源码html","源码json")
    ENDPROC

再增加一个函数 getHtmlText()

FUNCTION getHtmlText(oForm, cUrl)
    oForm.txt.value = "获取数据，请稍候......"
    LOCAL jsCode
    oForm.myNavigate(cUrl, 30)
    jsCode = "document.documentElement.outerHTML;"
    oForm.myExecuteScript(jsCode, .t., 30)
    RETURN oForm.returnExecuteScript
ENDFUNC

经验证，吹版是国内最牛13的VFP版主，没有之一！！！

那几个网址有些下载好慢，可以增加那个等待时间值，示例设的是30秒。
还有，这网站的连接好像有时间间隔限制，短时间内多次连有时会获取不了正常网页内容。

是的，总之，一句话：吹版威武！！！

万能的吹版，我把您的代码精简了一下，便于无缝融合到我自己的代码里，经验证可行，是否可以发到这里供兄弟们切磋一下？