منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[تم الحل] ماهو كود قطع النت واعادته للمودم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [تم الحل] ماهو كود قطع النت واعادته للمودم (/showthread.php?tid=4362)

الصفحات: 1 2 3


[تم الحل] ماهو كود قطع النت واعادته للمودم - سعود - 23-09-12

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



[تم الحل] ماهو كود قطع النت واعادته للمودم - RaggiTech - 23-09-12

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



[تم الحل] ماهو كود قطع النت واعادته للمودم - سعود - 23-09-12

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


[تم الحل] ماهو كود قطع النت واعادته للمودم - amgadtamer - 23-09-12

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


[تم الحل] ماهو كود قطع النت واعادته للمودم - سعود - 23-09-12

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


[تم الحل] ماهو كود قطع النت واعادته للمودم - RaggiTech - 23-09-12

اخي سعود لعل هذا يكون ما تقصده
لدي طريقتان انا اتبعهما فهما يقومان بنفس العمل ولكن عن طريق قطع الانترنت من داخل خصائص الاتصال وليس
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 لان الكلمة ممنوعه في المنتدى


[تم الحل] ماهو كود قطع النت واعادته للمودم - سعود - 23-09-12

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



[تم الحل] ماهو كود قطع النت واعادته للمودم - سعود - 23-09-12

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


[تم الحل] ماهو كود قطع النت واعادته للمودم - RaggiTech - 23-09-12

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

وفقك الله



[تم الحل] ماهو كود قطع النت واعادته للمودم - smss - 23-09-12

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