로그인 실패라는 문구
캐릭터
2023.04.01
Private Sub CmdLogin_Click()
If txtID.Text = vbNullString Or txtPW.Text = vbNullString Then Exit Sub
If nexon_com(txtID.Text, txtPW.Text) Then
MsgBox 로그인 성공.
Else
MsgBox 로그인 실패
End If
End Sub
-------------------------------------------------------------------------
모듈
Dim Winhttp As New WinHttpRequest
Public Function nexon_com(ID As String, pW As String) As Boolean
Winhttp.Open GET, http://login.nexon.com/login/page/nx.aspx?url=login/login&n4ErrorCode=1&redirect=http%3a%2f%2fwww.nexon.com%2fmain%2fpage%2fnx.aspx
Winhttp.Send
If InStr(StrConv(Winhttp.ResponseBody, vbUnicode), 로그인 실패) Then
nexon_com = False
Else
nexon_com = True
End If
End Function
여기에서요로그인실패라는 문구를 어디넣어야 되나요 ?
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2696825 | 메이플스토리로그인(접속기) 소스오류, 해결바랍니다! | 키다리 | 2025-06-02 |
| 2696800 | 그누보드 multipart 게시글작성 (3) | HotPink | 2025-06-02 |
| 2696640 | 이 소스의 모듈좀 주세용 ;; | 파이팅 | 2025-05-31 |
| 2696591 | 다운프로그램 넣는법?? | 아놀드 | 2025-05-31 |
| 2696566 | 수정해도 그래요 ㅜㅜ 다시한번 제발 이것좀 해결해주세요 ㅜ | 하늘빛눈망울 | 2025-05-30 |
| 2696513 | 텍스트 활성 방법 좀... | 힘찬 | 2025-05-30 |
| 2696466 | ExitWindow함수로 컴퓨터 끄는 방법좀요 | 가장 | 2025-05-29 |
| 2696441 | 기억이안나서그런데 ㅠㅠ | 란새 | 2025-05-29 |
| 2696412 | 리스트뷰 에 체크 할수 있게 하는법좀요;;;ㅠ. | PinkPearl | 2025-05-29 |
| 2696380 | 질문이요 제발 답변좀요 ㅠㅠ | 은G | 2025-05-29 |
| 2696355 | 자동적용Q&A | 지음 | 2025-05-28 |
| 2696327 | 리스트 삭제 질문 | 힘찬 | 2025-05-28 |
| 2696300 | IF 문 질문합니다. | 볼1매그녀 | 2025-05-28 |
| 2696272 | 65535 크기의 배열에서 특정 부분만 읽는법 (1) | 소녀틳향기 | 2025-05-28 |
| 2696241 | winhttp 질문! 고수분들답변부탁드려요^ㅆ^ 주석달아주실수있는분! 오류해결 | 뿡뿡 | 2025-05-27 |
| 2696189 | 스크린샷에 글씨쓰기 (1) | 푸른마을 | 2025-05-27 |
| 2696159 | 다중 챗방에 대해 질문합니다 ! | 놓아줄게요 | 2025-05-27 |
| 2696131 | 저기요 핫키질문인데 ;;좀봐주세요^^!!!!!!!! | 영빈이 | 2025-05-26 |
| 2696104 | 2번째 질문;; | 사이 | 2025-05-26 |
| 2695993 | VMPROTECT 마지막 질문, | LO | 2025-05-25 |