수다닷컴

winhttp강좌도 보구... 여기저기 검색하여 소스를 보고 네이버 로그인하는 소스를 쉽게 구할수있었는데요

Dim IE As New WinHttp.WinHttpRequest

Private Sub Command1_Click()
On Error Resume Next

IE.Open GET, https://nid.naver.com/nidlogin.login?svctype=2&id= & txtID.Text & &pw= & txtPW.Text
IE.Send

If InStr(StrConv(IE.ResponseBody, vbUnicode), http://www.naver.com) Then
MsgBox 로그인 성공, vbInformation, 로그인
WebBrowser1.Navigate http://www.naver.com
Else
MsgBox 로그인 실패, vbCritical, 로그인
End If

Text1.Text = StrConv(IE.ResponseBody, VnUnicode)
End Sub

저렇게 쓰고, 커맨드 버튼을 누르면 로그인하는건데요~
여기서 궁금한게이써요!
winhttp로 로그인을 했으면 전 로그인 된걸 눈으로 확인하고싶은데요...;;ㅋㅋ
웹브라우져를 폼에그려놓고 로그인후에 네이버홈페이지로 이동하니 로그인은 안되어있구..그냥 메인화면만 나오내요ㅠ
winhttp로 로그인하고, 웹브라우져에서 확인이 가능할까요??

신청하기