Imprimir Página - Recuperar Datos Server COD4 y poner en ListView (Source)

Título: Recuperar Datos Server COD4 y poner en ListView (Source)
Publicado por: enterariel en 8 Enero 2011, 00:00 am

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.

(http://img535.imageshack.us/img535/6968/statusan.png)

Asi es como quiero que quede

(http://img593.imageshack.us/img593/7382/listaplayer.png)

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

Título: Re: Recuperar Datos Server COD4 y poner en ListView (Source)
Publicado por: ..:::][culd][:::.. en 8 Enero 2011, 00:46 am

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

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

ERROR NUMBER ONE!!!!

Título: Re: Recuperar Datos Server COD4 y poner en ListView (Source)
Publicado por: enterariel en 8 Enero 2011, 17:04 pm

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

Título: Re: Recuperar Datos Server COD4 y poner en ListView (Source)
Publicado por: Edu en 8 Enero 2011, 22:59 pm

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

Título: Re: Recuperar Datos Server COD4 y poner en ListView (Source)
Publicado por: Elemental Code en 9 Enero 2011, 04:20 am

Cita de: ..:::][culd][:::.. en 8 Enero 2011, 00:46 am

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.

Título: Re: Recuperar Datos Server COD4 y poner en ListView (Source)
Publicado por: Sancho.Mazorka en 10 Enero 2011, 08:47 am

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:

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:

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:

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 :¬¬

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: enterariel en 8 Enero 2011, 00:00 am