MSN Flooder menu

User Tag List

Thread: MSN Flooder

Results 1 to 1 of 1
  1. #1
    FuryExploiting's Avatar Contributor
    Reputation
    166
    Join Date
    Mar 2012
    Posts
    340
    Thanks G/R
    0/0
    Trade Feedback
    2 (100%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    MSN Flooder


    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.
    enthusiastic forum participant (est. 2012)

    MSN Flooder

Similar Threads

  1. msn funny tool
    By Saint-Pasdoy in forum Community Chat
    Replies: 2
    Last Post: 04-24-2007, 06:23 PM
  2. Piss of your MSN Mates
    By omgwhokillme in forum Community Chat
    Replies: 1
    Last Post: 01-07-2007, 04:40 PM
  3. How to piss off people in ya MSN Messenger
    By The Ronin in forum Community Chat
    Replies: 4
    Last Post: 01-01-2007, 06:34 PM
  4. continued requests for stuff add me to MSN
    By sudnrage111 in forum WoW ME Questions and Requests
    Replies: 0
    Last Post: 10-04-2006, 10:08 AM
  5. Anyone got MSN? IRC?
    By janzi9 in forum Community Chat
    Replies: 3
    Last Post: 04-02-2006, 10:07 AM
All times are GMT -5. The time now is 08:02 AM. Powered by vBulletin® Version 4.2.3
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved. User Alert System provided by Advanced User Tagging (Pro) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
Google Authenticator verification provided by Two-Factor Authentication (Free) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
Digital Point modules: Sphinx-based search