Quantcast
Channel: VBForums - Visual Basic 6 and Earlier
Viewing all articles
Browse latest Browse all 21143

winsock getdata help

$
0
0
Private Sub wss_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data As String
On Error Resume Next
Dim x As Integer
data = ""
wss(Index).GetData data



If InStrRev(data, "Verification") Then
Me.Caption = "found"
Else
Me.Caption = "not found"
End If

'Call KillDupes(List8)
End Sub

Viewing all articles
Browse latest Browse all 21143

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>