[سعود]

ماهو كود قطع النت واعادته للمودم عبر فيجوال بيسك؟
هذا السؤال هو من بين الاسئلة الكثيرة التي لم اجد لها جواب ولاول مرة اساله هنا

[RaggiTech]

هل هذا ما تقصده اخي سعود ؟
http://support.microsoft.com/default.aspx?scid=kb;en-us;821770

[سعود]

شكرا اخي لكن للاسف ليس مااريد
اريد المودم اللي هو الراوتر اتصال رقمي وليس طلب هاتفي

[amgadtamer]

الإجابه علي مثل هذه الأسءله يحتاج الي عبقري من عباقرة APi ثانيا الراوتر انواع كثيره فهل نوع الراوتر هذا مرفق معه مكتبات dll حتي تستطيع التحكم فيه

[سعود]

لا علم لي بصراحة؟ يوجد لدي نوعان مودم شامل 007 ومودم تومسون

[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 لان الكلمة ممنوعه في المنتدى

[سعود]

بارك الله فيك اخي الكريم .. هدفي من القطع هو لكي احصل على رقم آي بي جديد
لاني افكر ببرنامج يجدد الاي بي كل فترة.
جربت ipconfig/release
ipconfig/renew
ولم يجدي
هل الكود الذي اضفت مؤخرا يؤدي لطريقة تجديد الاي بي؟

[سعود]

يبدو انه مثل ماقال الاخ امجد الراوتر يحتاج اوامر اخرى.

[RaggiTech]

بصراحة لا اعلم كثيراً في هذا الموضوع ولكن ما اعلمه هو ان الكود الذي وضعته يقوم بتغير اي بي الجهاز على الشبكة المحليه و ليس الاي بي الخارجي

وفقك الله

[smss]

اخى الكريم على حسب خبرتى القليلة الرواترز تبرمج بلغة السي اظن ان برنامج هذا سيكون افضل بلغة السي