[maruata]

I actually need a help! I have proposed the application. I designed the layout and some function to fetch all the available network adapter.

I want to display the network traffic in-out/download-upload in a graph (Line Graph, Bar Chard, etc)

[img]http://img840.imageshack.us/img840/4254/networkbandwidth.png[/img]

You can download the source which I programmed (only yet 10%) and can have a look, if it is interesting, please help me.

Download the Source

For the password, please post on the thread first. I will PM you.

Here is the proof that this is not a virus!

Code

Public Class frmMain
    Private WLength As Integer, WHeight As Integer, scale As Integer

    Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click
  Try
    End
  Catch ex As Exception
    MsgBox(String.Format("Error Occured while closing the program!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - App Closing")
  End Try
    End Sub

    Private Sub AboutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click
  Try
    MsgBox(String.Format("Programmed and Designed by :{0}{0}Vanlalruata Hnamte{0}[email protected]{0}www.zosoftnet.com", vbCrLf), MsgBoxStyle.Information, "About!")
  Catch ex As Exception
    MsgBox(String.Format("Error Occured while trying to open about-message!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")
  End Try
    End Sub

    Private Sub frmMain_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  Try
    My.Settings.MyLocation = Me.Location
    My.Settings.MySize = Me.Size
    My.Settings.MyBackColor = Me.BackColor
    My.Settings.IsFirstRun = False
    My.Settings.MyTransperancyLevel = Me.Opacity
    My.Settings.Save()
    Me.NotificationAreaApp.Dispose()
  Catch ex As Exception
    MsgBox(String.Format("Error Occured while closing the Form!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")
  End Try
    End Sub

    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  Try
    Me.Opacity = My.Settings.MyTransperancyLevel
    Me.Location = My.Settings.MyLocation
    Me.Size = My.Settings.MySize
    Me.BackColor = My.Settings.MyBackColor

    Dim monitor As New NetworkMonitor()

    If monitor.Adapters.Length > 0 Then

    End If

  Catch ex As Exception
    MsgBox(String.Format("Error Occured while trying to open the Form!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")
  End Try
    End Sub

    Private Sub frmMain_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
  Try
    If ClientSize.Width > 40 AndAlso ClientSize.Height > 40 Then
    WLength = ClientSize.Width
    WHeight = ClientSize.Height
    End If
  Catch ex As Exception
    MsgBox(String.Format("Error Occured while trying to resize the form!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")
  End Try
    End Sub

    Private Sub PictureBox1_MouseHover(sender As Object, e As System.EventArgs) Handles PictureBox1.MouseHover
  Try
    Me.CloseButton.Visible = True
  Catch ex As Exception
    MsgBox(String.Format("Error Occured!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")
  End Try
    End Sub

    Private Sub PictureBox1_MouseLeave(sender As Object, e As System.EventArgs) Handles PictureBox1.MouseLeave
  Try
    Timer1.Start()
  Catch ex As Exception
    MsgBox(String.Format("Error Occured!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")
  End Try
    End Sub

    Private Sub CloseButton_Click(sender As System.Object, e As System.EventArgs) Handles CloseButton.Click
  Me.Hide()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
  Try
    Me.CloseButton.Visible = False
    Timer1.Stop()
  Catch ex As Exception
    MsgBox(String.Format("Error Occured!{0}{0}{1}", vbCrLf, ex), MsgBoxStyle.Exclamation, "Error - About Load")
  End Try
    End Sub
End Class

[KvisteN]

Hey, could i maybe have the password? Thanks in advance! :)

[Anatoxis]

Very nice, can you send me the passwort plz? Thanks a lot!

[arun9020]

could i have the password please....

[Trollosaur Rex]

Can i have the password? :) Thanks for the nice share :D

[Deadhy]

Looks amazing, never seen this bevore in VB.Net!
May I get the password please?

[maruata]

Now the file has been updated to choose the adapter list....The Password is still the same!

[silva555]

May i have the password please? Thanks ;)

[superchunk]

may i have the password please? it looks very niice

[memesbro]

So this doesn't actually do anything yet .. why did you post this?

[ubbelol]

Don't put everything inside try..catch statements. -.- MessageBox.Show is not going to throw an exception, no need to create a handler for it along with a lot of other stuff. Only use it where you predict there might be an error.

[Toroth]

Thanks for the release I will defently be using this :D

[bob42]

Thank you for sharing. This looks like it was a fun project. ^_^

[Trolly]

Hey, can you please give me the Password for this?
Looks interesting.

[g1ll1s]

This looks amazing, can I get the password? You have done an excellent job.