
07/01/2011, 17:11
|
| | Fecha de Ingreso: marzo-2009
Mensajes: 8
Antigüedad: 16 años Puntos: 0 | |
Recuperar Datos Server COD4 y poner en ListView (Source) Hola amigos estoy creando un programita que se conecta con el servidor del juego Call of Duty 4, lo que quiero hacer es para manejar el servidor desde el programa que estoy haciendo. Ya logre conectar con el servidor y recibir el estado y lista de player.
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
|