수다닷컴

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 문제인가요 ?

신청하기