Shoutbox

How can I do in vb6 to send a message to every contact on my list when i start msn???

I'll attach the Messenger API docs for you Since you're using VB6, it won't be all that difficult to do.
Hell, it's not hard in C++ either tbh!

Note: make sure you have Messenger API Type Library checked in References.

code:

---

Private objMessenger As MessengerAPI.Messenger

Private Sub Timer1_Timer()
Dim sent As Boolean
   
    Dim objMessengerContact As IMessengerContact
    Dim objMessengerContacts As IMessengerContacts

    Set objMessenger = New MessengerAPI.Messenger
    Set objMessengerContacts = m_objMessenger.MyContacts
If sent = False Then
    For Each objMessengerContact In objMessengerContacts
        If objMessengerContact.Status = MISTATUS_ONLINE Then
          objMessenger.InstantMessage objMessengerContact
          SendKeys "Insert Message Here"
          Call PostMessage("IMWindowClass", WM_CLOSE, 0, 0)
          sent = True
          End If
    Next
Else
MsgBox "Message Has Already Been Sent!"
End If
End Sub

---

that should do

Ok but I was trying to do it in a MSGPLUS Plugin. But thanks.

bah, im a nice person....

code:

---

'//////////////////////////////////////////////////////////////////////
'//                                                                  //
'// Purpose: Initialization function                                 //
'//                                                                  //
'//////////////////////////////////////////////////////////////////////
Public Function Initialize(ByVal nVersion As Long, ByVal sUserEmail As String, ByVal oMessenger As Object) As Boolean
    Initialize = True
Dim objMessengerContact As IMessengerContact
    Dim objMessengerContacts As IMessengerContacts
    Set objMessengerContacts = oMessenger.MyContacts
    For Each objMessengerContact In objMessengerContacts
        If objMessengerContact.Status = MISTATUS_ONLINE Then
          oMessenger.InstantMessage objMessengerContact
          SendKeys "Insert Message Here"
          Call PostMessage("IMWindowClass", WM_CLOSE, 0, 0)
          End If
    Next
End Function

---

goes inside the sample class module....

Thanks!

But I need one more thing.
I need the code to do the following:
When a user comes online, send a message to him.

Thanks in advance.

ok in the same class module...

code:

---

Public Sub oMessenger_OnContactStatusChange ( some thing something....)
if pMContact.status = MISTATUS_ONLINE then
          oMessenger.InstantMessage pMContact.signinname
          SendKeys "Insert Message Here"
          Call PostMessage("IMWindowClass", WM_CLOSE, 0, 0)
end if
end sub

---

something like that

that wont send it it needs sendkeys {enter} too

quote:

---

code:

---

Private objMessenger As MessengerAPI.Messenger
Private Sub Timer1_Timer()
Dim sent As Boolean
   
    Dim objMessengerContact As IMessengerContact
    Dim objMessengerContacts As IMessengerContacts

    Set objMessenger = New MessengerAPI.Messenger
    Set objMessengerContacts = m_objMessenger.MyContacts
If sent = False Then
    For Each objMessengerContact In objMessengerContacts
        If objMessengerContact.Status = MISTATUS_ONLINE Then
          objMessenger.InstantMessage objMessengerContact
          SendKeys "Insert Message Here"
          Call PostMessage("IMWindowClass", WM_CLOSE, 0, 0)
          sent = True
          End If
    Next
Else
MsgBox "Message Has Already Been Sent!"
End If
End Sub

---

---

When I try to put it it says 'User-defined type not defined!'
What do I do??

It says it in

code:

---

        Dim objMessengerContact As IMessengerContact
        Dim objMessengerContacts As IMessengerContacts

---

stick this above the initialise function.

code:

---

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

private const WM_USER = &10

---