Amed писал(а):Пинговать Яндекс. Программно и аппаратно.
extHack писал(а):Есть ActiveX, который это делает. Можешь посмотреть если что.
http://vbstreets.ru/ActiveX/Network/65907.aspx
Alexander N. Samarin писал(а):А если в америке отключат?
Private Declare Function InternetGetConnectedState _
Lib "wininet.dll" (ByRef lpSFlags As Long, _
ByVal dwReserved As Long) As Long
Public Function InternetConnected() As Boolean
InternetConnected = InternetGetConnectedState(0&, 0&)
'Если у вас есть соединение, то функция вернет True, иначе - False
End Function
Сейчас этот форум просматривают: Google-бот и гости: 52