در vb6 چطوری بفهمم یوز آنلاین هست یا خیر ؟

سلام
اولا که مرسی این تاپیک و خوندید دوما من می خواستم تو vb6 سرعت اینترنت یا آنلاین بودن و آفلاین بودن و چطوری می تونم تشخیص بدم
ممنون می شم کمکم منید چون خیلی گیرم


یعنی کاربر که داره از نرم افزار استفاده می کنه تو اینترنت هست یا نه یا اصلا می شه سرعت اتصالش رو هم پیدا کرد یا خیر
مرسیییییییی

سلام.

کد:

---

Option Explicit
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
    'Internet connection VIA Proxy server.
    Public Const ProxyConnection As Long = &H4
    'Modem is busy.
    Public Const ModemConnectionIsBusy As Long = &H8
    'Internet connection is currently Offline
    Public Const InternetIsOffline As Long = &H20
    'Internet connection is currently configured
    Public Const InternetConnectionIsConfigured As Long = &H40
    'Internet connection VIA Modem.
    Public Const ModemConnection As Long = &H1
    'Remote Access Server is installed.
    Public Const RasInstalled As Long = &H10
    'Internet connection VIA LAN.
    Public Const LanConnection As Long = &H2

Public Function IsLanConnection() As Boolean
    Dim dwflags As Long
    'return True if LAN connection
    Call InternetGetConnectedState(dwflags, 0&)
    IsLanConnection = dwflags And LanConnection
End Function


Public Function IsModemConnection() As Boolean
    Dim dwflags As Long
    'return True if modem connection.
    Call InternetGetConnectedState(dwflags, 0&)
    IsModemConnection = dwflags And ModemConnection
End Function


Public Function IsProxyConnection() As Boolean
    Dim dwflags As Long
    'return True if connected through a proxy.
    Call InternetGetConnectedState(dwflags, 0&)
    IsProxyConnection = dwflags And ProxyConnection
End Function

Public Function IsConnected() As Boolean
    'Returns true if there is any internet connection.
    IsConnected = InternetGetConnectedState(0&, 0&)
 
End Function

Public Function IsRasInstalled() As Boolean
    Dim dwflags As Long
    'return True if RAS installed.
    Call InternetGetConnectedState(dwflags, 0&)
    IsRasInstalled = dwflags And RasInstalled
End Function


Public Function ConnectionTypeMsg() As String
    Dim dwflags As Long
    Dim msg As String
    'Return Internet connection msg.

    If InternetGetConnectedState(dwflags, 0&) Then

        If dwflags And InternetConnectionIsConfigured Then
            msg = msg & "Internet connection is configured." & vbCrLf
        End If

        If dwflags And LanConnection Then
            msg = msg & "Internet connection via a LAN"
        End If

        If dwflags And ProxyConnection Then
            msg = msg & ", and connection is through a proxy server."
        Else
            msg = msg & "."
        End If

        If dwflags And ModemConnection Then
            msg = msg & "Internet connection via a Modem"
        End If

        If dwflags And InternetIsOffline Then
            msg = msg & "Internet connection is currently offline."
        End If

        If dwflags And ModemConnectionIsBusy Then
            msg = msg & "Modem is busy with a non-Internet connection."
        End If

        If dwflags And RasInstalled Then
            msg = msg & "Remote Access Services are installed on local system."
        End If
       
    Else
        msg = "You are currently not connected to the internet."
       
    End If
   
    ConnectionTypeMsg = msg
   
End Function

---

سلام
کسی می تونه به من بگه چطور می تونم برنامه ای بنویسم که پهنای باند کنترل کنم با vb6