컴파일오류 질문좀요
보늬
Dim Winhttp As New Winhttp.WinHttpRequest
Winhttp.Open POST, https://nid.naver.com/nidlogin.login
Winhttp.SetRequestHeader Referer, http://static.nid.naver.com/login.nhn?svc=me&url=http%3A%2F%2Fwww.naver.com&t=20120425
Winhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
Winhttp.Send userID= & Text1 & userPW= & Text2
Text3.Text = Winhttp.ResponseText
If InStr(StrConv(ie.ResponseBody, vbUnicode), 일치하는 아이디가 존재하지 않습니다) Then
MsgBox 실패, vbCritical, 로그인
ElseIf InStr(StrConv(ie.ResponseBody, vbUnicode), 잘못된) Then
MsgBox 실패, vbCritical, 로그인
ElseIf InStr(StrConv(ie.ResponseBody, vbUnicode), 비밀번호) Then
MsgBox 실패, vbCritical, 로그인
Else
MsgBox 성공, vbInformation, 로그인
End If
End Sub
Winhttp 로 네이버로그인해볼려고 소스를해봣는데여 httpFox 쓰고 햇는데
컴파일을해보니
Dim Winhttp As New Winhttp.WinHttpRequest
Winhttp.Open POST, https://nid.naver.com/nidlogin.login
Winhttp.SetRequestHeader Referer, http://static.nid.naver.com/login.nhn?svc=me&url=http%3A%2F%2Fwww.naver.com&t=20120425
Winhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
Winhttp.Send userID= & Text1 & userPW= & Text2
Text3.Text = Winhttp.ResponseText
If InStr(StrConv(ie.ResponseBody, vbUnicode), 일치하는 아이디가 존재하지 않습니다) Then
MsgBox 실패, vbCritical, 로그인
ElseIf InStr(StrConv(ie.ResponseBody, vbUnicode), 잘못된) Then
MsgBox 실패, vbCritical, 로그인
ElseIf InStr(StrConv(ie.ResponseBody, vbUnicode), 비밀번호) Then
MsgBox 실패, vbCritical, 로그인
Else
MsgBox 성공, vbInformation, 로그인
End If
End Sub
컴파일오류입니다 외부 프로시져가 잘못되었습니다 라고뜨는데 어케하져 ;; ㅠㅠ
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2694421 | 리스트 박스... 다음으로 넘어가기? | 난슬 | 2025-05-11 |
| 2694399 | RegWrite 등록확인방법이있나요? | 하린 | 2025-05-10 |
| 2694340 | 아스키코드 출력 | 다힘 | 2025-05-10 |
| 2694286 | 1,900,000 - 백 구십 만원 (6) | 허우룩 | 2025-05-09 |
| 2694230 | 텍스트복사 | 거북이 | 2025-05-09 |
| 2694203 | 당신의 지식을 공유해주세요! | 후예 | 2025-05-09 |
| 2694174 | 디버거 크랙방지 (8) | 덕이 | 2025-05-08 |
| 2694146 | 수다 사이트글 조회한사람 목록추출가능? (5) | 곰돌츼 | 2025-05-08 |
| 2694070 | vb_vbnet님의 사이트댓글자동작성기인데 이것을요. | 가시 | 2025-05-07 |
| 2694041 | 모듈은 무었인가요? | 하람 | 2025-05-07 |
| 2694013 | 비쥬얼베이직 책 추천좀요^^... | 초코맛캔디 | 2025-05-07 |
| 2693985 | 리소스문제데요...ㅋㅋ (1) | 아리에스 | 2025-05-07 |
| 2693929 | 했는데 ㅠㅠ | 볼수록중독 | 2025-05-06 |
| 2693870 | 수정좀요 ^^;; (2) | 차오름 | 2025-05-06 |
| 2693812 | ※고구마는 보아라 (6) | 솔길 | 2025-05-05 |
| 2693789 | 마우스가있는곳의 좌표 보기 | 하예진 | 2025-05-05 |
| 2693759 | 실시간으로 서버 열렸는지 닫혔는지 확인하는법좀 | 참이 | 2025-05-05 |
| 2693728 | 로그인 유지 관련 제발 성실답변좀요 | 에녹 | 2025-05-04 |
| 2693705 | 아 재질문합니다 (5) | 모아 | 2025-05-04 |
| 2693677 | Dim a (1 to 11) AS Long에서 11을 K로 놓는 방법 질문 | 진주 | 2025-05-04 |