发信人: plindge()
整理人: fishy(2000-05-23 14:06:21), 站内信件
|
=======================================================
Welcom To Plindge Studio http://plindge.yeah.net
E-Mail: [email protected]
=======================================================
(1) List your Dial-Up Networking Services
Private Declare Function RasEnumEntriesA Lib "RasApi32.dll" _
(ByVal reserved As String, ByVal lpszPhonebook As String, _
lprasentryname As Any, lpcb As Long, lpcEntries As Long) _
As Long
Public Sub DUN_Services(DUN_Array() As String)
Dim s As Long, ln As Long, conname As String, i As Long
Dim r(255) As RASENTRYNAME95
r(0).dwSize = 264
s = 256 * r(0).dwSize
Call RasEnumEntriesA(vbNullString, vbNullString, r(0), s, ln)
ln = ln - 1
ReDim DUN_Array(ln)
For i = 0 To ln
conname = StrConv(r(i).szEntryname(), vbUnicode)
DUN_Array(i) = Left$(conname, InStr(conname, _
vbNullChar) - 1)
Next i
End Sub
Usage Example:
Dim sArray() As String
Dim iCtr As Integer
DUN_Services sArray
For iCtr = 0 To UBound(sArray)
Debug.Print sArray(iCtr)
Next
' To be continue...
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.44.196]
|
|