how would you monitor this network, such as, connectivity, bandwidth, and
router changes, etc?
Dim WithEvents Net As New Devices.Network
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
If My.Computer.Network.IsAvailable Then
If Net.Ping("localhost") = False Then
MsgBox("Local host not visible.")
End If
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
ShowStatus(My.Computer.Network.IsAvailable)
End Sub
Private Sub Net_NetworkAvailabilityChanged(ByVal sender As Object, _
ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs)
_
Handles Net.NetworkAvailabilityChanged
ListBox1.Items.Add(String.Format("Network status changed to: {0}",
e.IsNetworkAvailable))
ShowStatus(e.IsNetworkAvailable)
End Sub
hth
--
__________________________________________________________________________
William R. Vaughn
President and Founder Beta V Corporation
Author, Mentor, Dad, Grandpa
Microsoft MVP
(425) 556-9205 (Pacific time)
Hitchhiker's Guide to Visual Studio and SQL Server (7th Edition)
http://betav.com http://betav.com/blog/billva
____________________________________________________________________________________________
"light_wt" <lig...@discussions.microsoft.com> wrote in message
news:72F8049B-75E9-4A2A...@microsoft.com...