그누보드 다시한번만요 ㅜ.
노을
Option Explicit
Dim WinHttp As New WinHttp.WinHttpRequest
Private Sub btn_login_Click()
If txt_id.Text = txt_id And txt_pw.Text = 비밀번호 Then
Form1.Show
ElseIf txt_pw.Text = Then
MsgBox 비밀번호을적어주세요., vbExclamation, 실패
ElseIf txt_id.Text = Then
MsgBox 아이디를적어주세요., vbExclamation, 실패
End If
Dim WinHttp As Object, a
Set WinHttp = CreateObject(Winhttp.WinHttpRequest.5.1)
WinHttp.Open POST, http://00000.dothome.co.kr/gnuboard4/bbs/login.php
WinHttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
WinHttp.Send url=%2Fgnuboard4%2F&mb_id= & txt_id & &mb_password= & txt_pw & &x=22&y=17
a = WinHttp.ResponseText
If InStr(a, /gnuboard4/) Then
MsgBox 성공, vbInformation, 로그인 성공
Form3.Show
Else
MsgBox 실패! & vbCrLf & vbCrLf & 아이디 또는 비밀번호를 다시한번 확인해주세요, vbExclamation, 로그인 실패
End If
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub액시노아님이 해주신대로 하긴했는데 그래도 실패라 뜨네요 ..instr 문제인가요 ?
-
바르고
저건 단순 instr문제일듯해요
-
다인
닷홈 주소랑요, 아이디값 인자 확인해주세요.
-
뿌잉
음 .. 소스요구 안했어요
-
봄해
무성의한 소스 요구는 금지합니다.
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2676034 | 이런 창은 어떻게 지우나요? | 수련 | 2024-11-23 |
| 2676006 | 질문하나더~ | 찬바리 | 2024-11-23 |
| 2675930 | 작업관리자 차단 | 별빛 | 2024-11-22 |
| 2675901 | 숫자를 제외한 문자를 어떻게 나타내야될까요? | 진나 | 2024-11-22 |
| 2675871 | 거의마지막질문인데요 | 아메 | 2024-11-22 |
| 2675846 | 제가 완성햇는데요 ㅎ; | 거늘 | 2024-11-21 |
| 2675824 | 타이머. 프로그래스바 코드 질문입니다. (10) | 빛글 | 2024-11-21 |
| 2675798 | 이걸 머라고해야 할지모르지만 질문합니다 (2) | 리라 | 2024-11-21 |
| 2675772 | 구구단 함수 질문이요~! (1) | 테이 | 2024-11-21 |
| 2675746 | exe저장시 런타임53 에러 | 아픔이보여 | 2024-11-20 |
| 2675718 | ocx 설치법 | 달달한캔디 | 2024-11-20 |
| 2675630 | ""안에 큰따음표 넣기. | 터전 | 2024-11-19 |
| 2675519 | 컴파일 오류 ?? | 슬아라 | 2024-11-18 |
| 2675492 | 비베 수다 사이트채팅 접속방법 | 마법 | 2024-11-18 |
| 2675463 | ㅠㅠ;; | 지은 | 2024-11-18 |
| 2675434 | 타이머로 라벨바꾸는거 (2) | 대나무 | 2024-11-18 |
| 2675386 | 선형보간법 문의 | 나길 | 2024-11-17 |
| 2675328 | 프로세스 강제종료하는방법좀... (1) | 슬아라 | 2024-11-17 |
| 2675226 | 폼 관련 질문&버튼 관련질문 (7) | 한울 | 2024-11-16 |
| 2675194 | 파일 삭제 소스 (4) | AngelsTears | 2024-11-15 |