VBNet - Форум - Получить список соединений

Вопрос: Получить список соединений Добавлено: 22.07.02 00:23

Автор вопроса: sne | Web-сайт: hw.t-k.ru | ICQ: 233286456

Подскажите кто знаит, как можно получить список Dial-Up соединений, в Win9x и WinNT?

Ответить

Ответы Всего ответов: 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 |