فعال شدن هنگام اتصال به اینترنت

[Microsoft.net]

چطوری میشه وقتی به اینترنت وصل میشی و قطع می شی رو فهمید

[sh]

میتونی این کد رو استفاده کنی البته راههای دیگری هم داره

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

Dim sConnType As String * 255

Private Sub Form_Load()

    Dim Ret As Long

    Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)

    If Ret = 1 Then

        MsgBox "You are connected to Internet via a " & sConnType, vbInformation

    Else

        MsgBox "You are not connected to internet", vbInformation

    End If

End Sub

یا راه دیگه :

Private Const FLAG_ICC_FORCE_CONNECTION = &H1

Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()

     

    If InternetCheckConnection("http://www.barnamenevis.org/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then

        MsgBox "Connection to http://www.barnamenevis.org/ failed!", vbInformation

    Else

        MsgBox "Connection to http://www.barnamenevis.org/ succeeded!", vbInformation

    End If

End Sub

[علیرضا مداح]

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

Imports System.Runtime.InteropServices



<DllImport("wininet.dll")> _

    Public Function InternetGetConnectedState( _

        ByVal lpdwFlags As Integer, ByVal res As Integer) As Boolean

End Function



Public Function InternetConnectionExists() As Boolean

    ' Determines if there is a connection to the Internet.

    ' Note that InternetGetConnectedState cannot be considered 

    ' 100% reliable. An issue can occur if an internet connection

    ' has never been configured, the function may return true, even

    ' though there is no internet connection.

    '



    Dim e As Integer = 0

    Dim ret As Boolean = InternetGetConnectedState(e, 0)



    Return ret



End Function