안녕하세요
제가 네이버 메일로 로그인을 해서 메일 목록에 game 라는메일 문구가있으면 있다고 뜨게 하고 싶은데...
있어도 없다고만 뜨네요.. 어디서 문제 일까요?
==========================================================================================================
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