Code for Ping Request from your VB Application

Code block written below is used  check whether PC is currently in Network or not using Network.IsAvailable. If PC is in network then it will make Ping Request to specific PC.
In below example mPingURL is a variable which is holding IP Address or Name of PC within Network.


If My.Computer.Network.IsAvailable Then
   If My.Computer.Network.Ping(mPingURL, 20) Then
          foo = True
   Else
          foo = False
          Threading.Thread.Sleep(500)
          MsgBox("Constant Internet access is required, currently the Internet not available to access " & mPingURL)
                        

   End If

Else
   foo = False
   MsgBox("Constant Internet access is required, currently no Network is available to access the Internet")
                    
End If

Comments

Post a Comment

Popular posts from this blog

SaveSetting and GetSetting in C#

How to use SaveSetting() and GetSetting() methods of VB in C#? Lets see, SaveSetting() method is used to store UI input data and GetSetting() method is used to retrieve that stored data. //Save textbox1's value SaveSetting (App.EXEName, "textboxes", "textbox1", textbox1.Text) //Get textbox1's value textbox1.text = GetSetting (App.EXEName, "textboxes", "textbox1", "") SaveSetting stores the data in the Registry (in HKEY_CURRENT_USER|Software|VB and VBA Program Settings|YourAppName). The four parts of the function are the name under which it is stored (App.EXEName in this case), "textboxes" in this example is like the section name in an ini file, "textbox1" is like the key in a line of data in the ini file, and textbox1.text is the value. GetSetting returns the value. The 4th parameter ("" in this case) is optional and it is the default if no registry entry is found. I f you use thes...
Read more
Synchronize Scroll Events of two DataGridView Control Some time there is a need to synchronize scroll event of two or more DataGridView controls, then you can write code like below on first DataGridView Scroll event. Private Sub DataGridView1_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles DataGridView1.Scroll               If e.ScrollOrientation = ScrollOrientation.VerticalScroll Then Exit Sub         If Me.DataGridView2.Rows.Count > 0 And Me.DataGridView1.Rows.Count > 0 Then             Me.DataGridView2.HorizontalScrollingOffset = e.NewValue 'Me.DataGridView1.HorizontalScrollingOffset         End If End Sub and write code displayed below on second DataGridView Scroll event Private Sub DataGridView2_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles DataGridView2...
Read more
Create and Delete Custom Event Logs Create the Custom Log Use the CreateEventSource method to create your own custom event handler. Before you create the event log, use the SourceExists method to verify that the source you are using does not already exist, and then call CreateEventSource. If you try to create an event log that already exists, a System.ArgumentException error is thrown.  The following code example demonstrates how to create a custom log:        ' Check if the log already exist       If Not EventLog.SourceExists("MyOldSource", System.Environment.MachineName) Then          ' Creating a new log          EventLog.CreateEventSource("MyOldSource", "MyNewLog", System.Environment.MachineName)          Console.WriteLine("New event log created successfully.")       End If You Can Write Event logs on Button ...
Read more