تابعی برای تشخیش نام کانکشن متصل به اینترنت

[HoseinVig]

سلام
با چه تابعی میتونم نام کانکشنی که الان وصله به اینترنت رو برگردونم ؟
با این تابه نحوه اتصال رو چک کردم (InternetGetConnectedState)

فکر کنم با (InternetGetConnectedStateEx) بشه اسم رو برگردوند ولی هر کاری کردم نتونستم declare کنم.
لطفا" راهنماییم کنید
بای

[Pedram_HookEx]

این کار با استفاده از تابع

کد:

Public Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, lpcConnections As Long) As Long

امکان پذیره


مثال رو میزارم اینجا اگه توضیحی خواستی بگو
لینک دانلود(حجم 3KB)

[HoseinVig]

دستت درد نکنه پدرام ، کامل و دقیق بود.
فقط منو ببخشید که دیر به دیر میام جون واقعاً چند روزه اینجا اوضاع اینترنتا خرابه یه یه روز وصله 4 روز قطعه

[HoseinVig]

فقط یه چیز دیگه ، چجور میشه لیست تمامی Dial-up Connection های موجود توی سیستم رو استخراج کرد ؟

[Pedram_HookEx]

کد:

Private Const RAS_MaxEntryName           As Long = &H100
Private Type RASENTRYNAME
   dwSize                        As Long
   szEntryName(RAS_MaxEntryName) As Byte
End Type
Private Declare Function RasEnumEntries Lib "rasapi32.dll" Alias "RasEnumEntriesA" (ByVal lpcstr As String, ByVal lpcstr As String, ByRef lprasentrynamea As Any, ByRef lpdword As Long, ByRef lpdword As Long) As Long
Private Sub Form_Load()
    Dim EntName()  As RASENTRYNAME
    Dim lSize     As Long

    ReDim EntName(0) As RASENTRYNAME
    EntName(0).dwSize = &H108
    lSize = EntName(0).dwSize
                                                                    
    l = RasEnumEntries(vbNullString, vbNullString, EntName(0), lSize, ln)
    If l = 603 Then  'باید دوباره اندازه گزاری بشه
                
          ReDim EntName(ln - 1) As RASENTRYNAME 'به تعداد کانکشن هایمان

          EntName(0).dwSize = &H108
          lSize = ln * EntName(0).dwSize 'بافر مورد نیاز که برابر بافر مورد نیاز برای هر کانکشن در تعداد کانکشن

         RasEnumEntries vbNullString, vbNullString, EntName(0), lSize, GetRasEntrLst
    End If
    
    
    For l = 0 To ln - 1
        a$ = StrConv(EntName(l).szEntryName(), vbUnicode)
        List1.AddItem Left$(a$, InStr(a$, Chr$(0)) - 1)
    Next
    If ln = 0 Then
        Me.Print "No Dial-Up connections found!"
    End If
End Sub

جونم بالا اومد توی API-Guide یه مثال بود که مشکل داشت مشکلشم در مقدار بافر ورودیش بود

[HoseinVig]

جونم بالا اومد توی API-Guide یه مثال بود که مشکل داشت مشکلشم در مقدار بافر ورودیش بود

پدرام جان خیلی شرمنده کردی انشالا جبران کنم . کدت بی عیب و نقص بود.
خدا نگهدار

[Pedram_HookEx]

خواهش میکنم حسین خان باعث شد ما هم یه چیزی یاد بگیریم