تشخیص نوع اینترنت؟

[mohsen57]

آیا راهی وجود داره به بفهمیم که کاربر با چه نوع اینترنتی کانکت شده؟ مثلا بدونیم Dial-up ، adsl یا وایر لس

[Babak.Hassanpour]

Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

Private Const CONNECT_LAN As Long = &H2
Private Const CONNECT_MODEM As Long = &H1
Private Const CONNECT_PROXY As Long = &H4
Private Const CONNECT_OFFLINE As Long = &H20
Private Const CONNECT_CONFIGURED As Long = &H40

Public Function IsWebConnected(Optional ByRef ConnType As String) As Boolean
Dim dwflags As Long
Dim WebTest As Boolean
ConnType = ""
WebTest = InternetGetConnectedState(dwflags, 0&)
Select Case WebTest
Case dwflags And CONNECT_LAN: ConnType = "LAN"
Case dwflags And CONNECT_MODEM: ConnType = "Modem"
Case dwflags And CONNECT_PROXY: ConnType = "Proxy"
Case dwflags And CONNECT_OFFLINE: ConnType = "Offline"
Case dwflags And CONNECT_CONFIGURED: ConnType = "Configured"
Case dwflags And CONNECT_RAS: ConnType = "Remote"
End Select
IsWebConnected = WebTest
End Function
Private Sub Command1_Click()
Dim msg As String
If IsWebConnected(msg) Then
msg = "You are connected to the Internet via: " & msg
Else
msg = "You are not connected to the Internet."
End If
MsgBox msg, vbOKOnly, "Internet Connection Status"
End Sub

اینم اون چیزی که می خواستین.

[Babak.Hassanpour]

البته یه سرس ایراد هم داره ولی واسه تفکیک بین dial up و بقیه خوبه.
مثلا adsl , wlan , lan رو همه رو لن میشناسه.

[Mbt925]

نمونه مورد نظر شما

[Mbt925]

البته یه سرس ایراد هم داره ولی واسه تفکیک بین dial up و بقیه خوبه.
مثلا adsl , wlan , lan رو همه رو لن میشناسه.

نه دوست عزیز، سورس مشکلی نداره.

در واقع همه ی اینایی که گفتید، زیرمجموعه LAN دسته بندی میشن.
معمولا بعد از اینکه LAN تشخیص داده شد، از روش هایی برای تفکیک هر کدوم از دسته ها استفاده میشه.

[Babak.Hassanpour]

نمونه مورد نظر شما


با سلام خدمت مدیر عزیز
این نمونه ای شما گزاشتین همونی هست که من کدش رو تو پست دوم دادم هیچ فرقی نداره.منظورم اینه که نمیتونه بین lan , adsl , wirelesslan تفاوت قائل بشه.در کل از اینکه به شکل پروژه ارسال کردین ممنون.
راستی چرا نمیشه فایل ضمیمه کرد ؟ سرور مشکل داره؟ یا محدودیت قائل شدید؟