Help Winsock Filter

[VikingMan]

hI ive made a proxy and i wanted to make a filter how do I it?

Public Sub Winsock1_DataArrival()
Dim Data As Object
Dim rByte As Byte

Winsock1.GetData(Data)

If Data = ?? Then 'Filter Here
Msgbox(??.ToString)
End If

End Sub

the code above doesnt work I need some help..

[DigiRev]

What are you trying to filter...?

And why are you declaring Data as an object?

Private Sub Winsock1_DataArrival()
Dim bytData() As Byte, strData As String

winsock1.GetData bytData()
'Convert data to string.
strData = StrConv(bytData(), vbUnicode)

If LCase$(Left$(strData, 4)) = "post" Then
'Ignore HTTP post...
End If

End Sub

[VikingMan]

this is written in VB.NEt..need .Net code

[the182guy]

the Winsock Control does not exist in vb.NET, you have to use the TCPClient and TCPListener calsses :(:(