2025.12.18 更新
封装成vfp类，添加demo：获取cookies、获取js脚本代码，方便理解使用。

[此贴子已经被作者于2025-12-18 07:38编辑过]

编程的东西是要时间和精力，尤其是对新生事物。
老头子一个，身体、精力、时间、家事等，有心无力了，抽点空余小打小闹玩玩还可以。
其实之前那个 WebView2 demo 基本包含常用的功能，也有几个WEB与VFP交互示例，有源码可以参考改造。

[此贴子已经被作者于2025-12-15 10:46编辑过]

win7基本上无望，能用也只是旧版的WebView2，新版的WebView2可能有些功能用不了。

Webview2 支持的 Windows作系统与 Microsoft Edge 支持的作系统相同。
有关其他受支持的作系统的详细信息，请参阅 Microsoft Edge 支持的作系统：
https://learn.

1楼更新
改用同步事件，vfp用起来简单点。

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

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

你的爬代码呢？

看看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

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

论坛的贴图时不时看不到？