16 Mar

Network Analyser

By saadry

This simple application has one simple aim, to determine using ping request, if the registered device is responding.

This is a free program but icons are not to be re-used.

You can download this free application which helps you to monitor your computer connectivity.

 

Very intuitive you can set up the address of your:

Server :

You can register another device:

Register your Router:
 

And Register a Static Web IP

No information will be transmitted from this application.

If you want to see the source of the program I can make them available.

This program is made available to students or professionals interested in learning more about Vb.Net technology. We withdraw any responsibility for any unethical or illegal uses of this program.

You can Download the program Network Analyser.

By downloading this program you agree with our terms and conditions and to use this program exclusively for academic insights. This program should not be used for commercial purposes. We decline all responsibility for other uses of this program.

If you have any inquiries please contact us.

Download the Program : Network Analyser

By downloading this program you agree with our terms and conditions and to use this program exclusively for academic insights. This program should not be used for commercial purposes. We decline all responsibility for other uses of this program.

Unzip the file

After double click on setup.exe

A Security Windows will appear and you should click on [Install]

And you should then see the program installed.

Adjust Window

Simply click on [Affichage] >Minimal for small window

and [Affichage] > Maximum for large window

Configurations

Configurations can be access under the navigation bar [Menu] >[Configurations]

Timer

By default the timer is set to run all network connection test every 10 minutes but you can modify that:

Simply press up or down the minutes and it will be recorded automatically.

Server

Enter your server name or IP and click [Save]

Router

By default router IP is set as 192.168.1.1. To change it simply modify it and click [Save].

Web

By default Web IP is set to 8.8.8.8 which is the google server.  To change it simply modify it and click [Save].

LAN

By default not device is register but you can simply add one and click [Save].

Run Test

Simply click on the image or the button under the image to run a specific test.

To test all the network go to [Menu] > [Test]

 

 

Here is the code

Imports System.Net
Imports System.Threading
Public Class Manager

#Region "[Actions] On click Image"
#Region "[Check Server]"
Private Sub PB_Server_Click(sender As Object, e As EventArgs) Handles PB_Server.Click
PB_Server.Image = IL.Images(10)
If Ping(My.Settings.Server).Statut = E_Status.Broken Then
PB_Server.Image = IL.Images(14)
ElseIf Ping(My.Settings.Server).Statut = E_Status.Offline Then
PB_Server.Image = IL.Images(13)
ElseIf Ping(My.Settings.Server).Statut = E_Status.Online Then
PB_Server.Image = IL.Images(12)
End If
End Sub
#End Region
#Region "[Check Router]"
Private Sub PB_Routeur_Click(sender As Object, e As EventArgs) Handles PB_Routeur.Click
PB_Routeur.Image = IL.Images(5)
If Ping(My.Settings.Router).Statut = E_Status.Broken Then
PB_Routeur.Image = IL.Images(9)
ElseIf Ping(My.Settings.Router).Statut = E_Status.Offline Then
PB_Routeur.Image = IL.Images(8)
ElseIf Ping(My.Settings.Router).Statut = E_Status.Online Then
PB_Routeur.Image = IL.Images(7)
End If
End Sub
#End Region
#Region "[Check Web]"
Private Sub PB_Web_Click(sender As Object, e As EventArgs) Handles PB_Web.Click
PB_Web.Image = IL.Images(15)
If Ping(My.Settings.Web).Statut = E_Status.Broken Then
PB_Web.Image = IL.Images(19)
ElseIf Ping(My.Settings.Web).Statut = E_Status.Offline Then
PB_Web.Image = IL.Images(18)
ElseIf Ping(My.Settings.Web).Statut = E_Status.Online Then
PB_Web.Image = IL.Images(17)
End If
End Sub
#End Region
#Region "[Check Lan]"
Private Sub PB_LAN_Click(sender As Object, e As EventArgs) Handles PB_LAN.Click
PB_LAN.Image = IL.Images(0)
If Ping(My.Settings.LAN).Statut = E_Status.Broken Then
PB_LAN.Image = IL.Images(4)
ElseIf Ping(My.Settings.LAN).Statut = E_Status.Offline Then
PB_LAN.Image = IL.Images(3)
ElseIf Ping(My.Settings.LAN).Statut = E_Status.Online Then
PB_LAN.Image = IL.Images(2)
End If
End Sub
#End Region
#End Region
#Region "[Form Load]"
Private Sub Manager_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Txt_Server.Text = My.Settings.Server
Txt_Router.Text = My.Settings.Router
Txt_LAN.Text = My.Settings.LAN
Txt_Web.Text = My.Settings.Web
Counter.Value = My.Settings.Counter
CheckForIllegalCrossThreadCalls = False
If My.Settings.Load_full = False Then
Me.Size = New Size(417, 168)
Else
Me.Size = New Size(826, 423)
End If
End Sub
#End Region
#Region "[Testing Region]"
'''
''' This Sub runs all the tests
'''

Public Sub Test_All()
PB_Server.Image = IL.Images(10)
PB_Routeur.Image = IL.Images(5)
PB_Web.Image = IL.Images(15)
PB_LAN.Image = IL.Images(0)
Thread.Sleep(2000)
If Ping(My.Settings.Server).Statut = E_Status.Broken Then
PB_Server.Image = IL.Images(14)
ElseIf Ping(My.Settings.Server).Statut = E_Status.Offline Then
PB_Server.Image = IL.Images(13)
ElseIf Ping(My.Settings.Server).Statut = E_Status.Online Then
PB_Server.Image = IL.Images(12)
End If
If Ping(My.Settings.Router).Statut = E_Status.Broken Then
PB_Routeur.Image = IL.Images(9)
ElseIf Ping(My.Settings.Router).Statut = E_Status.Offline Then
PB_Routeur.Image = IL.Images(8)
ElseIf Ping(My.Settings.Router).Statut = E_Status.Online Then
PB_Routeur.Image = IL.Images(7)
End If
If Ping(My.Settings.Web).Statut = E_Status.Broken Then
PB_Web.Image = IL.Images(19)
ElseIf Ping(My.Settings.Web).Statut = E_Status.Offline Then
PB_Web.Image = IL.Images(18)
ElseIf Ping(My.Settings.Web).Statut = E_Status.Online Then
PB_Web.Image = IL.Images(17)
End If
If Ping(My.Settings.LAN).Statut = E_Status.Broken Then
PB_LAN.Image = IL.Images(4)
ElseIf Ping(My.Settings.LAN).Statut = E_Status.Offline Then
PB_LAN.Image = IL.Images(3)
ElseIf Ping(My.Settings.LAN).Statut = E_Status.Online Then
PB_LAN.Image = IL.Images(2)
End If
Thread.Sleep(1000)
End Sub
#End Region
#Region "[Structures & Enumeration]"
Public Enum E_Status
Offline
Online
Running
Broken
Not_Detected
End Enum
Public Structure E_Test
Public Statut As E_Status
Public Msg As String
End Structure
#End Region
#Region "[Functions]"



''' This functions will evaluates if the given device is reachable
Public Function Ping(ByVal item As String) As E_Test
Dim Result As New E_Test
Result.Statut = E_Status.Running
#Region ""
If item = Nothing Then
MsgBox("Unable to evaluate empty reference!")
Result.Statut = E_Status.Offline
Return Result
Exit Function
End If
#End Region
Try
My.Computer.Network.Ping(item)
Result.Statut = E_Status.Online
Catch ex As Exception
Result.Statut = E_Status.Broken
Result.Msg = ex.Message
End Try
Return Result
End Function
#End Region
#Region "[Buttons Clicks]"
Private Sub ButtonX5_Click(sender As Object, e As EventArgs) Handles ButtonX5.Click
If Not Txt_Server.Text = Nothing Then
My.Settings.Server = Txt_Server.Text
My.Settings.Save()
MsgBox("Saved")
Else
MsgBox("Cannot be empty!")
End If
End Sub

Private Sub ButtonX6_Click(sender As Object, e As EventArgs) Handles ButtonX6.Click
If Not Txt_Router.Text = Nothing Then
My.Settings.Router = Txt_Router.Text
My.Settings.Save()
MsgBox("Saved")
Else
MsgBox("Cannot be empty!")
End If
End Sub

Private Sub ButtonX7_Click(sender As Object, e As EventArgs) Handles ButtonX7.Click
If Not Txt_Web.Text = Nothing Then
My.Settings.Web = Txt_Web.Text
My.Settings.Save()
MsgBox("Saved")
Else
MsgBox("Cannot be empty!")
End If
End Sub

Private Sub ButtonX8_Click(sender As Object, e As EventArgs) Handles ButtonX8.Click
If Not Txt_LAN.Text = Nothing Then
My.Settings.LAN = Txt_LAN.Text
My.Settings.Save()
MsgBox("Saved")
Else
MsgBox("Cannot be empty!")
End If
End Sub
Public i As Integer = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
i += 1
Count.Text = i
n.Text = (Counter.Value * 60) - i
If i = Counter.Value * 60 Then
PB_Server.Image = IL.Images(10)
PB_Routeur.Image = IL.Images(5)
PB_Web.Image = IL.Images(15)
PB_LAN.Image = IL.Images(0)
If BW.IsBusy Then
Else
BW.RunWorkerAsync()
End If
i = 0
ElseIf i > Counter.Value * 60 Then
i = 0

End If
End Sub

Private Sub Counter_Leave(sender As Object, e As EventArgs) Handles Counter.Leave
My.Settings.Counter = Counter.Value
My.Settings.Save()
n.Text = Counter.Value * 60
End Sub
Public Server As E_Status
Public Router As E_Status
Public Lan As E_Status
Public Web As E_Status
Private Sub BW_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BW.DoWork
BW.WorkerSupportsCancellation = True
Status.Text = Nothing
Status.Text = "Testing ..." & vbCrLf
Thread.Sleep(2000)
Dim Test1 As E_Test
Dim Test2 As E_Test
Dim Test3 As E_Test
Dim Test4 As E_Test
Test1 = Ping(My.Settings.Server)
Test2 = Ping(My.Settings.Router)
Test3 = Ping(My.Settings.Web)
Test4 = Ping(My.Settings.LAN)
If Test1.Statut = E_Status.Broken Then
PB_Server.Image = IL.Images(14)
Server = E_Status.Broken

Status.Text += "Server is broken" & vbCrLf
ElseIf Test1.Statut = E_Status.Offline Then
PB_Server.Image = IL.Images(13)
Server = E_Status.Offline
Status.Text += "Server is Offline" & vbCrLf

ElseIf Test1.Statut = E_Status.Online Then
Server = E_Status.Online
PB_Server.Image = IL.Images(12)
Status.Text += "Server is Online" & vbCrLf

End If
If Test2.Statut = E_Status.Broken Then
PB_Routeur.Image = IL.Images(9)
Router = E_Status.Broken
Status.Text += "Router is Broken" & vbCrLf & Test2.Msg & vbCrLf

ElseIf Test2.Statut = E_Status.Offline Then
PB_Routeur.Image = IL.Images(8)
Router = E_Status.Offline
Status.Text += "Router is Offline" & vbCrLf

ElseIf Test2.Statut = E_Status.Online Then
PB_Routeur.Image = IL.Images(7)
Router = E_Status.Online
Status.Text += "Router is Online" & vbCrLf

End If
If Test3.Statut = E_Status.Broken Then
PB_Web.Image = IL.Images(19)
Web = E_Status.Broken
Status.Text += "Web is Broken" & vbCrLf & Test3.Msg & vbCrLf

ElseIf Test3.Statut = E_Status.Offline Then
PB_Web.Image = IL.Images(18)
Web = E_Status.Offline
Status.Text += "Web is Offline" & vbCrLf

ElseIf Test3.Statut = E_Status.Online Then
PB_Web.Image = IL.Images(17)
Web = E_Status.Online
Status.Text += "Web is Online" & vbCrLf

End If
If Test4.Statut = E_Status.Broken Then
PB_LAN.Image = IL.Images(4)
Lan = E_Status.Broken
Status.Text += "Lan is Broken" & vbCrLf & Test4.Msg & vbCrLf

ElseIf Test4.Statut = E_Status.Offline Then
PB_LAN.Image = IL.Images(3)
Lan = E_Status.Offline
Status.Text += "Lan is Offline" & vbCrLf

ElseIf Test4.Statut = E_Status.Online Then
PB_LAN.Image = IL.Images(2)
Lan = E_Status.Online
Status.Text += "Lan is Online" & vbCrLf

End If
Thread.Sleep(1000)

If Web = E_Status.Online And Lan = E_Status.Online And Server = E_Status.Online And Router = E_Status.Online Then
Status.Text += "All systems are online" & vbCrLf
ElseIf Web = E_Status.Online And Lan = E_Status.Online And Server = E_Status.Online And Router = E_Status.Broken Or Router = E_Status.Offline Then
Status.Text += "All systems are online, but router is not responding"

ElseIf Web = E_Status.Online And Lan = E_Status.Online And Server = E_Status.Broken Or Server = E_Status.Offline And Router = E_Status.Online Then
Status.Text += "All systems are online, but Server is not responding"

ElseIf Web = E_Status.Online And Lan = E_Status.Broken Or Lan = E_Status.Offline And Server = E_Status.Online And Router = E_Status.Online Then
Status.Text += "All systems are online, but Lan is not responding"

ElseIf Web = E_Status.Broken Or Web = E_Status.Offline And Lan = E_Status.Online And Server = E_Status.Online And Router = E_Status.Online Then
Status.Text += "All systems are online, but Web is not responding"

ElseIf Web = E_Status.Broken Or Web = E_Status.Offline And Lan = E_Status.Broken Or Lan = E_Status.Offline And Server = E_Status.Online And Router = E_Status.Online Then
Status.Text += "All systems are online, but Web and Lan are not responding"

ElseIf Web = E_Status.Broken Or Web = E_Status.Offline And Lan = E_Status.Online And Server = E_Status.Broken Or Server = E_Status.Offline And Router = E_Status.Online Then
Status.Text += "Only router and Lan are online there seems to have no internet access"

ElseIf Web = E_Status.Broken Or Web = E_Status.Offline And Lan = E_Status.Online And Server = E_Status.Online And Router = E_Status.Broken Or Router = E_Status.Offline Then
Status.Text += "Only server and Lan are online there seems to have no internet access"

ElseIf Web = E_Status.Broken Or Web = E_Status.Offline And Lan = E_Status.Online And Server = E_Status.Broken Or Server = E_Status.Offline And Router = E_Status.Broken Or Router = E_Status.Offline Then
Status.Text += "Only Lan is online there seems to have no internet access"

ElseIf Web = E_Status.Broken Or Web = E_Status.Offline And Lan = E_Status.Broken Or Lan = E_Status.Offline And Server = E_Status.Broken Or Server = E_Status.Offline And Router = E_Status.Broken Or Router = E_Status.Offline Then
Status.Text += "All systems are DOWN !!!!!"

End If
End Sub

Private Sub SwitchButton1_ValueChanged(sender As Object, e As EventArgs) Handles SwitchButton1.ValueChanged
If SwitchButton1.Value = True Then
Try
My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(Application.ProductName, Application.ExecutablePath)
My.Settings.Startup = True
My.Settings.Save()
MsgBox("Statup Enabled")
Catch ex As Exception
MsgBox(ex.Message)
End Try
Else
Try
My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue(Application.ProductName)
My.Settings.Startup = False
My.Settings.Save()
MsgBox("Statup Disable")

Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub

Private Sub ButtonItem6_Click(sender As Object, e As EventArgs) Handles ButtonItem6.Click
Me.Size = New Size(826, 423)
My.Settings.Load_full = True
My.Settings.Save()
End Sub

Private Sub ButtonItem5_Click(sender As Object, e As EventArgs) Handles ButtonItem5.Click
Me.Size = New Size(417, 168)
My.Settings.Load_full = False
My.Settings.Save()

End Sub

Private Sub ButtonItem2_Click(sender As Object, e As EventArgs) Handles ButtonItem2.Click
ButtonItem6.RaiseClick()
SuperTabControl1.SelectedTab = SuperTabItem5
End Sub

Private Sub ButtonItem3_Click(sender As Object, e As EventArgs) Handles ButtonItem3.Click
If BW.IsBusy Then
Else
BW.RunWorkerAsync()
End If
End Sub

Private Sub ButtonX9_Click(sender As Object, e As EventArgs) Handles ButtonX9.Click
Shell("Cmd.exe /C Ipconfig/flushdns", Style:=AppWinStyle.NormalFocus)

End Sub

Private Sub ButtonItem7_Click(sender As Object, e As EventArgs) Handles ButtonItem7.Click
Dim F As New About
F.Show()
End Sub

Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click
PB_Server.Image = IL.Images(10)
If Ping(My.Settings.Server).Statut = E_Status.Broken Then
PB_Server.Image = IL.Images(14)
ElseIf Ping(My.Settings.Server).Statut = E_Status.Offline Then
PB_Server.Image = IL.Images(13)
ElseIf Ping(My.Settings.Server).Statut = E_Status.Online Then
PB_Server.Image = IL.Images(12)
End If
End Sub

Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
PB_Routeur.Image = IL.Images(5)
If Ping(My.Settings.Router).Statut = E_Status.Broken Then
PB_Routeur.Image = IL.Images(9)
ElseIf Ping(My.Settings.Router).Statut = E_Status.Offline Then
PB_Routeur.Image = IL.Images(8)
ElseIf Ping(My.Settings.Router).Statut = E_Status.Online Then
PB_Routeur.Image = IL.Images(7)
End If
End Sub

Private Sub ButtonX3_Click(sender As Object, e As EventArgs) Handles ButtonX3.Click
PB_Web.Image = IL.Images(15)
If Ping(My.Settings.Web).Statut = E_Status.Broken Then
PB_Web.Image = IL.Images(19)
ElseIf Ping(My.Settings.Web).Statut = E_Status.Offline Then
PB_Web.Image = IL.Images(18)
ElseIf Ping(My.Settings.Web).Statut = E_Status.Online Then
PB_Web.Image = IL.Images(17)
End If
End Sub

Private Sub ButtonX4_Click(sender As Object, e As EventArgs) Handles ButtonX4.Click
PB_LAN.Image = IL.Images(0)
If Ping(My.Settings.LAN).Statut = E_Status.Broken Then
PB_LAN.Image = IL.Images(4)
ElseIf Ping(My.Settings.LAN).Statut = E_Status.Offline Then
PB_LAN.Image = IL.Images(3)
ElseIf Ping(My.Settings.LAN).Statut = E_Status.Online Then
PB_LAN.Image = IL.Images(2)
End If
End Sub
#End Region

End Class

6886total visits,3visits today

Share with:
  •  
  •  
  • 1
  •  
  •  
  •  
  •  
  •  
  •  
    1
    Share

Leave a Reply

You must be logged in to post a comment.

Telephone

+41 (079) 5111570

Postal address

Saadry Dunkel
2 avenue des Amazones
1224 Chênes-Bougeries

Contact Us




All fields are required.


Sending...

Close contact form
UA-29636309-1