Private Sub Command1_Click()
Dim Temp As String
Dim Winhttp As Object
Set Winhttp = CreateObject(WinHttp.WinHttpRequest.5.1)
Winhttp.Open GET, http://wngud2003.dothome.co.kr/인증.txt
Winhttp.Send
Temp = Replace(lblRecv.Caption, vbCrLf, vbNullString)
If Len(Text1.Text) = 3 Then
MsgBox 인증성공
Form1.Show
Unload Me
Else
MsgBox 인증실패
Unload Me
End If
End Sub
------------------
우선적으로 소스는 이거구요.
command1 클릭하면 호스팅 서버에있는 txt 불러와서 인증하는걸로 되어있습니다.
그런데 lf len 3 then 이런식으로 해놓다 보면 3글자만 입력하게되면 모두 인증성공이 떠버리드라구요.
공백입력해도 인증실패 / 그외의값 입력해도 실패 / 정상적으로 출력되는 함수좀 알려주시면 감사하겠습니다..
댓글 0