
It's basicly my first project using an API. If you want there source, here you go:
Code:
Imports MessengerAPI
Public Class Form1
Dim msn As New MessengerAPI.Messenger
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If msn.MyStatus = MISTATUS.MISTATUS_OFFLINE Then
MsgBox("You do not appear to be logged on")
Label5.Text = "Please logon MSN"
Label5.ForeColor = Color.Red
Timer1.Stop()
End If
If msn.MyStatus = MISTATUS.MISTATUS_ONLINE Then
MsgBox("MSN Flooder have started. Your MSN will now start disconnecting/reconnecting")
Timer1.Start()
Label5.Text = "Status: flooding..."
Label5.ForeColor = Color.Green
Button2.Enabled = True
Button1.Enabled = False
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Enabled = False
Timer1.Stop()
Label5.Text = "Status: stopped flooding"
Me.Enabled = True
Button1.Enabled = True
Button2.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
msn.MyStatus = MISTATUS.MISTATUS_INVISIBLE
msn.MyStatus = MISTATUS.MISTATUS_ONLINE
Label4.Text = Label4.Text + 1
If msn.MyStatus = MISTATUS.MISTATUS_OFFLINE Then
Label5.Text = "Status: MSN have disconnected you"
Label5.ForeColor = Color.Red
Form2.Show()
Timer1.Stop()
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class
And the code for form 2 which looks like:

Code:
Imports MessengerAPI
Public Class Form2
Dim msn As New MessengerAPI.Messenger
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
Form1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If msn.MyStatus = MISTATUS.MISTATUS_ONLINE Then
Form1.Timer1.Start()
Form1.Label5.Text = "Status: reconnected, flooding..."
Form1.Label5.ForeColor = Color.Green
Form1.Enabled = True
Me.Close()
End If
End Sub
End Class
Enjoy.