Public Sub NEWCHATDATA(data() As Byte)
Dim arrvmsg As String
arrvmsg = BytesToString(data, 0, data.Length, "UTF-8")
arrvmsg = arrvmsg.Trim
arrvmsg = arrvmsg.Replace(CRLF, "")
If arrvmsg.Length = 0 Then
Log("Error")
Return
End If
Handlcmdstrings(arrvmsg)
End Sub
Public Sub Handlcmdstrings(CMDS As String)
Dim userlinadd As String
Try
If CMDS.Length = 0 Then
Log("Error")
Return
End If
Log(CMDS)
paramnum = Regex.Split("\&", CMDS)
If paramnum(0) = "1GETNAMES" Then
userlinadd = paramnum(1)
Log(paramnum.Length)
CallSub2(Main, "DISPLAYUSER", userlinadd)
End If
Catch
Log("Error")
End Try
End Sub