подключен я к интернету или нет

Проверь, есть ли связь с каким-либо узлом (типа Google).

А вдруг Гугль висит? :) Надо несколько серверов

чтобы узнать есть ли активное соединение с инетом то...
модуль
------------------------------------
Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias
"RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As
Long) As Long
Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias
"RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
Private Const RAS95_MaxEntryName = 256
Private Const RAS95_MaxDeviceType = 16
Private Const RAS95_MaxDeviceName = 32
Private Type RASCONN95
dwSize As Long
hRasCon As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Private Type RASCONNSTATUS95
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Public Function IsConnected() As Boolean
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95
TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
If Tstatus.RasConnState = &H2000 Then
IsConnected = True
Else
IsConnected = False
End If
End Function
на форме
-----------------------------
Private Sub Form_Load()
'если есть соединение, то IsConnected() = True, иначе False
MsgBox IsConnected()
End Sub

работает на ура...

[QUOTE=ace lighting]работает на ура...[/QUOTE]

Дох..ая параш..!!!
Конект есть, и всеравно выдает False! Мля..

Может возможно использовать стандартный виндовский ping? Наверняка ведь он сделан не только для того, чтоб ручками связь проверять.

[QUOTE=Bard]Дох..ая параш..!!!
Конект есть, и всеравно выдает False! Мля..[/QUOTE]
а у меня пашет...

кстати мой способ работает только на диал апе.

[QUOTE=ace lighting]кстати мой способ работает только на диал апе.[/QUOTE]

Ну так бы и сразу сказал. А у меня выделенка была (на тот момент, теперь у меня тоже диалап :))

Бывает :D А чё выделенка не понравилась?

Нее, конечно понравилась!!! Сравни: 100 Мбит/с и 30 Кб/с. Просто я несколько дней назад переустановил виндовзу, а со старой виндой стерлись закладки в моей любимой Опере. А в закладках была страничка с интерфейсом активацыи инета (ну типа сначала надо включить через нее доступ, а потом пользоваться интернетом). Вместе с закладками стерся пароль на интернет. И получаеться так: локалка работает а интернет - нет. Тут я вспомнил что у меня на книжных полках завалялся модем диалаповский и карточка (которой уже скоро год). Я быстренько все настроил, подключил и... о диво! все заработало! Я даже пару раз на форум успел выйти но... через час деньги закончились м провайдер отрезал мне инет :( Тут я со злости позвонил в сервисный центр моей выделенки, и сказал: давайте типа произведем обмен, я вам дам свой ип мак номер и все остальное, а вы взамен - пароль на инет... И знаеш, мы успешно обменялись!!! Так что я теперь опять с жырной скоростью серфингом занимаюсь. Вот так вот :)

Да нештяг :eek: тебе, мне бы так :(

И мне!!!!!!!!! Хотя выделенка меня не особо привлекает. Спутниковый мне нравиться больше. Вот давно уже хочу, а маней то нету.:(:(