끝나지 않는 프로그래밍 일기

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