웹마스터 팁
VB.NET에서 XE로그인 연동하기.[내용추가]
2014.03.26 00:52
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ID.Text = "" Or PW.Text = "" Then '필드에 아무것도 없다면
MsgBox("아이디 또는 비밀번호를 입력해주세요.", vbExclamation, "Error") '에러를 뿜는다.
Exit Sub
End If
WinHttp.Open("POST", "http://홈페이지주소/index.php?mid="MID주소입력"&act=dispMemberLoginForm") '회원로그인폼주소를 입력.
WinHttp.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
WinHttp.Send("error_return_url=%2Findex.php%3Fmid%3D"MID주소입력"%26act%3DdispMemberLoginForm&mid="MID주소입력"&vid=&ruleset=%40login&success_return_url=http%3A%2F%2F사이트주소입력(HTTP제외)%2Findex.php%3Fmid%3D"MID주소입력"&act=procMemberLogin&xe_validator_id=modules%2Fmember%2Fskin%2Fdefault%2Flogin_form%2F1&user_id=" & ID.Text & "&password=" & PW.Text)
WinHttp.WaitForResponse()
If InStr(WinHttp.ResponseText, "message error") Then '요청했던 값에 Message error 문구가 포함되어있으면 에러처리
MsgBox("로그인에 실패하였습니다 아이디와 비밀번호를 확인하세요" & vbCrLf & "가입되어있지않다면 회원가입후 사용해주세요")
Else
Me.Hide() '현재 폼을 숨김
' 숨기고 보여줄폼을 입력
End If
End Sub이방법은 간단히 Winhttp를 이용한 방법입니다.
1. 프로젝트 생성
2. 참조에서 winhttp 참조 추가
3. 로그인버튼생성(이름ID)
4. 해당소스입력
예제 파일은 제홈페이지 http://appseedkorea.com 의 XE팁에서 다운로드 가능합니다.
개발하시는데 참고가 되시기바랍니다.
--추가부분--
이소스가 무슨말인지 모르겟다!?!? 라는 분은 http://appseedkorea.com 1:1문의란에
사이트주소 :
테스트아이디 / 비번 :
남겨주시면 해당소스를 맞게 짜서 AppSeedKorea내 XE자료실에 업로드해드립니다.
(별도 메일발송 불가)
단 로그인이외의 지원은 불가합니다
태그 연관 글
- [2019/10/20] 묻고답하기 소셜xe 오류이후 관리자 로그인 기능이 사라졌습니다.
- [2019/03/17] 묻고답하기 제 사이트가 갑자기 로그인이 먹통입니다.
- [2017/12/20] 묻고답하기 로그인이 되지 않습니다. *3
- [2017/07/20] 묻고답하기 이거 로그인 대문? 어떻게 하나요ㅜㅜ 봐도 모르겠어요ㅜㅜ *1
- [2016/07/16] 묻고답하기 하나의 XE계정으로 여러 사이트에서 로그인 할 수 있는 방법이 없을까요? *1
댓글 3
-
도메인8295
2014.03.27 16:58
VB6.0도 되나요? -
AppSeedKorea
2014.03.27 20:37
VB6.0은 약간변형해야하나. 기본적인 구조는 위와같습니다(winhttp요청부분)
-
도메인8295
2014.03.27 20:38
음..그럼 혼자 열심히 끙끙대고 있어볼게요...
| 제목 | 글쓴이 | 날짜 |
|---|---|---|
| XE 업데이트후 갑자기 CSS/JS등이 403 오류가 날때 | YJSoft | 2014.04.16 |
| VB.NET에서 XE로그인 연동하기.[내용추가] [3] | AppSeedKorea | 2014.03.26 |
| 최신 제로보드 XE 동영상 강의 [25] | 하얀마법 | 2013.08.09 |
XE코어 수정없이 원하는 기능 넣기
[3]
 | 마이웹 | 2014.03.22 |
| XE 앱 개발시 키보드 포커스 관리 | StyleRoot | 2014.03.19 |
| XE 업로드 먹통시 1.7.8 버전 - 추가로 질문포함. [1] | artsmi.myid.net | 2014.03.12 |
| XE 어플 개발시 키보드위에 입력창 올리기 [4] | 웹빌드 | 2014.03.11 |
| XE 어플로 만들때 PUSH 기능처리 방법 | 웹빌드 | 2014.03.06 |
| xe 홈페이지 폰갭으로 묶을때 | 웹빌드 | 2014.03.03 |
| XE 1.7.4 "이메일 주소로 계정 찾기" 오류 해결 방법 | 꿈돌리 | 2014.02.20 |
| XE 첨부파일 문제로 게시판이 백지화 될때... [1] | 똑디 | 2011.05.20 |
|
[XE] 1.4.5.x 업데이트 후 레이아웃 오류 수정법
[7]
| SeklutZ | 2011.04.07 |
| XE 1.7.4 새로운 우편번호 체계에서 나머지주소 관련 사용실수 방지방법입니다 [1] | sejin7940 | 2014.02.07 |
| [XE 1.7] 스팸필터 설정이 안되는 경우 해결 방법 [3] | 퍼니엑스이 | 2014.02.03 |
| XE 루트로 접속하기 (이동 필요없음) [12] | 모앱 | 2013.03.03 |
| 인사말 랜덤추출 스크립트 [xe적용방법] [12] | 라싸 | 2008.02.18 |
| XE 1,7 에서 확장변수 기준으로 정렬 기능이 작동 안 하는 버그 수정법 [1] | sejin7940 | 2013.12.04 |
| xe_2009 게시판 스킨 사용시 브라우저 타이틀 지우기 | 착한악마 | 2014.01.23 |
| XE 전체 타이틀(title) 수정하기 [3] | pezex | 2014.01.16 |
|
하나의 호스팅 공간에서 여러개의 xe 사용하기
| 고마워XE | 2013.12.19 |