گرفتن لیست DialUp ها

[H_SH_VB]

چجوری میشود لیست تمام dialup های موجود در کامپیوتر را گرفت؟

[میلاد علوی]

یه لیست بادکمه کانکت و بقیه کارها دارم اما با وی بی نیست اگه خواستی بگو

[H_SH_VB]

آقا تورو خدا یکی جواب بده رشته هیچکی جواب نده ها

[H_SH_VB]

آره میلاد جان می خوام ممنون میشوم

[sohrab o]

فکر کنم این به دردت بخوره

[H_SH_VB]

agha milad dastet dard nakone, vali in ye activex dare, mikham in karo khodam bokonam, bedoone oon, be har hal mamnoon, yeki javab bede:((

[Mahdi_S_T]

کامپوننت ras

[H_SH_VB]

khob chejoori estefade konam?

[H_SH_VB]

agha mahdi mamnoonam
peyda shod, fahmidam

inam sourcesh ye list box bezarid va halle

Option Explicit



Const RAS95_MaxEntryName = 256



Private Type RASENTRYNAME95

    'set dwsize to 264

    dwSize As Long

    szEntryName(RAS95_MaxEntryName) As Byte

End Type



Private Declare Function RasEnumEntries Lib "rasapi32.dll" Alias "RasEnumEntriesA" (ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, lpcb As Long, lpcEntries As Long) As Long





Private Sub Form_Load()



    Dim s As Long, l As Long, ln As Long, a$

    ReDim r(255) As RASENTRYNAME95

    

    r(0).dwSize = 264

    s = 256 * r(0).dwSize

    l = RasEnumEntries(vbNullString, vbNullString, r(0), s, ln)

    For l = 0 To ln - 1

        a$ = StrConv(r(l).szEntryName(), vbUnicode)

        List1.AddItem Left$(a$, InStr(a$, Chr$(0)) - 1)

    Next



    Text1 = r(0).szEntryName

    

End Sub