수다닷컴

소스는 아래와 같습니다.-----------------------------------------Private Sub CmdLogin_Click()
If txtSub.Text = vbNullString Or txtBody.Text = vbNullString Then Exit Sub

If Naver_Login(txtSub.Text, txtBody.Text) Then
MsgBox 로그인 성공, , 안내
Label6 = 로그인 성공
cmdPass.Enabled = True
Else
MsgBox 비밀번호가 틀리셨습니다., , 안내
Label6 = 로그인 실패
End If
End Sub-------------------------Dim WinHttp As New WinHttpRequestPublic Function Naver_Login(ID As String, pW As String) As Boolean
WinHttp.Open GET, https://nid.naver.com/nidlogin.login?svctype=2&id= & ID & &password= & pW
WinHttp.Send

If InStr(StrConv(WinHttp.ResponseBody, vbUnicode), 로그인 실패) Then
Naver_Login = False
Else
Naver_Login = True
End If
End Function----------------------------------------------아무것도 입력하지 않고 로그인버튼을 눌렀을 때 무반응을 오류 창으로 아이디 및 비밀번호를 입력해주세요.이렇게 뜨게 하고 싶구요.아이디에 한글을 입력하면 무조건 로그인이 완료되는데요.어떻게 해결해야할까요?안된다면 영어만 입력할 수 있게해줄려면 어떻게해야할가요? (IMEMode말고)

신청하기