To prevent an IP from connecting with your server, simply put this code into your form code area and replace the IP with the one you want to prevent:
Private Sub winsock_ConnectionRequest(ByVal requestID As Long)
Dim remote
remote = winsock.RemoteHostIP
If remote <> "127.0.0.1" Then winsock.Accept requestID
End Sub
To allow only one IP address to connect to your server, simply put this code into your form code area and replace the IP with the one you want to allow:
Private Sub winsock_ConnectionRequest(ByVal requestID As Long)
Dim remote
remote = winsock.RemoteHostIP
If remote = "127.0.0.1" Then winsock.Accept requestID
End Sub
!
