Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Имена интернет-соединений в XP Добавлено: 04.03.04 21:00  

Автор вопроса:  Messerschmitt

Как узнать имена интернет-соединений в XP, ото тот пример из библиотеки кодов у меня не работает

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
  Web-сайт: hw.t-k.ru
 Профиль | | #1 		Добавлено: 04.03.04 23:53

У меня все работает вот так:

Private Declare Function RasEnumEntries Lib "rasapi32.dll" Alias "RasEnumEntriesA" (ByVal Reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, lpcb As Long, lpcEntries As Long) As Long
Private Type RASENTRYNAME95
    dwSize              As Long
    szEntryName(&H100)  As Byte
End Type
 
Public Function GetConList(ConList() As String) As Long                 ' Получение списка соединений
    Dim udtRasEntryName(255) As RASENTRYNAME95, lpcb As Long
    Dim TempBuffer As String
    
    Erase ConList
    udtRasEntryName(0).dwSize = &H108
    lpcb = udtRasEntryName(0).dwSize * &H100
    
    If Not RasEnumEntries(vbNullString, vbNullString, udtRasEntryName(0), lpcb, GetConList) = &H0 Then Exit Function
    
    If GetConList > 0 Then ReDim ConList(GetConList - &H1)
    For GetConList = &H0 To GetConList - &H1
        TempBuffer = StrConv(udtRasEntryName(GetConList).szEntryName(), vbUnicode)
        ConList(GetConList) = Left$(TempBuffer, InStr(TempBuffer, vbNullChar) - &H1)
    Next
End Function

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам