Kendskab til IP før winsock accept!?

Kode 

Private Sub sckKontrol_ConnectionRequest(ByVal requestID As Long)
'ADVARSEL - Fiktiv kode Forude!!!
sckKontrol.Accept requestID
DoEvents
ip = sckKontrol.RemoteHostIP
For t = 1 To UBound(BannedIP())
    If ip = BannedIP(t) Then    'Hvis IP'en er bannet
        sckKontrol.Close        'skal socket'en lukkes
        sckKontrol.Listen       'og skal lytte igen
        Exit Sub
    End If
Next t
End Sub

Der sker jo ikke noget ved at acceptere dem kortvarrigt! Så hvorfor ikke gøre følgende:

Der sker jo ikke noget ved at acceptere dem kortvarrigt! Så hvorfor ikke gøre følgende:


De er jo bannede... Men okay... Man kan sikkert ikke finde den IP alligevel, så her har du nogen point...

Kode 

debug.print scklyt.remotehostip