수다닷컴

게시판이 올바른지 확인해주세요.


Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As IntegerDim WinHttp As New WinHttpRequestOption ExplicitDim i As LongPrivate Sub Command1_Click()WinHttp.Open POST, http://nid.naver.com/nidlogin.loginWinHttp.SetRequestHeader Referer, https://nid.naver.com/nidlogin.loginWinHttp.SetRequestHeader Content-Type, application/x-www-form-urlencodedWinHttp.Send id= & Text1 & &pw= & Text2 & &saveID=0&enctp=2&smart_level=-1&svctype=0DoEvents
If InStr(WinHttp.ResponseText, http://static.nid.naver.com/sso/cross-domain.nhn?sid=) ThenMsgBox 성공, vbInformation, 성공ElseMsgBox 실패, vbCritical, 실패Exit Sub
End If
End Sub

Private Sub Command2_Click()
WinHttp.Open post, https://nid.naver.com/user/help.nhn?todo=changeMainWinHttp.SetRequestHeader referer, https://nid.naver.com/user/help.nhn?todo=changeMainWinHttp.SetRequestHeader content-type, application/x-www-form-urlencodedWinHttp.Send pw= & Text2 & DoEvents
If InStr(WinHttp.ResponseText, https://nid.naver.com/user/help.nhn?a=changeUserInfo&m=changeInfo_getInfo) ThenMsgBox 성공
Else
MsgBox 실패
End IfEnd Sub

검은색 줄부분 파싱해서 그다음페이지로 넘어가려고 하는데요
안되네요.. 어디가 잘못된건지 모르겠습니다.

신청하기