Pages

Ads 468x60px

For New Update Use this Link http://dotnethubs.blogspot.in/ Offer for you

.

Monday 11 March 2013

Check Internet Connection in Asp.net using C#, VB.NET

Check Internet Connection in Asp.net using C#, VB.NET  , ,

Introduction: 

Here I will explain how to check internet connectivity of system in  asp.net and C#.net VB.NET.
Description: 
    In my previous article i have explainedjQuery Get Number of Facebook likes, Shares, Comments using asp.net.  Now I will explain how to check internet connectivity of system in asp.net using C# and VB.NET.

We can check internet connectivity of system by downloading data of one website from server for that write code like as shown below
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<title>Check Internet Connection Availability using Asp.net</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:Button runat="server" ID="btnCheck" Text="Check Internet Connectivity" OnClick="btnCheck_Click" />
<asp:Label runat="server" ID="lbltxt" />
</div>
</form>
</body>
</html>
Now in code behind add the following namespaces
C# Code
using System;
using System.Net;
After that write the following code in code behind
protected void btnCheck_Click(object sender, EventArgs e)
{
WebClient client = new WebClient();
byte[] datasize = null;
try
{
datasize = client.DownloadData("http://www.google.com");
}
catch (Exception ex)
{
}
if (datasize != null && datasize.Length > 0)
lbltxt.Text = "Internet Connection Available.";
else
lbltxt.Text = "Internet Connection Not Available.";
}
VB.NET Code

Imports System.Net
Partial Class VBCode
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Protected Sub btnCheck_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim client As New WebClient()
Dim datasize As Byte() = Nothing
Try
datasize = client.DownloadData("http://www.google.com")
Catch ex As Exception
End Try
If datasize IsNot Nothing AndAlso datasize.Length > 0 Then
lbltxt.Text = "Internet Connection Available."
Else
lbltxt.Text = "Internet Connection Not Available."
End If
End Sub
End Class
Demo

Posted by at
Labels: ,

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)
 

..




New Updates

Related Posts Plugin for WordPress, Blogger...

Related Result