Connection Name

[aria1o]

با سلام

دوستان عزیز چجوری میتونم Connection Name اینترنت رو که بوسیله اون به اینترنت وصل هستم رو تشخیص بدم !!؟

[milad-sezar]

منم زیاد دنبال این بودم:لبخند:فقط تا اینجا رسیدم

[aria1o]

دست شما درد نکنه ،ولی من لنگ اسم کانکشن هستم....بازم ممنون:قلب:

[aria1o]

اساتید سایت کسی نمیتونه کمک کنه ؟

[aria1o]

بابا یکی کمک کنه کارم گیره ،هرچی میگردم چیزه قابل توجه ای پیدا نمیکنم....ازتو رجیستری هم رفتم تو همه سیستما درست جواب نمیده :گریه:

[سید حمید حق پرست]

سلام العلیکم
من نمونه برنامه دارم . فارسی هست . خودم دستکاریش کردم:چشمک: . ولی متاسفانه سورس ندارم:ناراحت:

موفق باشی

یا علی(ع)

[محسن واژدی]

سلام
کد زیر نام اتصال فعلی را برمیگرداند:

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
Public Function CurrentConnectionName() As String
On Error Resume Next
Dim lRet As Long
Dim sConnType As String

sConnType = String(255, Chr(0))
Call InternetGetConnectedStateEx(lRet, sConnType, 255, 0)
CurrentConnectionName = Left(sConnType, InStr(1, sConnType, Chr(0)) - 1)
End Function

Private Sub Command1_Click()
MsgBox "Current connection name: " & vbNewLine & CurrentConnectionName, vbInformation
End Sub




موفق باشید

[سید حمید حق پرست]

واسه من کار نکرد

[Veteran]

کدی که اقا محسن گذاشتن مشکلی نداره

[سید حمید حق پرست]

من نگفتم کد ایشان اشتباهه . شاید سیستم من مشکل داشته باشه چون ازطریق وایرلز به نت وصلم

[aria1o]

با تشکر از آقای واژدی برای من درست کار کرد

اگه امکانش هست آقای حق پرست کد زیر رو تست کنه و ببینه جواب میده یا نه چون گفتید با وایرلس کار میکنید... اگه جواب داد از نتیجه یک عکس بگیرید تا ببینم نتیجه به چه صورت هستش.... با تشکر


Dim myobj As Object, i As Integer
On Error GoTo errh
Set myobj = CreateObject("wscript.shell")
Set myobj = myobj.exec("cmd /c rasdial")
Me.AutoRedraw = True
Me.Cls
Do
With myobj
With .StdOut
If Not .AtEndOfStream Then
MsgBox .ReadAll()
End If
End With
End With
DoEvents
Loop While myobj.Status = "WshRunning"
Set myobj = Nothing
Me.SetFocus
Exit Sub
errh:
Me.Print "Error: " & Err.Description

[سید حمید حق پرست]

نه داداش درست نشد اینو میده : Connected to
Dial-up Connection
Command completed successfully.

در حالی که با وایرلز به نت وصلم . قبلی هم اینطور بود:متعجب::گیج: