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

OliverE

Power member.
Joined
Mar 19, 2011
Posts
3,687
Reacts
0
Reputation
0
Credits
5

[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]​
 
what does this do exactly? does it change your own status or does it change other ppls?
 
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.
 
No program is useless. This program is actually takes away 2 or 3 seconds of switching status lol. Cool program.
 
I don't have Messenger API Library thing in my COM. help
 
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
 
why dont you use this:

Code: 
'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", "abc@abc.com")
'Send message to multiple contacts
m.Send.Message("This is my message", "abc@abc.com", "cd@cddd.com", "ccc@ccc.com")

'Send nudge to all open conversation windows
m.Send.Nudge()
'Send nudge to one specific contact
m.Send.Nudge("abc@abc.com")
'Send nudge to multiple contacts
m.Send.Nudge("abc@abc.com", "cd@cddd.com", "ccc@ccc.com")
 
Nice. You can then replace the abc@abc.com 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.
 
You need at least 10 posts to beable to download attachments.
Please dont spam to get that amount of posts.
 
You must log in or register to reply here.
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…