Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Новое сообщение без темы Добавлено: 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-сайт: www.hypertech.ru
 Профиль | | #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-сайт: www.vbnet.ru
 Профиль | | #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-сайт: hw.t-k.ru
 Профиль | | #3
Добавлено: 22.07.02 18:59

Спасибо, код проверил, работает, а ссылочку сейчас качаю.

Самое интересное что этой API нет во вьювере, а в MSDN'e она валяется где-то в незаметном месте...

Ответить

Страница: 1 |

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



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