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:
...
最新评论
- Furau：在HTML中，使用color属性调用 可以在body的bgcolor中使用 <body b...