Comments

1. John Smith
   08 Jan 2009 at 17:37
   My.Computer.Network.IsAvailable =)
2. Phil Knight
   02 Mar 2008 at 23:06

   LooooooooooL
    I first disconnect my ADSL connection, then started this code.

    It tooks a second for my modem to reconnect again and this function returns "TRUE" 

    I will need different solution 

   
   

3. Paul N
   31 Aug 2006 at 12:16

   Real simple and neat chunk of code that could be used in any kind of Application, whether it be a Console or a windows Application and not just a Web Application.

   I had used the same code to make a web request to an ASP page from my Windows Application.

   Regards

    

    

4. codesid
   21 Nov 2005 at 15:03

   you can not use VB.NET in ASP pages... Active Server Pages does not support .NET.
   You have to use Visual Studio and create a .NET web page, and the file extension will be
   .aspx
   

   
   Happy programming!!!

5. alain a. buenaventura
   25 Aug 2005 at 19:13

   Helo, I would like to ask if you know how to make internet connection and terminate it in VB.NET? if you know, please send me the code. thanks a lot

6. dkitts
   28 Sep 2004 at 07:25

   The exception on this errors out if you are offline. To fix this comment out the objresp.close line under the catch exception.
   

   
   You can't close something that didn't open
   

   
   

7. uc98
   11 Apr 2004 at 21:23

   I get this error when I try to run it on my IIS, please help me!
   

   
   Error Type:
   Microsoft VBScript compilation (0x800A0400)
   Expected statement
   /test.asp, line 2, column 40
   Public Function IsConnectionAvailable() As Boolean
   ---------------------------------------^
   

   
   I saved the page in a page name test.asp
   and the code to check at the botton of the same page.
   

   
   
   Cipto
   

8. Nathan Pond
   23 Oct 2003 at 08:41

   For some reason or another I had to take out a line, the functino I used is as follows:
   

   
   Public Function IsConnectionAvailable() As Boolean
      ' Returns True if connection is available
      ' Replace www.yoursite.com 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
          objWebReq = Nothing
          Return False
      End Try
   End Function
   

   
   The only change I made was taking out the objResp.Close() after the catch.  It appears that is not created on a failure so the close function errors.
   

   
   Nathan

9. Developer Fusion Bot
   01 Jan 1999 at 00:00

   This thread is for discussions of Is an Internet Connection Available?.