تست اتصال به اینترنت در وی بی دات نت

[sajjad_india]

با عرض سلام و خسته نباشید به شما دوستان عزیز

سوال من اینه که من چطور میتونم تست کننم که سیستم به اینترنت وصل هستش البته به اینترنت وصل باشه یه پیغام بده که سیستم وصله و اگر هم وصل نباشه هم باز هم اخطار بده .

از میدیران این تالار و مدیر سایت کمال تشکر را دارم .

امیدوارم که دوستان عزیز سریع به ما کمک کنید .

لطفا اگه تاپیک من تکراری هستش پاک نکنید احتیاج دارم .

با تشکر از سایت

[shahram197070]

سلام
یک ماژول هستش که خودم استفاده می کنم ببین به دردت می خوره (فکر کنم قبلا از همین سایت برنامه نویس برداشتمش)

Module Detect

    Public s_r, m_r, h_r As Int16

    Public constr As String

    'Dim form1 As New Form1

    ' function 4 check internet connection API

    Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpSFlags As Int32, ByVal dwReserved As Int32) As Boolean

    Enum InetConnState

        modem = &H1

        lan = &H2

        proxy = &H4

        ras = &H10

        offline = &H20

        configured = &H40

    End Enum

#Region "Check Connection Type"

    Function chk_internet() As String

        Dim lngFlags As Long

        If InternetGetConnectedState(lngFlags, 0) Then

            ' True

            If lngFlags And InetConnState.lan Then

                constr = "Connected With LAN"

            ElseIf lngFlags And InetConnState.modem Then

                constr = "Connected With DialUp"

            ElseIf lngFlags And InetConnState.proxy Then

                constr = "Useing Proxy Server"

            ElseIf lngFlags And InetConnState.ras Then

                constr = "Connected With RAS"

            ElseIf lngFlags And InetConnState.offline Then

                constr = " Is Offline."

            End If

        Else

            ' False

            constr = "Off Line"

        End If

        Return (constr)

    End Function

#End Region

#Region "Show Time Elapsed Of Connecting "

    Function t_rm() As String

        If s_r = 59 Then

            m_r += 1 : s_r = 1

        ElseIf m_r = 59 Then

            m_r = 0 : h_r += 1

        Else : s_r += 1

        End If

        Return (h_r & " : " & m_r & " : " & s_r).ToString

    End Function

#End Region

End Module

موفق باشید

[amirsajjadi]

با سلام
برای این کار شما کافیه یک سایت رو مثلا سایت yahoo رو پینگ کنید

[Maghsoud914]

کامپوننتی نداره که سریع تر بشه این کار رو کرد؟

اگه کسی Ocx یا Dll ای داره لطفاً به ما هم بده