vbsの作法 その24

概要

vbsの作法調べてみた。
html取得、やってみた。

サンプルコード

Function GetHtml(url)
	Const adTypeBinary = 1
	Const adTypeText = 2
	Dim oHttpReq, oStream
	Dim sText
	Set oHttpReq = CreateObject("MSXML2.ServerXMLHTTP.3.0")
	oHttpReq.Open "GET", url, False
	oHttpReq.Send
	Set oStream = CreateObject("ADODB.Stream")
	oStream.Open
	oStream.Type = adTypeBinary
	oStream.Write oHttpReq.ResponseBody
	oStream.Position = 0
	oStream.Type = adTypeText
	oStream.Charset = "Shift-JIS"
	sText = oStream.ReadText
	oStream.Close
	GetHtml = sText
End Function

Dim html
html = GetHtml("http://jsdo.it")
msgbox html

以上。