تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عند فتح فورم يتم غلق كافة الفورمات وصلت لنص الحل وارجو من الخبراء المساعده نبيل فتحى 3 94 06-10-17, 01:54 AM
آخر رد: نبيل فتحى
  مساعدة في حفظ ماهو مكتوب في textbox اوتوماتيكي trakktour 1 86 01-10-17, 10:30 PM
آخر رد: Amir_alzubidy
  [VB.NET] لكل خبير ارجو الحل Engmtamous 8 186 21-09-17, 07:52 PM
آخر رد: alsouf
  [VB.NET] أريد رفع قاعدة البيانات على النت والتعامل معها من أي جهاز tarek 4 184 05-09-17, 05:53 PM
آخر رد: سعود
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 5,613 25-05-17, 08:04 AM
آخر رد: hatem555
  [نقاش] استفسار بخصوص النت فراموورك Net Framework Ratchinko 4 222 15-05-17, 01:48 AM
آخر رد: Ratchinko
  ماهو الكلاس وكيفية بناء كلاس bidaya 7 345 09-05-17, 08:12 PM
آخر رد: mazen1993
  ما الحل ؟؟؟ alma_fandi 15 531 08-05-17, 05:21 AM
آخر رد: alma_fandi
  موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟ MOSTAFA.KAMEL 4 261 15-03-17, 07:52 PM
آخر رد: MOSTAFA.KAMEL
  سحب سرعة النت عبدالرحمن المكاوي 3 249 02-02-17, 06:31 PM
آخر رد: الماجيك مسعد

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


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