| Вопрос: Коннект к Интернет: избитая тема в новом ракурсе | Добавлено: 06.02.05 18:28 |
Автор вопроса:  Comanche
|
| Ответы | Всего ответов: 36 |
|
Номер ответа: 31 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #31 | Добавлено: 16.02.05 11:54 |
|
Но при этом соединении пингуются ВСЕ сайты инета (получаю реальные IP по имени домена) Определись с терминологией, пингуются не сайты, а хосты, то, что ты получаешь реальные IP по имени хоста не обозначает не только то, что они пингуются, но даже то, что Инет вообще есть, т.к. это зависит от DNS-серверов, которые могут перенаправлять запрос через свои каналы, будучи доступными локально.
|
||
|
Номер ответа: 32 Автор ответа:  ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #32 | Добавлено: 17.02.05 07:54 |
|
Sharp, очень может быть и такое. Outpost DNS я конечно очистил, но проблема
в том что IP обрато в домены не переводится 
|
||
|
Номер ответа: 33 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #33 | Добавлено: 18.02.05 07:55 |
|
sne, я же придерживаюсь мнения не того что "плохой инет - его отсутствие", а
"отсутствие инета когда файл не закачивается уже минут 5" Да, может просто сервер висит, но файл-то именно оттуда закачивать нужно (если закачка не подразумевает поиск зеркал), так что это очень дельный вариант (ну есть еще и другие: про Винни-Пуха и Кролика, ослика Иа... ой!  )
|
||
|
Номер ответа: 34 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #34 | Добавлено: 18.02.05 07:55 |
|
Вот мысля с codevb.narod.ru
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 |
||
|
Номер ответа: 35 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #35 | Добавлено: 19.02.05 12:28 |
Все эти мысли уже избиты, надо на них смотреть в новом ракурсе 
|
||
|
Номер ответа: 36 Автор ответа: Comanche Вопросов: 87 Ответов: 459 |
Профиль | | #36 | Добавлено: 19.02.05 12:39 |
|
Вот-вот, и я о том же )
|
||