お前ら、wsh使ってますか? part6

お前ら、wsh使ってま� ..

963:名無し~3.EXE
07/09/06 23:34:08 0hvP0y9l
xmlhttpでは駄目なん？

function GetHTMLDocument(ByVal strURL, ByVal strDatFileName)
　dim objXmlHttp, objStream
　const AD_TYPE_BINARY = 1'ストリームタイプをバイナリストリームにする
　const AD_SAVE_CREATE_OVER_WRITE = 2'ファイルを上書きする
　
　on Error Resume Next
　set objXmlHttp = WScript.CreateObject("microsoft.xmlhttp")'XMLHTTPオブジェクトの作成
　objXmlHttp.Open "GET", strURL, false
　objXmlHttp.Send
　if Err.Number <> 0 then
　　strErrMsg = strURL & ": " & Err.Description
　　GetHTMLDocument = false
　　set objXmlHttp = nothing
　　exit function
　end if
　on Error Goto 0
　
　set objStream = CreateObject("ADODB.Stream")'バイナリストリームオブジェクトの作成
　objStream.Open
　objStream.Type = AD_TYPE_BINARY
　objStream.Write(objXmlHttp.ResponseBody)
　objStream.SaveToFile strDatFileName, AD_SAVE_CREATE_OVER_WRITE
　objStream.Close
　set objStream = nothing
　set objXmlHttp = nothing
　GetHTMLDocument = True
end function

次ページ

続きを表示

1を表示