' 要下载的文件
strFileURL = "https://ip.tool.lu/"
' 文件存放路径
strHDLocation = "c:\ip.txt"

Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
    Set objADOStream = CreateObject("ADODB.Stream")
    objADOStream.Open
    objADOStream.Type = 1

    objADOStream.Write objXMLHTTP.ResponseBody
    objADOStream.Position = 0

    Set objFSO = Createobject("Scripting.FileSystemObject")
    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
    Set objFSO = Nothing

    objADOStream.SaveToFile strHDLocation
    objADOStream.Close
    Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing
复制代码

当前IP: 183.0.227.224
归属地: 中国 广东 茂名
复制代码