수다닷컴

Dim winhttp As New WinHttpRequest
Private Sub Command1_Click()
winhttp.Open post, https://nid.naver.com/nidlogin.login
winhttp.SetRequestHeader referer, http://static.nid.naver.com/login.nhn?svc=me&url=http%3A%2F%2Fwww.naver.com&t=20120405
winhttp.SetRequestHeader content-type, application/x-www-form-urlencoded
winhttp.Send enctp=1&saveid=&smart_level=1&id= & Text1.Text & pw= & Text2.Text
If InStr(StrConv(winhttp.ResponseBody, vbUnicode), http://static.nid.naver.com/sso/cross-domain.nhn?sid=) Then
MsgBox 로그인 성공, , 성공
Form2.Show
Form1.Hide
Else
MsgBox 아이디 또는 비밀번호가 맞지 않습니다, , 실패
End If
End Sub
Private Sub Command2_Click()
Form1.Hide
End Sub

-------------------------------------------------------------------------------------------------------------------이렇게 코딩을 했는데요 F5 누르고 네이버 아이디하고 비밀번호 치니깐 계속 실패뜨는데..

왜 실패뜨는지 여쭈어 볼수있을까요 ㅠ..

신청하기