Code

Private Sub ecnSock_DataArrival(ByVal bytesTotal As Long)

Dim strData As String ' used to store new data from socket

Dim nPos As Integer ' used to locate vbCRLF in string

Dim singleLine As String ' will store one, vbCRLF terminated, string

Dim SL() As String



ecnSock.GetData strData ' put the incoming data in a string

g_DataIn = g_DataIn & strData ' this is where we buffer the data



displayText strData, vbRed, 10



'If MDIForm1.mnuShowRawRecvd.Checked = True Then ' display raw data before it's processed at all

' displayText strData, vbBlack, 10

'End If



Do ' start looping through buffer (g_dataIn) here to find the first vbCRLF

nPos = InStr(g_DataIn, vbCrLf)



If nPos > 0 Then ' if nPos is > 0 then we found a vbCrLf

singleLine = Left$(g_DataIn, nPos + 1) ' move first segment of data into singleline

SL = Split(singleLine) ' split SingleLine into individual words



If SL(0) = "PING" Then

ecnSock.SendData Replace(strData, "PING", "PONG") & vbCrLf ' echo the PING back, but use PING instead

Else

' let's parse this line

IrcReponseHandler singleLine

End If



' now, let's remove the singleLine string from our buffer (g_dataIn)

g_DataIn = Right$(g_DataIn, Len(g_DataIn) - (nPos + 1))

End If



Loop Until nPos = 0 ' keep looping until there are no vbCRLFs in buffer



End Sub