네이버 카페 인증 예제소스

Private WinHttp As New WinHttpRequest는 맨 윗부분에.

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=" & 아이디 & "&pw=" & 비밀번호 & "&enctp=2&smart_level=-1"

If InStr(WinHttp.ResponseText, "sso/cross-domain.nhn") Then

WinHttp.Open "GET", "http://cafe.naver.com/" & 카페뒷주소

WinHttp.Send

 

If InStr(StrConv(WinHttp.ResponseBody, vbUnicode), "카페 멤버만 보실 수") Then

MsgBox "카페에 가입되어 있지 않습니다.", vbExclamation, "에러!"

Else

MsgBox "로그인 성공!", vbInformation, "알림"

End If

Else

MsgBox "아이디 또는 비밀번호가 틀렸습니다.", vbExclamation, "에러!"

End If

카페인증.zip