수다닷컴

Private WInhttp As New WinHttpRequest
Dim http As New WInhttp.WinHttpRequestPrivate Sub Command1_Click()
WInhttp.Open POST, http://nid.naver.com/nidlogin.login
WInhttp.SetRequestHeader Referer, https://nid.naver.com/nidlogin.login
WInhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
WInhttp.Send id= & Text1 & &pw= & Text2 & &saveID=0&enctp=2&smart_level=-1&svctype=0
If InStr(WInhttp.ResponseText, http://static.nid.naver.com/sso/cross-domain.nhn?sid=) Then
MsgBox 네이버 로그인 성공., vbInformation, 네이버 로그인
Else
MsgBox 로그인 실패, vbDefaultButton1, 실패
End If
End SubPrivate Sub Form_Load()
Call naverNote
End SubPublic Function naverNote()
Dim Temp As String
Dim from() As String
Dim title() As Stringhttp.Open GET, http://note.naver.com/json/list/?page=1&onlyNew=0¬eType=0&u= & Text1.Text & , True
http.Send
http.WaitForResponseTemp = StrConv(http.ResponseText, vbNarrow)title = Split(Temp, class=bu2)For i = 3 To UBound(title)
title(i) = Split(title(i), /a)(0)Set ltem = lv.ListItems.Add()
ltem.Text = i - 2 & 위
ltem.SubItems(1) = title(i)
DoEvents
Next i
End Function이렇게 소스를 햇는데 아무것도 안뜨네요... 어디가 문제인건지...이건 제가 로그인을 하면 쪽지내용을 보는것을 만들려고하는것입니다...

신청하기