RSS 가져오기 (HTML 가져오기)

요구사항

RSS를 지원 싸이트

 

' XML 생성

set xml = CreateObject("Msxml2.ServerXMLHTTP.3.0")
xml.open "GET", "지원하는 싸이트 경로", false
xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xml.send
res1 = xml.status
res = xml.responsetext

 

' 한글 깨지는 것을 방지한다.

Set responseStrm = CreateObject("ADODB.Stream")
responseStrm.Open
responseStrm.Position = 0
responseStrm.Type = 1
responseStrm.Write xml.responseBody
responseStrm.Position = 0
responseStrm.Type = 2
responseStrm.Charset = "euc-kr"
resultStr = responseStrm.ReadText
responseStrm.close
Set responseStrm = Nothing
Set xml = Nothing

' 가져온 데이터 확인

Wscript.Echo "데이터 확인"

출처 : Tong - 공원님의 ┣ ★ 먹고사는일(Web)통