[TuT] How to make an MSN Status Changer using Visual Studio 2010 [VB.net]

[OliverE]

[TuT] How to make an MSN Status Changer using Visual Studio 2010 [VB.net]

Project Files: [attachment=45]

[video=youtube]http://www.youtube.com/watch?v=05yVRrBZO_I[/video][/CENTER]


[hide=10][vb]
Imports System.Threading.Thread
Public Class Form1
Dim CTF As New MessengerAPI.Messenger

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CheckBox1.Checked = False Then
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Else
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
Sleep(2000)
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_AWAY
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_BUSY
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
CTF.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
End Sub
End Class
[/vb][/hide]​

 

[SGT.Code]

what does this do exactly? does it change your own status or does it change other ppls?

 

[OliverE]

Only changes your own, which I know is a bit pointless but its an example of how to use the Messenger API Library.

That and you can make some funky tools, like the annoy feature, that gets contacts attention, I talk about in the video or a status cycler that changes your status ever second, so the coloured border changes colour.

 

[SGT.Code]

oh the one that does it evry second sound nice

 

[Blessing]

No program is useless. This program is actually takes away 2 or 3 seconds of switching status lol. Cool program.

 

[Blessing]

I don't have Messenger API Library thing in my COM. help

 

[OliverE]

Wow that sucks, ill take alook tonight. Try googling until then.

Ive also created a Personal Message changer so you can trotate through diffenret messages every 5 seocnds or something

 

[TeraByTe_mybb_import8935]

Haha ... this is pretty cool ... I'ma add it into my program.

 

[OliverE]

Np, dont forget to give credits to thw forum

 

[noobcake123]

Hey, Do you know how to send messages to a specific contact in vb.net?

 

[OliverE]

Im not sure if its actually possible unfortunatly.

 

[AstriMc]

why dont you use this:

'Send message to all open conversation windows
m.Send.Message("This is my message")
'Send message to one specific contact
m.Send.Message("This is my message", "[email protected]")
'Send message to multiple contacts
m.Send.Message("This is my message", "[email protected]", "[email protected]", "[email protected]")

'Send nudge to all open conversation windows
m.Send.Nudge()
'Send nudge to one specific contact
m.Send.Nudge("[email protected]")
'Send nudge to multiple contacts
m.Send.Nudge("[email protected]", "[email protected]", "[email protected]")

 

[OliverE]

Nice. You can then replace the [email protected] with say textbox1.text so that you can enter the email when the application runs.
I havent tried this but i am sure if Astrimc posted it, it will.

 

[OliverE]

You need at least 10 posts to beable to download attachments.
Please dont spam to get that amount of posts.