수다닷컴

Private Sub OsenXPButton1_Click()If Not Len(Text1.Text) = 3 Then MsgBox 공백 및 3글자 입력시 인증 실패: Exit Sub
Dim winhttp As ObjectSet winhttp = CreateObject(WinHttp.WinHttpRequest.5.1)
winhttp.Open GET, http://**.**.**/**.txtwinhttp.Send
lblRecv.Caption = StrConv(winhttp.ResponseBody, vbUnicode)lblRecv.Caption = Replace(lblRecv.Caption, vbCrLf, vbNullString)
Dim temp() As String, tf As Booleantemp = Split(lblRecv.Caption, Chr(10))
For i = 0 To UBound(temp)
If Len(temp(i)) 0 Then
If temp(i) = Text1.Text Then
tf = True
Exit For
End If
Next i
If tf Then
MsgBox 인증성공
Form1.ShowUnload Me
Else
MsgBox 인증실패
Unload Me
End If
End Sub
---------------------------------------------------호스팅서버에 있는 txt를 불러와 해당 이름을 읽어 인증후 다음폼으로 넘기는 소스입니다.
3글자씩 되어있고 ,
텍스트 형태는
이름이름이름
이런형태로 되어있습니다.
전까지 잘 되고있었는데 오늘 갑자기 인증이 실패되네요.
어떤 소스부분에서 문제가 생긴거죠?
확인좀 부탁드리겠습니다.

신청하기