Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Recuperar Datos Server COD4 y poner en ListView (Source)

Estas en el tema de Recuperar Datos Server COD4 y poner en ListView (Source) en el foro de Visual Basic clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 07/01/2011, 17:11
 
Fecha de Ingreso: marzo-2009
Mensajes: 8
Antigüedad: 15 años, 1 mes
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
  #2 (permalink)  
Antiguo 07/01/2011, 17:30
Avatar de culd  
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 20 años, 6 meses
Puntos: 19
Respuesta: Recuperar Datos Server COD4 y poner en ListView (Source)

En primer lugar, estas mostrando la contraseña rcon de tu servidor... Te diria que edites el mensaje y que pongas ***** en esa contraseña....

En segundo lugar, cambia tu contraseña por que yo ya la se, y me imagino que alguien mas tambien la vio...

En tercer lugar, lo que tenes que hacer es limpiar el dato, por que te llega todo junto, tendrias que ir separando por caracteres, buscar marcas de separacion etc.
  #3 (permalink)  
Antiguo 07/01/2011, 18:06
Avatar de culd  
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 20 años, 6 meses
Puntos: 19
Respuesta: Recuperar Datos Server COD4 y poner en ListView (Source)

Como lo predije, alquien se hiso el vivo con el password

Lee tu mensaje privado de aca del foro
  #4 (permalink)  
Antiguo 08/01/2011, 10:06
 
Fecha de Ingreso: marzo-2009
Mensajes: 8
Antigüedad: 15 años, 1 mes
Puntos: 0
Respuesta: Recuperar Datos Server COD4 y poner en ListView (Source)

si no te preocupes por eso es para experimento el server si alguien lo apaga o cambia el pass no importa tanto

Etiquetas: cod4, dedicado, rcon, server
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 21:46.