2013. 07. 23 VB6 네이버 카페 탈퇴 함수

Function CafeSecede(ClubID As String) As Boolean
    WinHttp.Open "POST", "http://cafe.naver.com/CafeSecede.nhn"
    WinHttp.SetRequestHeader "Referer", "http://cafe.naver.com/CafeSecedeView.nhn?clubid=" & ClubID & "&from=naver_login"
    WinHttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    WinHttp.Send "clubid=" & ClubID
    
    If InStr(StrConv(WinHttp.ResponseBody, vbUnicode), "탈퇴하셨습니다") Then CafeSecede = True Else CafeSecede = False
End Function