代码如下:
set xc=CreateObject("microsoft.xmlhttp")
xc.open "get","http://www.sohu.com",false
xc.send()
set gg=createobject("adodb.stream")
gg.type=1
gg.mode=3
gg.open
gg.write xc.responsebody
gg.savetofile "sohu.txt",2
gg.close
set xc=nothing
set gg=nothing
msgbox "程序运行成功!",16,"提示"
时间: 2024-12-23 19:16:03