Test computer with an internet connection ?


DevX Home    Today's Headlines   Articles Archive   Tip Bank   Forums   

Results 1 to 2 of 2

Thread: Test computer with an internet connection ?

  1. #1
    Join Date
    Mar 2008
    Posts
    111

    Test computer with an internet connection ?

    I want to search the code your computer with an internet connection, note: not the case on or off the network card

  2. #2
    Join Date
    Apr 2007
    Location
    Sterling Heights, Michigan
    Posts
    8,663
    Try
    Code:
    Option Explicit
    
    Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
    (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, _
    ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
    
    Private strConnType As String * 255
    End Sub
    
    
    Private Sub Form_Load()
        Dim Ret As Long
        Ret = InternetGetConnectedStateEx(Ret, strConnType, 254, 0)
        If Ret = 1 Then
            MsgBox "You are connected to Internet via a " & strConnType, vbInformation
        Else
            MsgBox "You are not connected to internet", vbInformation
        End If
    End Sub

Similar Threads

  1. Internet connection like Internet Explorer
    By Dudley Mills in forum VB Classic
    Replies: 0
    Last Post: 06-09-2002, 08:50 AM
  2. IM Test across internet
    By Richard Rowe in forum Enterprise
    Replies: 0
    Last Post: 07-05-2001, 11:34 AM
  3. Re: Test msg from new computer - ignore
    By Larry Linson in forum .NET
    Replies: 4
    Last Post: 07-03-2001, 08:27 PM
  4. Dial-up to a Computer not using internet
    By anonymous in forum VB Classic
    Replies: 1
    Last Post: 05-10-2001, 04:34 AM
  5. internet & computer security
    By Lily Chee in forum Security
    Replies: 1
    Last Post: 04-23-2001, 03:57 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
HTML5 Development Center
 
 
FAQ
Latest Articles
Java
.NET
XML
Database
Enterprise
Questions? Contact us.
C++
Web Development
Wireless
Latest Tips
Open Source


   Development Centers

   -- Android Development Center
   -- Cloud Development Project Center
   -- HTML5 Development Center
   -- Windows Mobile Development Center