Mensajes

No creo que te hallas "roto" la cabeza...
Primero tenes que saber cambiar el nick. Y si me decis que buscaste y no encontraste, no me queda otra que no creerte...
Bueno a partir de no se que version dejo de funcionar la propiedad FriendlyName, que te permitia cambiar el nick directamente. Ahora, lo que hay que hacer es abrir la pagina de opciones y usar SendKeys (si, es MUY incomodo). Entonces, para cambiar el msj personal es igual que con el nick, nada mas que con un TAB... Algo asi como esto:

Código [Seleccionar] Expandir


'Despues de declarar la API...
Public WithEvents MSN As Messenger
Private Sub Command1_Click()
    MSN.OptionsPages 0, 0
    SendKeys "{TAB}" 'saca esto si queres cambiar el nick
    SendKeys "Lo que quieras..." & "{ENTER}"
End Sub

Private Sub Form_Load()
    Set MSN = New Messenger
End Sub


Saludos.-

[\]

No estas poniendo \ entre C y :
Seria C:\EM_SEC.TXT
Y se puede reducir un poco el codigo:

Código [Seleccionar] Expandir


Private Sub Form_Load()
        Text1.Text = "c:\em_sec.txt"
        Open Text1 For Input As #1
        While Not EOF(1)
              Line Input #1, file_data$
              Text1.Text = Text1.Text & file_data$ & CrLf
        Wend
        Close #1
End Sub


Saludos.-

Tambien podes hacer un bucle por todos los controles. Por ejemplo:

Código [Seleccionar] Expandir


Dim Lbl as Label
For Each Lbl in Form1 'en vez de Form1 puede ir un Frame, PictureBox o cualquier otro contenedor
    Lbl.BackColor = vbRed
    Lbl.ForeColor = vbGreen
Next


Asi te ahoras tener que poner linea por linea. Saludos.-

Suponiendo que en un Text1 esta la info esa q mostraste:

Código [Seleccionar] Expandir


    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


Por si no sabes, la funcion InStr devuelve la posicion del texto que queres buscar. Por ejemplo:

Código [Seleccionar] Expandir


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



Saludos, espero que te sirva.-

A simple vista, hay un error aca:

Código [Seleccionar] Expandir


Get #1, , imagen
Para usar GET primero tenes que hacer un buffer. Para eso haces:

Código [Seleccionar] Expandir


imagen = Space(LOF(1)) 'Que haga un espacio del largo del archivo

Despues pones lo de Get...

Despues tendrias que ver si los datos se envian correctamente (si llega al otro lado todo junto) y si se reciben sin problemas...

Saludos.-

[SetCursorPos]

Busca info sobre la API SetCursorPos y mouse_event.-

Se nota que no has buscado nada... Simplemente busca como editar y guardar archivos. Hay montones de codigos.-

e puesto el codigo que me diste pero no va

No tenes que copiar y pegar. Adaptalo a tu programa.
Lo que podes hacer es que una variable vaya aumentando cada vez que guardas la imagen. Entonces siempre va a haber un nº distinto. Acordate de que la variable se tiene que mantener, asique usa una variable estatica o declarada en la parte de declaraciones. Algo asi:

Código [Seleccionar] Expandir


Static i as Integer
i = i + 1
SavePicture img, "X:\Foto" & i & ".bmp"


Saludos.-

si pones On Error Goto Error ' en caso d errpr nos vamos hasta la etiketa error

al final antes del End Sub as de poner:

Error:
End Sub

Si haces eso tampoco vas a saber que error esta ocurriendo. Saca el On Error resume next, corre el programa, y despues postea el error que te dice y que linea te marca.-

1º: Si vas a meter codigo usa las etiquetas correspondientes

2º:

Código [Seleccionar] Expandir

sckServer(Index).SendData enviar
Ahi no estas indicando el Index. Intenta poniendo intMax.

3º: En el ConnectionRequest antes de aceptar creas un socket nuevo y aceptas la conexion con ese (el que acabas de crear). No se que Index utiliza el socket en el DataArrival, pero te recomiendo cambiarlo a intMax, asi usa el ultimo de todos.

Fijate a ver si funciona con esos cambios. Saludos.-