VB中Get网页源码和DownLoad函数

调用网页源代码使用: Dim str As String Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP") xmlHTTP1.open "get", "https://v1.hitokoto.cn/", True xmlHTTP1.send While xmlHTTP1.readyState <> 4 DoEvents Wend chuli (xmlHTTP1.responseText) text = s Set xmlHTTP1 = Nothing Donwload可以使用系统API: ...
VB6 | 2018-08-30 20:52 | 阅读 1386 次 | 评论 0 条
浏览8414次
最新评论