Сообщество Чайников

Вопрос

Подключен ли компьютер к интернету?

Ответ

Для этого есть функция InternetGetConnectionState. А вот сам пример:

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

Private Sub Form_Load()
 Dim lResult As Long

 'Если 1 то соединение есть, если 0 — то нет
 lResult = InternetGetConnectedState(0, 0)
End Sub

Sergey