Recuperar Datos Server COD4 y poner en ListView (Source)

[enterariel]

Hola amigos HACKERs 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 [Seleccionar] Expandir



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




[..:::][culd][:::..]

Como vas a poner en un foro "HACKER" tu contraseña RCON!!!!

Por dios... YA TE HACKEARON EL SERVIDOR!!!

ERROR NUMBER ONE!!!!

[enterariel]

no te preocupes por eso es un server para el expiremento luego no hay problema con eso cualquiera lo puede utilizar para hacer cualquier cosa si se apaga se prende automatico esta preparado para eso mi amigo

[Edu]

Dudo que alguien de los que miren este post quiera o pueda hacerte daño

[Elemental Code]

Como vas a poner en un foro "HACKER" tu contraseña RCON!!!!

Por dios... YA TE HACKEARON EL SERVIDOR!!!

ERROR NUMBER ONE!!!!

Tu error number one fue pensar que todos somos tan hijos de p**a como vos.

Para ordenar eso proba de jugar con el comando split a ver que conseguis.

[Sancho.Mazorka]

Yo conozco el servidor y he jugado ahi, pero lo primero que hubiera hecho seria avisarle por MP que la cambie. No pueden hacer nada grave con la rcon pero pueden molestar un buen rato.

Lo que podes hacer es separar los renglones con un

Código [Seleccionar] Expandir

Lineas = Split(strdata, vbCrLf)

y con esto sabes cuantos jugadores hay (1 renglon = 1 jugador; el -3 es para restar los 3 primeros renglones)

Código [Seleccionar] Expandir

Ubound(Lineas) - 3

y despues para separar los distintos campos los dividis con la funcion Mid, si te fijas cada campo tiene una longitud fija

num = 3
score = 6
ping = 5
GUID = 31
name = 16
lastmsg = 7
address = 22
qport = 7
rate = resto de los caracteres

Para eliminar los espacios de las cadenas podes usar

Código [Seleccionar] Expandir

Trim(Cadena)    -> Trim(" hola ")  = "hola"
RTrim(Cadena)  -> RTrim(" hola ") = " hola"
LTrim(Cadena)  -> LTrim(" hola ") = "hola "



Existen varios programas que ya hacen esto y funcionan muy bien:

* ModernRcon v0.8 (mi favorito, es muy simple)
* CoD RconTool (muy sobrecargado de funciones)
* RconMax (MW) (muy bueno, bien completo y simple)


Nick in-game: B101-leo
xFire: sanchomazorka


Saludos, Sancho.Mazorka     :¬¬