저는 프로젝트에서 로그인폼을 시작폼으로 했습니다...그리고 인증이 되면 Mdi폼이 나오는 순서입니다..

 

로그인폼에서 <<확인>> 버튼 클릭시 입니다.

---------------------------------------------

Private Sub cmdOK_Click() '확인버튼
Dim strResult As String
Dim sid$, spass$, no$, cmdstr$
Dim Astart As String

If txtUserName.Text = "" Then
    MsgBox "        아이디가 입력되지 않았습니다.!!       "
    txtUserName.SetFocus
    SendKeys "{Home}+{End}"
    Exit Sub
End If
If txtPassword.Text = "" Then
    MsgBox "        암호가 입력되지 않았습니다.!!       "
    txtPassword.SetFocus
    SendKeys "{Home}+{End}"
     Exit Sub
End If

 

sid = Trim(txtUserName.Text) + "," + Trim(txtPassword.Text)
strResult = Inet1.OpenURL("http://www.ok-lotto.com/mem_log.php?u_name= " & sid & "   & no = 20")

If Left(strResult, 1) = "C" Then
    MsgBox "        사용자아이디가 일치하지 않습니다.!!       "
ElseIf Left(strResult, 1) = "B" Then
    MsgBox "        비밀번호가 일치하지 않습니다.!!           "
ElseIf Left(strResult, 1) = "A" Then
       Me.Hide  '------로그인폼을 숨긴다
      MDIForm1.Show '---------메인 화면을 나타낸다

End If
End Sub

 

2. 그리고 제가 운영하는 사이트에다가 <<mem_log.php>> 파일을 만들었습니다.

<? //베이직에서 로그인시에 전달해줄 페이지
 include "config.php";
$total=explode("," , trim($u_name)); '//// u_name 이 베이직에서 넘어온 변수입니다..
$res = mysql_query ("select  u_id,  pass from member where u_id='$total[0]'");
$rows=mysql_num_rows($res);

if ($rows > 0){
 $data = mysql_fetch_array( $res );
 if ($data[pass]==$total[1]){
  echo "A";  //회원인증  //--php 를 실행시 화면에 나타나는 글입니다..베이직으로 넘겨줄 값이지요 즉 no 의 값은 A 입니다.
 }
 else {
  echo "B";  //비밀번호 오류
 }
}
else {
 echo "C";  //아이디 오류
}
?>

이렇게 하면 실행시에 조그만 로그인박스만 뜨고 아이디/암호가 모두 맞으면 메인화면이 아주 잘 뜹니다..

 

이것 만들면서 어려웠던부분이 있었는데, php 로 아이디와 암호를 각각 변수로 전달이 잘 안되더라구요..아이디는 전달이 잘되는데

암호는 전달이 잘 안되서 그냥 아이디와암호를 컴마로 구분하여 php 로 넘겼습니다.

 

php 에서 컴마를 구분자로 하여 배열로 나누었죠..$total=explode("," , trim($u_name));

 

또 한가지는 php 에서 화면에 나타나는 글씨 즉 A 가 베이직에서는 도대체 A로 인식을 못하더라고요..

그래서 Trim 도 써보고 하다가 그냥 문자열에서 한글자만 추출하는 방법으로 선회했습니다..Left(strResult, 1) = "A"

 

고수분들이 보시면 웃으시겠지만,  초보자에겐 힘든 부분이었습니다...ㅎㅎㅎ

 

초보 화이팅~~!!