그누보드 로그인에 관해서 . (소스 올립니다 .)

뭐가 문제이죠 ??
Option ExplicitDim WinHttp As New WinHttp.WinHttpRequestPrivate Sub btn_login_Click()If txt_id.Text = txt_id And txt_pw.Text = 비밀번호 ThenForm1.ShowElseIf txt_pw.Text = ThenMsgBox 비밀번호을적어주세요., vbExclamation, 실패ElseIf txt_id.Text = ThenMsgBox 아이디를적어주세요., vbExclamation, 실패End IfDim WinHttp As Object, a Set WinHttp = CreateObject(Winhttp.WinHttpRequest.5.1) WinHttp.Open POST, http://feelh3.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, 로그인 성공ElseMsgBox 실패! & vbCrLf & vbCrLf & 아이디 또는 비밀번호를 다시한번 확인해주세요, vbExclamation, 로그인 실패Form3.ShowEnd IfEnd Sub

Private Sub Command2_Click()Form2.ShowEnd Sub