iLocal="get.htm.txt" iRemote=inputbox("請輸入你要獲取源碼的地址","武林網","http://m.survivalescaperooms.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
