Нужно сделать так чтобы проверялось, при подключении или запросе страницы с сервера, не находится ли IP того компа который подключается к нам , в списке ограниченных в доступе, т.е. если он там находится то ему не попасть на страницу и не увидеть их а если не находится то милости просим....
Казалось бы чего тут сложного, но я уже 2 дня парюсь у меня мой код блокирует доступ так что потом ни кто не может залезть помогите!!!
Для того что бы ясно было вот высылаю кусок того что есть!!!
Private Sub sckWS_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
ttlConnections = ttlConnections + 1
numConnections = numConnections + 1
If numConnections = maxConnections Then GoTo done
Load sckWS(ttlConnections)
sckWS(ttlConnections).LocalPort = 0
sckWS(ttlConnections).Accept requestID
EnabledConection sckWS(ttlConnections).RemoteHostIP
List1.AddItem sckWS(ttlConnections).RemoteHostIP & " connected"
StartOver:
DoEvents
If requestedPage$ = "" Then GoTo StartOver
List1.AddItem "requested page: " & requestedPage$
If requestedPage$ = "/" Then requestedPage$ = htmlIndexPage$
If FileExists(htmlPageDir & "\" & requestedPage$) Then
htmldata$ = text_read(htmlPageDir & "\" & requestedPage$)
htmldata$ = ReplaceStr(htmldata$, "$ip", sckWS(0).LocalIP sckWS(ttlConnections).SendData htmldata$ & vbCrLf
Else
if requestedPage$ = htmlIndexPage$ Then
sckWS(ttlConnections).SendData "<html><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1""><b>Не найдена стартовая страница.</font></html>" & vbCrLf
requestedPage$ = ""
End If
requestedPage$ = "/a"
sckWS(ttlConnections).SendData html_404$ & vbCrLf
End If
End If
done:
numConnections = numConnections – 1
End Sub
Заранее благодарен!!!!!1
