تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لعمل List باسماء اتصالات Dail-up التي لديك
#1
كاتب الموضوع : AhmedEssawy

في قسم التصريحات :


كود :
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)
'Pass in Empty array for DUN_Array
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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معرفة الاجهزة التي تعمل على الشبكة ping + mac address RaggiTech 0 926 17-10-12, 03:24 PM
آخر رد: RaggiTech
  معرفة الاجهزة التي تعمل على الشبكة ping RaggiTech 0 562 17-10-12, 03:23 PM
آخر رد: RaggiTech
  معرفة لون النقطة التي يمر بها الماوس حالياً RaggiTech 0 397 17-10-12, 01:08 AM
آخر رد: RaggiTech
  لعمل فورم شفاف باستخدام فيجوال بيسك RaggiTech 0 614 17-10-12, 12:58 AM
آخر رد: RaggiTech
  لعمل Enable و Disable لزر X في الفورم RaggiTech 0 325 17-10-12, 12:57 AM
آخر رد: RaggiTech
  طريقة لعمل فورم دائري RaggiTech 0 517 17-10-12, 12:45 AM
آخر رد: RaggiTech
  لعمل أشرطة افقية ل ListBox RaggiTech 0 459 14-10-12, 01:25 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم