سلام
با چه تابعی میتونم نام کانکشنی که الان وصله به اینترنت رو برگردونم ؟
با این تابه نحوه اتصال رو چک کردم (InternetGetConnectedState)
فکر کنم با (InternetGetConnectedStateEx) بشه اسم رو برگردوند ولی هر کاری کردم نتونستم declare کنم.
لطفا" راهنماییم کنید
بای
این کار با استفاده از تابع
کد:
Public Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, lpcConnections As Long) As Long
امکان پذیره
مثال رو میزارم اینجا اگه توضیحی خواستی بگو
لینک دانلود(حجم 3KB)
دستت درد نکنه پدرام ، کامل و دقیق بود.
فقط منو ببخشید که دیر به دیر میام جون واقعاً چند روزه اینجا اوضاع اینترنتا خرابه یه یه روز وصله 4 روز قطعه
فقط یه چیز دیگه ، چجور میشه لیست تمامی Dial-up Connection های موجود توی سیستم رو استخراج کرد ؟
کد:
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 یه مثال بود که مشکل داشت مشکلشم در مقدار بافر ورودیش بود
نقل قول: جونم بالا اومد توی API-Guide یه مثال بود که مشکل داشت مشکلشم در مقدار بافر ورودیش بود
پدرام جان خیلی شرمنده کردی انشالا جبران کنم . کدت بی عیب و نقص بود.
خدا نگهدار
خواهش میکنم حسین خان باعث شد ما هم یه چیزی یاد بگیریم