I have ALOT of questions, as you can see... Heres how to help me with them all...

[Dementia Freaks]

If you are good with Visual Basic, maybe you can help, by adding me to your MSN Messenger. I don't like creating so many new threads, and I bet it's pretty annoyin for you people to. Maybe not. But anyway, if you are good with VB, maybe you can be nice, and help, by adding me to your MSN Messenger buddy list. My MSN contact email is:

[email protected]

thats not my email, i just use it for MSN. My email is the same, but, @yahoo.com. Please add me!

[Wak]

It's an MSN sorta thing written in C++ MFC with Code. Helped me, but also, my MSVC has gone rooted, and I can't get it again till next week. :S

http://www.codeproject.com/useritems/msn_messenger.asp

[Wak]

Option Explicit
Dim mm As MsgrObject
Dim msnApp As New Messenger.MessengerApp
Dim bFlag As Boolean

Private Sub cmdLogOff_Click()
    mm.Logoff
End Sub

Private Sub tmrMain_timer()
    Select Case mm.LocalState
    Case MSTATE_ONLINE
        lblStatus = "Status: Online"
    Case MSTATE_BE_RIGHT_BACK
        lblStatus = "Status: Be right Back"
    Case MSTATE_OFFLINE
        lblStatus = "Status: Offline"
    Case MSTATE_AWAY
        lblStatus = "Status: Away"
    Case MSTATE_BUSY
        lblStatus = "Status: Busy"
    Case MSTATE_OUT_TO_LUNCH
        lblStatus = "Status: Out to Lunch"
    Case MSTATE_ON_THE_PHONE
        lblStatus = "Status: On the Phone"
    Case MSTATE_UNKNOWN
        lblStatus = "Status: Unknown"
    Case MSTATE_IDLE
        lblStatus = "Status: Idle"
    Case MSTATE_LOCAL_SYNCHRONIZING_WITH_SERVER
        lblStatus = "Status: Synchronizing Server"
    Case MSTATE_LOCAL_FINDING_SERVER
        lblStatus = "Finding Server"
    Case MSTATE_LOCAL_DISCONNECTING_FROM_SERVER
        lblStatus = "Status: Disconnecting"
    Case MSTATE_INVISIBLE
        lblStatus = "Status: Invisible"
    Case MSTATE_LOCAL_CONNECTING_TO_SERVER
        lblStatus = "Status: Connecting to Server"
    End Select
    
    If bFlag = True Then
        bFlag = False
        mm.LocalState = MSTATE_INVISIBLE
        DoEvents
        Exit Sub
    Else
        bFlag = True
        mm.LocalState = MSTATE_ONLINE
        DoEvents
    End If
End Sub

Private Sub Form_Load()
    Set mm = New MsgrObject
    Me.Caption = mm.LocalLogonName
    lblEmail = "You have " & 0
    txtName.Text = mm.LocalFriendlyName
End Sub

Public Sub mm_OnLogoff()
    MsgBox "User logged off"
End Sub

Private Sub mm_OnLogonResult(ByVal hr As Long, ByVal pService As Messenger.IMsgrService)
    MsgBox ("User " + mm.LocalFriendlyName + mm.LocalLogonName + " has logged on.")
End Sub

Private Sub cmdInviteMessenger_Click()
    mm.SendCustomInviteMail "johhny", &O0, &O0, &O0, "What the hell is this??? The first person to reply, get's.... ummm.  something!"
End Sub

Piss any1 on your MSN list off!!!!!!!!

You'll need a timer, 2 buttons, and 3 labels, their names are used at various places within the code

[adamcox]

Why will that pi*s off people?

[Wak]

By setting the status property to invisible, it shows you as offline to everyone on your list, and then when you log back in, it shows you as online, and a little message box pops up, in the left corner. If you do this constantly, like every .2 or a second, it will clutter the screens of the people from your list, with online boxes with your name. It can get very annoying... 'Advertising'