[RaggiTech]

اخي سعود لعل هذا يكون ما تقصده
لدي طريقتان انا اتبعهما فهما يقومان بنفس العمل ولكن عن طريق قطع الانترنت من داخل خصائص الاتصال وليس Connect و DisConnect
و الفرق بين الطريقتان هو حجم الكود و طريقة الوصول الى ipconfig

الطريقة الاولى :
تقوم باضافة مرجع System.Management
Project > Add Reference > .NET > System.Management

ثم تقوم بكتاية هذا الكود في General

كود :

Imports System.Management

كود قطع الاتصال

كود :

On Error Resume Next
Dim objMC As New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim objMOC As ManagementObjectCollection = objMC.GetInstances()
For Each objMO As ManagementObject In objMOC
objMO.InvokeMethod("ReleaseDHCPLease", Nothing, Nothing)
        Next

كود الاتصال

كود :

On Error Resume Next
Dim objMC As New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim objMOC As ManagementObjectCollection = objMC.GetInstances()
        For Each objMO As ManagementObject In objMOC
            objMO.InvokeMethod("RenewDHCPLease", Nothing, Nothing)
        Next

واليك هذه الداله للتأكد من النتيجه بوجود انترنت او لا عن طريق ping

كود :

Private Function ping(ByVal server As String) As String
Try
            Dim raggi As New Stopwatch
            raggi.Start()
            My.Computer.Network.Ping(server)
            raggi.Stop()
            MsgBox("Connected")
            Return True
        Catch
            MsgBox("Disconnected")
            Return False
        End Try
    End Function

مثال على استخدام هذه الداله

كود :

ping("google.com")

الطريقة الثانية

كود قطع الاتصال

كود :

s hell[FONT=Arial]("cmd.exe /c ipconfig/release") [/FONT]

كود الاتصال

كود :

s hell[FONT=Arial]("cmd.exe /c ipconfig/renew")[/FONT]

مع حذف المسافة بين حرف s و h لان الكلمة ممنوعه في المنتدى