+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
[تم الحل] ماهو كود قطع النت واعادته للمودم - سعود - 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
اخى الكريم على حسب خبرتى القليلة الرواترز تبرمج بلغة السي اظن ان برنامج هذا سيكون افضل بلغة السي