수다닷컴

이렇게 했는데 안되더라구요..
다른 방법으로 없을까요;;
=======================================================================================
Dim winhttp As New WinHttpRequestPrivate Sub Command1_Click()
winhttp.Open GET, https://nid.naver.com/nidlogin.login?svctype=2&id= & Text1 & &password= & Text2
winhttp.Send
If InStr(StrConv(winhttp.ResponseBody, vbUnicode), 로그인 실패) Then
MsgBox 로그인 실패
Else
MsgBox 로그인 성공!
End If
winhttp.Open GET, http://cc.naver.com/cc?a=log_gin.mail&r=&i=&nsc=navertop.v3&w=915&px=663&py=205&sx=663&sy=205&m=1&u=http%3A%2F%2Fmail.naver.com%2F
winhttp.Send
If InStr(winhttp.ResponseText, game) Then
MsgBox game 문구가 있습니다..
Else
MsgBox game 문구가 없습니다!
End If
End Sub

FORM style=MARGIN: 0px name=tagForm onsubmit=javascript:oCafeTagRead.updateArticleTag() method=post/FORM

신청하기