Question

bat 访问url并下载

例如下载192.168.1.1/1.exe

Answer 1

Set xPost = CreateObject("Microsoft.XMLHTTP")
Set sGet = CreateObject("ADODB.Stream")
Sub DownloadToFile(url, file)
  xPost.Open "GET", url, False
  xPost.Send
  sGet.Type = 1
  sGet.Open
  sGet.Write xPost.responseBody
  sGet.Close
End Sub
DownloadToFile "http://192.168.1.1/1.exe", "1.exe"

追问

这不是bat语言 ，这是什么语言

追答

vbs脚本
创建txt文档，输入以上代码，再改为.vbs后缀名