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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  [VB.NET] ماهو اسم هذه الازرار ( + موجب و - سالب ) h2551996 1 249 19-12-23, 10:29 PM
آخر رد: justforit
  مساعدة بشرح ربط قاعدة بيانات اكسس و استخدامها عبر النت rami700 2 475 06-11-23, 04:16 PM
آخر رد: أبووسم
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 280 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  ممكن الحل masport tv 0 295 07-04-23, 11:36 AM
آخر رد: masport tv
  ارجو ان لا تبخلو علينا با الحل ahmedbezia 3 466 06-12-22, 01:29 PM
آخر رد: ahmedbezia
  ماهو مشكلة الكريستال ريبورت مع الأكسس صالح عبدالله 0 475 30-09-22, 09:27 AM
آخر رد: صالح عبدالله
  [سؤال] [تم الحل] انشاء المسارات وتمرير البارامترات لها وقت التشغيل سعود 7 1,220 03-09-22, 09:44 AM
آخر رد: Taha Okla
  مشكلة واجهتني كتير وزهقت منها فاللي عنده الحل ياريت يفيدني بيه ميدو الفنان 7 1,023 03-09-22, 03:33 AM
آخر رد: ميدو الفنان
  [سؤال] * تم الحل * التحكم بمخرجات السريال بورت واعادة تحويلها mohamedallams 1 431 30-08-22, 06:42 PM
آخر رد: mohamedallams

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


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