사이트채팅방 소스 2번쨰
지니
게시판이 올바른지 확인해주세요.
소스가너무길어서 댓글로는안댄다내여Public Function naverlogin(id As String, pw As String) As Integer
With winhttp
.Open POST, https://nid.naver.com/nidlogin.login
.SetRequestHeader Referer, http://static.nid.naver.com/login.nhn?svc=me&url=http://www.naver.com
.SetRequestHeader Content-Type, application/x-www-form-urlencoded
.Send enctp=2&url=http://www.naver.com&enc_url=http://www.naver.com&postDataKey=&saveID=0&nvme=0&smart_level=1&id= & id & &pw= & pw
.WaitForResponse
temp = StrConv(.ResponseBody, vbUnicode)
End With
If InStr(1, temp, redirect_error, 1) Then
naverlogin = 1
Else
naverlogin = 0
End If
End Function
폼
If naverlogin(Text1.Text, Text2.Text) = 1 Then
http://naver.com
MsgBox 성공
Else
MsgBox 실패
End If이렇게하면됄까여
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2697981 | 폼 크기. | 은별 | 2025-06-12 |
| 2697953 | 리스트 선택 질문.. | 무들 | 2025-06-12 |
| 2697925 | [재질문] Text1 에있는 링크를 어떻게 실행시켜요? | 내꽃 | 2025-06-12 |
| 2697863 | 커서를 넣으면.. | 우시 | 2025-06-11 |
| 2697837 | 다중채팅말인데요.. (1) | 해나 | 2025-06-11 |
| 2697813 | 런타임 13 오류 좀ㅜㅠㅠ | 보나 | 2025-06-11 |
| 2697661 | List , Findwindow (6) | 눈솔 | 2025-06-09 |
| 2697606 | [VB6 Q&A] 멀티쓰레드 생성 후 다시 멈추는 방법은 끄는것 이외에는 없나요? | 봉봉 | 2025-06-09 |
| 2697575 | 비베로 보안 프로그램 비슷한거 만들 수 있나요?? | 튼싹 | 2025-06-09 |
| 2697550 | 비베 포터블이요 | 아름나 | 2025-06-08 |
| 2697433 | 리스트 개초보가 질문합니다.. | 지옥 | 2025-06-07 |
| 2697375 | 윈속 다중채팅방 말치는거 질문이여 | 가론 | 2025-06-07 |
| 2697342 | 프로그램의 텍스트를 파싱(?)하기 | 매화 | 2025-06-07 |
| 2697315 | SendMessage 함수에 대해서 | 가랑비 | 2025-06-06 |
| 2697294 | [VB6 Q&A] 멀티쓰래드 애러 질문 (1) | 겨슬 | 2025-06-06 |
| 2697265 | 비주얼 메세지박스질문 (1) | 하나 | 2025-06-06 |
| 2697236 | 윈도우 8 버젼에서의 일부 파일이 변경되지 않는 문제 (1) | 미투리 | 2025-06-06 |
| 2697208 | 비베 커멘드 버튼 변경법 (2) | 안토니 | 2025-06-05 |
| 2697183 | VB 어떤거부터 공부해야 좋을까요 ? | 민아 | 2025-06-05 |
| 2697130 | 두개 이상의 프로그램이 있을시 종료 | 슬아 | 2025-06-05 |