vbs- url = "http://www.baidu.com/1.txt"
- file = "D:\2.txt"
- Set http = CreateObject("Microsoft.XMLHTTP")
- http.Open "GET", url, false
- http.Send
- Set myGet = CreateObject("ADODB.Stream")
- myGet.Type = 1
- myGet.Open()
- myGet.Write http.responseBody
- myGet.SaveToFile file, 2
- myGet.Close
- Msgbox "完成"
复制代码 第三方- curl -o "D:\2.txt" "htttp://www.baidu.com/1.txt"
- wget -o "D:\2.txt" "htttp://www.baidu.com/1.txt"
复制代码
|