ورود

View Full Version : گرفتن لیست DialUp ها


H_SH_VB
دوشنبه 10 بهمن 1384, 19:48 عصر
چجوری میشود لیست تمام dialup های موجود در کامپیوتر را گرفت؟
میلاد علوی
سه شنبه 11 بهمن 1384, 00:01 صبح
یه لیست بادکمه کانکت و بقیه کارها دارم اما با وی بی نیست اگه خواستی بگو
H_SH_VB
سه شنبه 11 بهمن 1384, 00:01 صبح
آقا تورو خدا یکی جواب بده رشته هیچکی جواب نده ها
H_SH_VB
سه شنبه 11 بهمن 1384, 00:02 صبح
آره میلاد جان می خوام ممنون میشوم
sohrab o
سه شنبه 11 بهمن 1384, 01:55 صبح
فکر کنم این به دردت بخوره
H_SH_VB
سه شنبه 11 بهمن 1384, 17:22 عصر
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
سه شنبه 11 بهمن 1384, 20:43 عصر
کامپوننت ras
H_SH_VB
سه شنبه 11 بهمن 1384, 20:52 عصر
khob chejoori estefade konam?
H_SH_VB
جمعه 14 بهمن 1384, 18:32 عصر
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