[Source code]Annoying MSN Status

Well i was bored and i made one program that get you Online And Offline quickly. I will add the source file if you want to download it.

1. Add 2 buttons,2 timers and 1 textbox
2. Double click the form and down of Public Class form1 add this:

Private WithEvents ni As New NotifyIcon
Dim msn As New MessengerAPI.Messenger

3. Button1 Text = Start
Button2 text = Stop
TextBox1 Text = 1000
4. Double click Button 1 and add this:

Timer1.Enabled = True
Timer1****terval = (TextBox1.Text)
Timer2****terval = (TextBox1.Text)

5. Double Click Button 2 and add this:

Timer1.Enabled = False
Timer2.Enabled = False
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE

6.Double click Timer 1 and add this:

If msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE Then
Timer2.Enabled = True
Timer1.Enabled = False
Else
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
End If

7.Double click timer 2 and add this:

If msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE Then
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
Timer1.Enabled = True
Timer2.Enabled = False
Else
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
End If

8. Finally it should look like this:

Public Class Form1
Private WithEvents ni As New NotifyIcon
Dim msn As New MessengerAPI.Messenger
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Timer1****terval = (TextBox1.Text)
Timer2****terval = (TextBox1.Text)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
Timer2.Enabled = False
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE Then
Timer2.Enabled = True
Timer1.Enabled = False
Else
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE
End If
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_ONLINE Then
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
Timer1.Enabled = True
Timer2.Enabled = False
Else
msn.MyStatus = MessengerAPI.MISTATUS.MISTATUS_INVISIBLE
End If
End Sub
End Class

9. Save And build it.

VirusTotal
Jotti's malware scan

Report Any Errors here!

[Source code]Annoying MSN Status

Post a Reply

Similar Threads

Tags for this Thread