vbs获取网页源码

先是输入网页的地址然后自己在当前文件夹生成xxx.html...

2026年09月28日 21:05

有1个网友回答

网友（1）：

dim xp,url,MyStream
url=inputbox("输入网址")
if url&"a"<>"a" then
set xhp=createobject("microsoft.xmlhttp")
xhp.open "get",url,false
xhp.send
Set MyStream=CreateObject("Adodb.Stream")
MyStream.Type = 1
MyStream.Open
MyStream.Write xhp.responseBody
MyStream.SaveToFile "c:\xxx.html"
Msgbox "保存成功！哈哈"
end if