قطع کردن اینترنت

[h_a_m_i_d]

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

[h_a_m_i_d]

یعنی کسی تو این تالار بلد نیست چطوری میشه اینترنت رو با برنامه نویسی قطع کرد

[arman_Delta2002]

مناین کار رو کردم البته کانکشن های داخل کنترل پنل رو دی اکتیو و اکتیو کردم واسه وصل شدن بعنی برای مودم ای دی اس ال کانکشن شبکه رو بستم و باز کردم اینتوری انترنت رو قطع و وصل کردم.
Shell("netsh interface set interface name=" & Chr(34) & CStr(ComboBox_Conect1.Text) & Chr(34) & " admin=disabled", AppWinStyle.Hide, True, Val(TextBox_WaitTime1.Text))

[h_a_m_i_d]

خوب دوست عزیز این روش شما رو کامپیوترهایی عمل میکنه که مودم ای دی اس ال داشته باشه
من میخوام با هر اینترنتی کار کنه و یک دستور کلی داشته باشه
میخوام که مثلا اگر اینترنت دایل اپ بود هم کار کنه
ممنون از شما دوست عزیز اگه میتونین در مورد این سوال منو راهنمایی کنید
ممنون

[Samsam2010]

دوست من ، من جوابی برای شما ندارم اما خواستم بهت یه توصیه بکنم
زبان برنامه نویسی با IF جلو میره ! شما میتونی چک کنی اگر مودم ADSL بود از کدی که دوستمون گذاشته استفاده کنید و برای دایل آپ از یه روش دیگه
من خودم روش کلی رو خیلی دوست دارم اما بعضی وقتا مجبوریم به این شکل عمل کنیم

[arman_Delta2002]

اینم اتصال واسه دایال آپ

Dim Space As String = """ """
Shell("rasdial """ & connectionName & Space & ConnectionUser & Space & ConnectionPass & """", AppWinStyle.Hide, True, Val(TextBox_WaitTime1.Text))

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

[crazyfull]

برای ديسکانکت کردن کانکشنهای ADSL و DialUp ميتونيد از API rashangup استفاده کنيد


Imports System.Runtime.InteropServices




Private Const RAS_MaxEntryName As Integer = 256
Private Const RAS_MaxDeviceType As Integer = 16
Private Const RAS_MaxDeviceName As Integer = 128
Private Const RAS_RASCONNSIZE As Short = 412

Public Structure RASCONN
Public dwSize As Integer
Public hRasCon As IntPtr

<MarshalAs(UnmanagedType.ByValTStr, sizeconst:=RAS_MaxEntryName + 1)> _
Public szEntryname As String
<MarshalAs(UnmanagedType.ByValTStr, sizeconst:=RAS_MaxDeviceType + 1)> _
Public szDeviceType As String
<MarshalAs(UnmanagedType.ByValTStr, sizeconst:=RAS_MaxDeviceName + 1)> _
Public szDeviceName As String
End Structure

Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (ByRef lpRasConn As RASCONN, ByRef lpcb As Integer, ByRef lpcConnections As Integer) As Integer
Private Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Integer) As Integer


Private Sub DC()
Dim returncode As Integer
Dim lpcb As Integer
Dim lpRasConn As New RASCONN
Dim lpcConnections, hRasConn As Integer

lpRasConn.dwSize = RAS_RASCONNSIZE
lpcb = RAS_MaxEntryName * lpRasConn.dwSize
lpcConnections = 0
returncode = RasEnumConnections(lpRasConn, lpcb, lpcConnections)

If returncode = 0 Then
hRasConn = lpRasConn.hRasCon
'Hang up
returncode = RasHangUp(hRasConn)
End If

End Sub

[h_a_m_i_d]

خیلی متشکرم از دوستانی که منو راهنمایی کردن حالا میشه بگین چطوری میتونم لیست کانکشن ها رو داشته باشم که یعنی در یک لیست وارد کنم و فرد با هر کدوم خواست کانکت شه به اینترنت
ممنون

[arman_Delta2002]

بفرما

Dim adapters As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
Public Sub DisplayDnsConfiguration()

Dim adapter As NetworkInterface

For Each adapter In adapters
Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
ComboBox_Conect1.Items.Add(adapter.Name)
' ComboBox_Conect1.Items.Add(adapter.Description)
Next adapter

End Sub 'DisplayDnsConfiguration

[h_a_m_i_d]

ببخشید حالا میشه بگید چطوری میشه فهمید مودم ای دی اس ال هست یا نه

[arman_Delta2002]

ی 2 تا اپشن باتوم بزار اگر کاربر نوع دایال آپ رو انتخواب کرد که خوب کد پست 6 رو اجرا کنه اگر هم نوع شبکه رو انتخواب کرد که از داخل کامبو خودش کانکشن ADSL رو انتخواب کرده و کد پست 3 رو اجرا کنه

[h_a_m_i_d]

ی 2 تا اپشن باتوم بزار اگر کاربر نوع دایال آپ رو انتخواب کرد که خوب کد پست 6 رو اجرا کنه اگر هم نوع شبکه رو انتخواب کرد که از داخل کامبو خودش کانکشن ADSL رو انتخواب کرده و کد پست 3 رو اجرا کنه
ایا راهی برای اینکار توسط خود برنامه وجود نداره که خودش تشخیص بده مودمو