Ahora como puedo meter esos datos en un control ListView. Dejo aca una imagen de como me trae los datos del servidor.
Asi es como quiero que quede
Aca dejo mi code:
Código:
Private Sub cmdConectar_Click()
Winsock1.Close
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemoteHost = "190.210.70.77"
Winsock1.RemotePort = 28964
Winsock1.Connect
End Sub
Private Sub cmdStatus_Click()
rcon = "lugano"
Winsock1.SendData Chr(255) & Chr(255) & Chr(255) & Chr(255) & "rcon " & rcon & " " & "status"
End Sub
Private Sub winsock1_DataArrival(ByVal bytestotal As Long)
'Dim strdata As String
'Winsock1.GetData strdata, vbString, bytestotal
'txtOutput = strdata
Dim temp As String
Dim posG, posD, i As Integer
Dim tabJoueurs() As String
Winsock1.GetData strdata, vbString
strdata = Replace(strdata, "^0", "")
strdata = Replace(strdata, "^1", "")
strdata = Replace(strdata, "^2", "")
strdata = Replace(strdata, "^3", "")
strdata = Replace(strdata, "^4", "")
strdata = Replace(strdata, "^5", "")
strdata = Replace(strdata, "^6", "")
strdata = Replace(strdata, "^7", "")
strdata = Replace(strdata, Chr(255) & Chr(255) & Chr(255) & Chr(255) & "print" & vbLf, "")
strdata = Replace(strdata, vbLf, vbCrLf)
'txtOutput = txtOutput & vbCrLf & Time & vbCrLf & strdata
txtOutput = txtOutput & strdata
txtOutput.SetFocus
txtOutput.SelStart = Len(txtOutput)
End Sub