Foro de elhacker.net

<player name="personaje" id="id del jugador" account="cuenta" ......

    Dim p1 As Integer, p2 As Integer, ID As String, Todo As String, Antes As String, Despues As String
    Todo = Text1 'text1 va a contener la linea <player name="...
    p1 = InStr(1, Todo, "id=", vbTextCompare) 'buscamos desde el principio hasta que encuentre ID= (esto nos devuelve la posicion de ID=)
    p2 = InStr(p1 + 4, Todo, """", vbTextCompare)
    'el +4 y -4 es porque ID=" ocupa 4 epacios, entonces empezamos a guardar el nombre sin contar esos espacios
    ID = Mid(Todo, p1 + 4, p2 - p1 - 4) 'la variable ID almacena el ID obtenido
    
    'Si lo queres cambiar podes poner:
    Antes = Mid(Todo, 1, p1 + 3) 'guardas lo que esta antes de ID
    Despues = Mid(Todo, p2) 'lo que esta despues...
    ID = "NYlOn =)" 'cambias ID
    Todo = Antes & ID & Despues 'metes todo junto en una variable
    MsgBox Todo 'aca lo mostras =P

Texto = "Hola como va"
MsgBox InStr(1, Texto, "como") 'me va a devolver 6

Private Sub Command1_Click()
Dim id As String

n = InStr(1, Text1.Text, "id=" & Chr(34), vbBinaryCompare)

' buscará en el text1 el texto " id=" "

m = InStr(n + 4, Text1.Text, Chr(34), vbBinaryCompare)
' A partir de " id=" " buscará la siguiente " (A n se le suma 4 porque es la longitud de id="). n+4 es la posición donde empieza la id.

id = Mid(Text1.Text, n + 4, m - (n + 4))
'Se escojerá la id, como hemos dicho antes n+4 es la posición donde empieza la id y m - (n+4) nos dará la longitud ya que m es la posición de la siguiente coma.

MsgBox id
End Sub