Проверка подключения к И-нету.

[AndreyG_80]

Приветствую всех.

Мне нужно проверить подключение к интернету и если онное отсутствует то подключиться (вызвать виндовозный диалог подключения).

Если можно скиньте небольшой примерчик.

Заранее большое спасибо всем.

[GSerg]

Настоятельно рекомендуется курс лечения.
Секунду...

[alibek]

Опять???

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=17134
Обе страницы, пожалуйста.

[Lumen]

Цитата из API Guide:

'Example by Vijay Phulwadhawa (vijaycg44@hotmail.com)
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

Это для проверки (хотя есть ещё много других способов).

[alibek]

http://bbs.vbstreets.ru/viewtopic.php?t=17134

[AndreyG_80]

Смотрел я эти топики, но не совсем понял как это сделать (или совсе не понял).

Есть комп (который стоит в офисе) со внешним IP. На этом компе SQL Server. На удаленном компе прога должна автоматом обмениваться данными с центральной базой (которая находится на компе в офисе).
Вот мне и нужно проверить связь с офисным компом и в случае ее отсутствия пытаться ее установить через определенные промежутки времени.

[alibek]

Если ты их смотрел, то ты бы понял, что это не "эти топики", а один и тот же топик. А так же понял бы, что нельзя проверить "подключение к интернет", потому что такого не бывает.
Если тебе нужно проверить доступность сервера, то подключайся к нему, если будет ошибка, значит сервер недоступен.

[Sebas]

подключайся к SQL серверу ADO-й и всё, отвалился, значит SQL сервер не доступен, ну, ошибку только проверь.

пытайся подключиться по TcpIp, порт, помойму, 1433.

[Sebas]

Хотя, в твоём случае RASAPI будет достаточно.

[AndreyG_80]

А можно какой-то небольшой примерчик кода?

[GSerg]

А так же понял бы, что нельзя проверить "подключение к интернет", потому что такого не бывает.
Если тебе нужно проверить доступность сервера, то подключайся к нему, если будет ошибка, значит сервер недоступен.

[Ennor]

Есть комп (который стоит в офисе) со внешним IP. На этом компе SQL Server.

Адресочек не подскажешь - помочь потестить, такскать...

небось еще и SP3 не накачен...