Is Internet Connection Available

[Deepak Sakpal]

Hi

I am using VB.Net 2002. I have the following code that works but takes too much time to execute. Any another way (that works ).

Public Function IsConnectionAvailable() As Boolean
    ' Returns True if connection is available 
    ' Replace [url]www.yoursite.com[/url] with a site that
    ' is guaranteed to be online - perhaps your 
    ' corporate site, or microsoft.com
    Dim objUrl As New System.Uri("http://www.yoursite.com/")
    ' Setup WebRequest
    Dim objWebReq As System.Net.WebRequest
    objWebReq = System.Net.WebRequest.Create(objUrl)
    Dim objResp As System.Net.WebResponse
    Try
        ' Attempt to get response and return True
        objResp = objWebReq.GetResponse
        objResp.Close()
        objWebReq = Nothing
        Return True
    Catch ex As Exception
        ' Error, exit and return False
        objResp.Close()
        objWebReq = Nothing
        Return False
    End Try
End Function

'Here’s how you might use this function in your application:

If IsConnectionAvailable() = True Then
    MessageBox.Show("You are online!")
End If

[Deepak Sakpal]

anyone

[anita2002]

What about this

Public Function chkNetworkStatus() As Boolean

Dim wr As HttpWebRequest
Dim ws As HttpWebResponse
Dim sURL As String
sURL = "http://some URL here"
wr = CType(WebRequest.Create(sURL), HttpWebRequest)
Try
ws = CType(wr.GetResponse, HttpWebResponse)
Return True
Catch exc As Exception
MsgBox("Off-line - Show appropriate message here ", MsgBoxStyle.Information)
Return False
End Try

End Function

[Deepak Sakpal]

When user is off-line and then i use chkNetworkStatus function, it takes to much time.

I am using cable internet connection.

[Deepak Sakpal]

Is there any other way that will check internet connection state without hitting any server.

[dynamic_sysop]

you can check to see if you are connected to the net very easily if thats what you need , here's a quick example i knocked up for you...

[Color=Blue]Private[/color] [Color=Blue]Declare[/color] [Color=Blue]Function[/color] InternetGetConnectedState [Color=Blue]Lib[/color] "wininet.dll" ([Color=Blue]ByRef[/color] lpdwFlags [Color=Blue]As[/color] [Color=Blue]Integer[/color], [Color=Blue]ByVal[/color] dwReserved [Color=Blue]As[/color] [Color=Blue]Integer[/color]) [Color=Blue]As[/color] [Color=Blue]Integer
 
[/color]    [Color=Blue]Private[/color] [Color=Blue]Sub[/color] Button1_Click([Color=Blue]ByVal[/color] sender [Color=Blue]As[/color] System.Object, [Color=Blue]ByVal[/color] e [Color=Blue]As[/color] System.EventArgs) [Color=Blue]Handles[/color] Button1.Click
        [Color=Blue]If[/color] InternetGetConnectedState(0, 0) = 1 [Color=Blue]Then
[/color]            MessageBox.Show("you have a Connection to the internet established!")
        [Color=Blue]Else
[/color]            MessageBox.Show("NO Connection!")
        [Color=Blue]End[/color] [Color=Blue]If
[/color]    [Color=Blue]End[/color] [Color=Blue]Sub[/color]

[maged]

try this link

it may be usefull


http://64.4.10.250/cgi-bin/linkrd?_l...ephp%2f3113971

[Deepak Sakpal]

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Integer, ByVal dwReserved As Integer) As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If InternetGetConnectedState(0, 0) = 1 Then
            MessageBox.Show("you have a Connection to the internet established!")
        Else
            MessageBox.Show("NO Connection!")
        End If
    End Sub

This code shows message you have a Connection to the internet established! even though i am off-line. What is the problem ? Is it due to my Cable Internet connection.

Thanks for replying.

[Deepak Sakpal]

Link provided by you is not working. It displays the a webpage with the message
Your email message has been idle and this link has become inactive. To access the link, close this window and return to your MSN Hotmail Message. Then click the browser's Refresh button or close your message and reopen it.

Thanks for replying.