| Вопрос: Новое сообщение без темы | Добавлено: 22.07.02 10:02 |
Автор вопроса:   POST | Web-сайт: www.vbnet.ru
|
|
Const RAS_MAXENTRYNAME As Integer = 256 Type RASENTRYNAME95 dwSize As Long szEntryname(RAS_MAXENTRYNAME) As Byte End Type Declare Function RasEnumEntries Lib "RasApi32.dll" Alias _ "RasEnumEntriesA" (ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, lpcb As Longf, lpcEntries As Long) As Long Dim udtRasEntryName(255) As RASENTRYNAME95, lpcb As Long Dim countConn As Long, i As Long, ret As Long udtRasEntryName(0).dwSize = 264 lpcb = RAS_MAXENTRYNAME * udtRasEntryName(0).dwSize ret = RasEnumEntries(vbNullString, vb NullString, udtRasEntryName(0), lpcb, countConn) If ret = 0 Then For i = 0 To countConn - 1 Debug.Print StrConv(udtRasEntryName(i).szEntryname(), vbUnicode) Next i End If *Писал ручонками с листинга - ищите ТехБаги, господа! :)) |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  boevik Хранитель чата ICQ: 137392264 Вопросов: 8 Ответов: 557 |
Web-сайт: Профиль | | #1 | Добавлено: 22.07.02 08:19 |
|
Воспользуйся help file http://home.iprimus.com.au/billmcc/download/TE-PlatformVB.zip, в нем есть описание всеx функций для работы с DialUp connections |
||
|
Номер ответа: 2 Автор ответа: POSTВопросов: 14 Ответов: 269 |
Web-сайт: Профиль | | #2 | Добавлено: 22.07.02 10:02 |
|
Const RAS_MAXENTRYNAME As Integer = 256 Type RASENTRYNAME95 dwSize As Long szEntryname(RAS_MAXENTRYNAME) As Byte End Type Declare Function RasEnumEntries Lib "RasApi32.dll" Alias _ "RasEnumEntriesA" (ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, lpcb As Longf, lpcEntries As Long) As Long Dim udtRasEntryName(255) As RASENTRYNAME95, lpcb As Long Dim countConn As Long, i As Long, ret As Long udtRasEntryName(0).dwSize = 264 lpcb = RAS_MAXENTRYNAME * udtRasEntryName(0).dwSize ret = RasEnumEntries(vbNullString, vb NullString, udtRasEntryName(0), lpcb, countConn) If ret = 0 Then For i = 0 To countConn - 1 Debug.Print StrConv(udtRasEntryName(i).szEntryname(), vbUnicode) Next i End If *Писал ручонками с листинга - ищите ТехБаги, господа!
|
||
)|
Номер ответа: 3 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 22.07.02 18:59 |
|
Спасибо, код проверил, работает, а ссылочку сейчас качаю. Самое интересное что этой API нет во вьювере, а в MSDN'e она валяется где-то в незаметном месте... |
||
Страница: 1 |