수다닷컴

안녕하세요 ~ 비주얼베이직 힘들지만 요즘새로 배우고있습니다 지금 winhttp 완전 개념도안잡힌상태에서 이걸 배우고있는데 너무나도어렵네요 .. 햇갈리기도 해서 글 올립니다 자세히 답변해주시는분정말감사합니다 ^^ 믿에는 네이버 로그인소스입니다 -Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As Integer
Dim WinHttp As New WinHttpRequest
Option Explicit
Dim i As LongPrivate Sub Command1_Click()
WinHttp.Open POST, http://nid.naver.com/nidlogin.login
WinHttp.SetRequestHeader Referer, https://nid.naver.com/nidlogin.login
WinHttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
WinHttp.Send id= & Text1 & &pw= & Text2 & &saveID=0&enctp=2&smart_level=-1&svctype=0
DoEventsIf InStr(WinHttp.ResponseText, http://static.nid.naver.com/sso/cross-domain.nhn?sid=) Then
MsgBox 네이버 회원이시네요 !!, vbInformation, 네이버 인증성공!
Form2.ShowElse
MsgBox 네이버 회원이 아니시네요 !!, vbCritical, 네이버 인증실패!
Exit Sub
End If
End SubPrivate Sub Command2_Click()
EndEnd Sub
정확히 맞더라구요 비밀번호가 틀리면 틀리다, 맞으면 맞다 메세지 박스 나오면서 이 소스도 다 배포된거 그냥 복사한거뿐입니다 ㅠㅠ거의몰라요부탁드립니다! 하나하나 배우는 의미로써 주석을 알고싶습니다지금 저 소스의 주석을 달아주실수있는분 해석가능하신분 주석달아주시면감사합니다^^2번째질문, 저 소스를 좀더 단축시켜서 저 기능이 나오게못하나요 ??위에 Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As Integer
Dim WinHttp As New WinHttpRequest
Option Explicit
Dim i As Long이 부분의 역할이 뭔지 Dim WinHttp As New WinHttpRequest
만 적어도 되던데 잡다한건 무슨역할인지도 알려주시면감사합니다 ^^정리 . 1위에 소스의 주석. 2 , 저 소스를 단축시켜 적어도 똑같이 로그인인증소스 가능한지??3 , Dim WinHttp As New WinHttpRequest
이것과 Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey Al vKey As Long) As Integer
Dim WinHttp As New WinHttpRequest
Option Explicit
Dim i As Long이것의 차이가 어떻게 되는지궁금합니다 !!도와주세요 ^^

신청하기