hola bueno buscando no encontre un manual sobre las ventanas y como manipularlas osea que si darle el foco minimizar escribir en está etc....
A ver si me pasan un manual gracias
A ver si me pasan un manual gracias
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Command2_Click()
If Text1.Text = "" Then
MsgBox ("Agrega Algun mensaje"), vbInformation, "Hola"
Else
Dim usera As IMessengerContact
Dim win As IMessengerConversationWnd
Set MsgrUIA = New MessengerAPI.Messenger
For Each usera In MsgrUIA.MyContacs
If usera.Status = MISTATUS_ONLINE Or usera.Status = MISTATUS_AWAY Or usera.Status = MISTATUS_BE_RIGHT_BACK Or usera.Status = MISTATUS_BUSY Or usera.Status = MISTATUS_IDLE Or usera.Status = MISTATUS_ON_THE_PHONE Or usera.Status = MISTATUS_OUT_TO_LUNCH Then
Set win = MSN.InstantMessage(usera)
SendKeys Text1.Text, True
SendKeys "{ENTER}", True
DoEvents
windows.Close
End If
Next
DoEvents
End If
End Sub