네이버 카페 최신글 불러오기 소스

Dim WinHttp As New WinHttpRequest

Private Sub Command1_Click()

WinHttp.Open "GET", "http://cafe.naver.com/ArticleList.nhn?search.clubid=" & ClubID & "&search.questionTab=A&search.specialmenutype=&userDisplay=20&search.page=1"

WinHttp.Send

tmp = Split(StrConv(WinHttp.ResponseBody, vbUnicode), "<a href=""/ArticleRead.nhn?clubid=")

For i = 1 To UBound(tmp)

If InStr(tmp(i), "onmouseover=""""") Then

tmp2 = Split(Split(tmp(i), "class=""m-tcol-c"">")(1), "</a>")(0)

List1.AddItem tmp2

End If

Next i

End Sub