تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل] ماهو كود قطع النت واعادته للمودم
#1
ماهو كود قطع النت واعادته للمودم عبر فيجوال بيسك؟
هذا السؤال هو من بين الاسئلة الكثيرة التي لم اجد لها جواب ولاول مرة اساله هنا
تم الشكر بواسطة: ola , ola
#2
هل هذا ما تقصده اخي سعود ؟
http://support.microsoft.com/default.aspx?scid=kb;en-us;821770
تم الشكر بواسطة: ola
#3
شكرا اخي لكن للاسف ليس مااريد
اريد المودم اللي هو الراوتر اتصال رقمي وليس طلب هاتفي
تم الشكر بواسطة: ola , ola
#4
الإجابه علي مثل هذه الأسءله يحتاج الي عبقري من عباقرة APi ثانيا الراوتر انواع كثيره فهل نوع الراوتر هذا مرفق معه مكتبات dll حتي تستطيع التحكم فيه
تم الشكر بواسطة:
#5
لا علم لي بصراحة؟ يوجد لدي نوعان مودم شامل 007 ومودم تومسون
تم الشكر بواسطة: ola
#6
اخي سعود لعل هذا يكون ما تقصده
لدي طريقتان انا اتبعهما فهما يقومان بنفس العمل ولكن عن طريق قطع الانترنت من داخل خصائص الاتصال وليس
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 لان الكلمة ممنوعه في المنتدى
تم الشكر بواسطة: ola , ola
#7
بارك الله فيك اخي الكريم .. هدفي من القطع هو لكي احصل على رقم آي بي جديد
لاني افكر ببرنامج يجدد الاي بي كل فترة.
جربت ipconfig/release
ipconfig/renew
ولم يجدي
هل الكود الذي اضفت مؤخرا يؤدي لطريقة تجديد الاي بي؟
تم الشكر بواسطة: ola
#8
يبدو انه مثل ماقال الاخ امجد الراوتر يحتاج اوامر اخرى.
تم الشكر بواسطة: ola
#9
بصراحة لا اعلم كثيراً في هذا الموضوع ولكن ما اعلمه هو ان الكود الذي وضعته يقوم بتغير اي بي الجهاز على الشبكة المحليه و ليس الاي بي الخارجي

وفقك الله
تم الشكر بواسطة: ola
#10
اخى الكريم على حسب خبرتى القليلة الرواترز تبرمج بلغة السي اظن ان برنامج هذا سيكون افضل بلغة السي
microsoft partner
Team administrator
MCPD,MCITP,OCP,MP,MCC
Xprema Systems
تم الشكر بواسطة: ola


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] بطئ نسبي في المشروع على شبكة النت مصطفى السعدي 3 80 أمس, 08:00 AM
آخر رد: elgokr
  ما الحل فى هذه الرسالة اثناء الحفظ محمد ابوخليل 5 81 14-05-18, 12:42 AM
آخر رد: elgokr
  [سؤال] عايز اعرف ايه السبب وايه الحل؟ RaiseEvent الماجيك مسعد 6 116 11-05-18, 09:16 PM
آخر رد: الماجيك مسعد
  [VB.NET] (تم الحل)مساعدة في تغيير اسم حقل في جدول blida02 5 96 11-05-18, 06:05 PM
آخر رد: boudyonline
Exclamation [سؤال] ارجو الحل السريع Abdalrhman 1 75 29-04-18, 09:02 AM
آخر رد: سعود
  [VB.NET] تم الحل لكل المطلوب في قاعدة البيانات اسامه الهرماوي 2 160 02-04-18, 12:33 PM
آخر رد: ahmedfa71
  ماهو الخطاء في هدا البرنامج moka1 1 97 22-03-18, 12:14 AM
آخر رد: عبد العزيز البسكري
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 12 6,426 25-02-18, 03:27 PM
آخر رد: فوبيا
  [سؤال] مشكلة في عمل load لملف xml مرة أخرى وقت التشغيل ... ما الحل ؟ Dr.Sherif Alazizi 1 69 20-02-18, 12:42 AM
آخر رد: طالب برمجة
  الحل النهائى لجعل برنامجعك متعدد اللغات ali.alfoly 17 2,021 15-02-18, 01:09 PM
آخر رد: altho8

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم