اتصال به كانكشن

[ebrahimv]

سلام
دوستان ديديد تو دانلود منيجر يه قسمت هست براي ارتباط با مودم يوزر پسورد رو توش مينويسي و ميتوني باهاش وصل بشي به اينترنت
مي خوام همين كارو با وي بي انجام بدم
كسي ميدونه چيكار بايد كرد؟

[just4froum]

از دو روش می تونی
1- api که یکم سخته
2- shell که خیلی راحته

Dim ConnectionName As String: ConnectionName = "Your Connection Name"
Dim ConnectionUser As String: ConnectionUser = "Your Connection UserName"
Dim ConnectionPass As String: ConnectionPass = "Your Connection PassWord"
Dim Space As String: Space = """ """

Shell "rasdial """ & ConnectionName & Space & ConnectionUser & Space & ConnectionPass & """"

[ebrahimv]

ممنون
حالا چطوري تشخيص بديم كه يه كانكشن از قبل وصل هست يا نه؟
يا يك دستور براي قطع كانكشن؟

[just4froum]

با این کد کانکشنی رو که باهاش کانکت هستید نشون میده (البته این کد من نیست و جناب واژدی نوشتنش)

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

اینم برای disconnect شدن از روش shell

Dim ConnectionName As String: ConnectionName = "Your Connection Name"
Shell "rasdial """ & ConnectionName & """ " & "/Disconnect"

[ebrahimv]

اي ول آقا خيلي ممنون
اما اگه ميشون اسم كانكشن رو بدم و بگه اون كانكشن وصل هست يا نه خيلي عالي ميشد

[arenaw]

خب با کدی که جناب just4froum هم براتون نوشتند هم میشه دیگه

اینجوری :

If CurrentConnectionName = InputBox("Enter Connection Name:") Then MsgBox "Connected!" Else MsgBox "Disconnected!"

[just4froum]

خب با کدی که جناب just4froum هم براتون نوشتند هم میشه دیگه

اینجوری :

If CurrentConnectionName = InputBox("Enter Connection Name:") Then MsgBox "Connected!" Else MsgBox "Disconnected!"


نه متاسفانه . اگر شما مثلا با 2 یا 3 تا کانکشن وصل شید مثلا یه اینترنت و یه vpn این تابع vpn یا همون آخرین چیزی که باهاش کانکت شدید و هنوز هم کانکت هست رو بر می گردونه.

پس اگر این کارو بکنید فقط vpn رو نشون میده که کانکت هست.