說明

這可以透過登錄檔或是透過RasEnumEntries這個API來達成，以下示範用RasEnumEntries實做，由登錄檔取的的部分我就省略了。

程式

Option Explicit
Private Type RASENTRYNAME95
    dwSize As Long
    szEntryname(256) As Byte
End Type

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

Private Sub Command1_Click()
Dim sArray() As String
Dim i As Integer
DUN_Services sArray
List1.Clear
For i = LBound(sArray) To UBound(sArray)
  List1.AddItem sArray(i)
Next
End Sub

文件出處

不明

整理時間

2002'8,22.

如果對本站有任何建議,歡迎來信給Honey,我們會盡快給您答覆