НастаевПроверил...
Предложенная функция conectya выдаёт ложь даже, когда интернет есть (я подключил библиотеку winhttpcom.dll, поскольку winhttp.dll у меня не подключается по какой-то причине)
Да, моя вина. Захотел функцию "причесать" и выложил не проверив. На самом деле она у меня работает в таком виде (с 2-х секундной принудительной задержкой, или можно задержку еще немного увеличить, если срабатывать не будет)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Public Function conectya() As Boolean
Dim URL1 As String
URL1$ = "http://www.ya.ru"
Dim oHttp1 As WinHttpRequest
' On Error Resume Next: Err.Clear
Set oHttp1 = New WinHttpRequest
On Error GoTo 1
oHttp1.Open "GET", URL1$, True: DoEvents
oHttp1.Send: DoEvents
SleepVB (2)
Sss1 = oHttp1.ResponseText
Set oHttp1 = Nothing
conectya = True
Exit Function
1:
Set oHttp1 = Nothing
conectya = False
End Function
Public Sub SleepVB(Seconds)
' ожидание Seconds секунд
Dim Start
Start = Timer ' текущее время в секундах
Do While Timer < Start + Seconds
' обеспечивает параллельное выполнение других процессов
DoEvents ' обрабатываем
Loop
End Sub
Почему я в свое время отказался от InternetGetConnectionState. У нас сеть корпоративная, в ней стоит межсетевой экран, через который пользователи получают доступ в интернет. Если межсетевой экран отключен, а компьютер физически подключен к корпоративной сети, то InternetGetConnectionState будет всё равно показывать наличие интернета. Dll-ку подключать как-то по особому не требуется, в стандартном наборе References в VBA редакторе должна присутствовать библиотека Microsoft WinHTTP Services, отмечаете ее галочкой - и всё.
