iLocal="get.htm.txt" iRemote=inputbox("请输入你要获取源码的地址","武林网","//www.VeVB.COm") if iRemote="" then iRemote="http://www.baidu.com" Set xPost=createObject("Microsoft.XMLHTTP") xPost.Open "GET",iRemote,0 xPost.Send() set sGet=createObject("ADODB.Stream") sGet.Mode=3 sGet.Type=1 sGet.Open() sGet.Write xPost.ResponseBody sGet.SaveToFile iLocal,2