Подключение к инету

[Sirik]

Есть такой код:

Код: Выделить всё

Option Explicit

Private Declare Function InternetDial Lib "wininet" (ByVal hWndParent As Long, ByVal lpszConnectoid As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As Long
Private Declare Function InternetGetConnectedState Lib "wininet" (lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1&
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2&
Private Const INTERNET_DIAL_UNATTENDED = &H8000&
Private Const INTERNET_DIAL_SHOW_OFFLINE = &H4000&
Private Const INTERNET_DIAL_FORCE_PROMPT = &H2000&

Private Const ERROR_INVALID_PARAMETER = 87&
Private Const ERROR_NO_CONNECTION = 668&
Private Const ERROR_USER_DISCONNECTION = 631&

Private Const INTERNET_CONNECTION_MODEM = &H1&
Private Const INTERNET_CONNECTION_LAN = &H2&
Private Const INTERNET_CONNECTION_PROXY = &H4&
Private Const INTERNET_RAS_INSTALLED = &H10&
Private Const INTERNET_CONNECTION_OFFLINE = &H20&
Private Const INTERNET_CONNECTION_CONFIGURED = &H40&


Private Sub Form_Load()
    Dim flags As Long
    MsgBox InternetDial(0, vbNullString, 0, 0, 0)
    MsgBox InternetGetConnectedState(flags, 0)
    MsgBox Hex(flags)
End Sub


С помощью данного кода можно проверить подключение к инету (по-крайней мере так было написано на форуме)

Почему выскакивает окно "Подключение удалённого доступа" ?

[codemaster]

Есть такой код:
Option Explicit
........................

Private Sub Form_Load()
Dim flags As Long
MsgBox InternetDial(0, vbNullString, 0, 0, 0)
.............................

С помощью данного кода можно проверить подключение к инету (по-крайней мере так было написано на форуме)

Почему выскакивает окно "Подключение удалённого доступа" ?

На сарае написано .................. а там дрова
(народная мудрость)

смотрим внимательно код

[Sirik]

Есть такой код:
Option Explicit
........................

Private Sub Form_Load()
Dim flags As Long
MsgBox InternetDial(0, vbNullString, 0, 0, 0)
.............................

С помощью данного кода можно проверить подключение к инету (по-крайней мере так было написано на форуме)

Почему выскакивает окно "Подключение удалённого доступа" ?

На сарае написано .................. а там дрова
(народная мудрость)

смотрим внимательно код

Про сарай я знаю
Но вместо того чтобы умничать (не понятно чем), помог бы !

[codemaster]

Про сарай я знаю
Но вместо того чтобы умничать (не понятно чем), помог бы !

Чем помочь? Перевести InternetDial на русский ?

[tyomitch]

Sirik, вызов InternetDial закомментируй - вот и будет проверять подключение к инету...
А про сарай не к месту - в том топике было как раз два вопроса: 1) дозвониться 2) проверить. Этот код делает оба сразу.

[Sirik]

Sirik, вызов InternetDial закомментируй - вот и будет проверять подключение к инету...
А про сарай не к месту - в том топике было как раз два вопроса: 1) дозвониться 2) проверить. Этот код делает оба сразу.

Ок, всё понял. Правда для проверки вобще нужно только:InternetGetConnectedState

P.S. А вобще мне нужно каждые 5 сек проверять подключение. ТАк вот, я оставил только вот такой код:

Код: Выделить всё

Private Declare Function InternetGetConnectedState Lib "wininet" (lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Timer1_Timer()
    Dim flags As Long
    Text1 = InternetGetConnectedState(flags, 0)
End Sub


Но, когда таймер срабатывет он не показывает реальную картину. Т.е. я подключаю кабель, выключаю, всё-равно он показывает только начальное значение (при каком была запущена форма)
Как с эти бороться