elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Recuperar Datos Server COD4 y poner en ListView (Source)		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Recuperar Datos Server COD4 y poner en ListView (Source)  (Leído 4,711 veces)
enterariel

Desconectado Desconectado

Mensajes: 29


Ver Perfil
Recuperar Datos Server COD4 y poner en ListView (Source)
« 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.



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
En línea
..:::][culd][:::..

Desconectado Desconectado

Mensajes: 3


Ver Perfil
Re: Recuperar Datos Server COD4 y poner en ListView (Source)
« Respuesta #1 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!!!!
En línea
enterariel

Desconectado Desconectado

Mensajes: 29


Ver Perfil
Re: Recuperar Datos Server COD4 y poner en ListView (Source)
« Respuesta #2 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
En línea
Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: Recuperar Datos Server COD4 y poner en ListView (Source)
« Respuesta #3 en: 8 Enero 2011, 22:59 pm »
Dudo que alguien de los que miren este post quiera o pueda hacerte daño
En línea
Elemental Code


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: Recuperar Datos Server COD4 y poner en ListView (Source)
« Respuesta #4 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.
En línea
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas
Sancho.Mazorka


Desconectado Desconectado

Mensajes: 480


Gamer & Programador


Ver Perfil WWW
Re: Recuperar Datos Server COD4 y poner en ListView (Source)
« Respuesta #5 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     :¬¬
« Última modificación: 10 Enero 2011, 08:51 am por Sancho.Mazorka » En línea
Ganador Xeon Web Server ! ! !    Sancho.Mazorka :D
http://foro.elhacker.net/index.php/topic,171903.75.html
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Vector ilimitado e introducir los datos en un ListView.
Programación Visual Basic 		askrator 3 2,285 Último mensaje 27 Julio 2007, 10:57 am
por askrator
[Source] Algunas utilidades para los ListView « 1 2 »
Programación Visual Basic 		LeandroA 10 11,479 Último mensaje 27 Abril 2008, 11:45 am
por [Zero]
eliminar de una base de datos desde un listview
Programación Visual Basic 		yochy20 2 4,398 Último mensaje 30 Octubre 2008, 00:32 am
por seba123neo
Montar server COD4 MW1 (Soluccionado)
Juegos y Consolas 		anonimo12121 4 6,231 Último mensaje 10 Enero 2010, 12:55 pm
por anonimo12121
Problema al poner controles dentro de un ListView.
Programación Visual Basic 		F3B14N 1 1,949 Último mensaje 13 Abril 2011, 03:53 am
por LeandroA
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines