23-09-12, 04:04 AM
23-09-12, 03:40 PM
هل هذا ما تقصده اخي سعود ؟
http://support.microsoft.com/default.aspx?scid=kb;en-us;821770
http://support.microsoft.com/default.aspx?scid=kb;en-us;821770
23-09-12, 04:27 PM
شكرا اخي لكن للاسف ليس مااريد
اريد المودم اللي هو الراوتر اتصال رقمي وليس طلب هاتفي
اريد المودم اللي هو الراوتر اتصال رقمي وليس طلب هاتفي
23-09-12, 04:45 PM
الإجابه علي مثل هذه الأسءله يحتاج الي عبقري من عباقرة APi ثانيا الراوتر انواع كثيره فهل نوع الراوتر هذا مرفق معه مكتبات dll حتي تستطيع التحكم فيه
23-09-12, 04:48 PM
لا علم لي بصراحة؟ يوجد لدي نوعان مودم شامل 007 ومودم تومسون
23-09-12, 04:53 PM
اخي سعود لعل هذا يكون ما تقصده
لدي طريقتان انا اتبعهما فهما يقومان بنفس العمل ولكن عن طريق قطع الانترنت من داخل خصائص الاتصال وليس Connect و DisConnect
و الفرق بين الطريقتان هو حجم الكود و طريقة الوصول الى ipconfig
الطريقة الاولى :
تقوم باضافة مرجع System.Management
Project > Add Reference > .NET > System.Management
ثم تقوم بكتاية هذا الكود في General
كود قطع الاتصال
كود الاتصال
واليك هذه الداله للتأكد من النتيجه بوجود انترنت او لا عن طريق ping
مثال على استخدام هذه الداله
الطريقة الثانية
كود قطع الاتصال
كود الاتصال
مع حذف المسافة بين حرف s و h لان الكلمة ممنوعه في المنتدى
لدي طريقتان انا اتبعهما فهما يقومان بنفس العمل ولكن عن طريق قطع الانترنت من داخل خصائص الاتصال وليس 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, 05:05 PM
بارك الله فيك اخي الكريم .. هدفي من القطع هو لكي احصل على رقم آي بي جديد
لاني افكر ببرنامج يجدد الاي بي كل فترة.
جربت ipconfig/release
ipconfig/renew
ولم يجدي
هل الكود الذي اضفت مؤخرا يؤدي لطريقة تجديد الاي بي؟
لاني افكر ببرنامج يجدد الاي بي كل فترة.
جربت ipconfig/release
ipconfig/renew
ولم يجدي
هل الكود الذي اضفت مؤخرا يؤدي لطريقة تجديد الاي بي؟
23-09-12, 05:21 PM
يبدو انه مثل ماقال الاخ امجد الراوتر يحتاج اوامر اخرى.
23-09-12, 05:43 PM
بصراحة لا اعلم كثيراً في هذا الموضوع ولكن ما اعلمه هو ان الكود الذي وضعته يقوم بتغير اي بي الجهاز على الشبكة المحليه و ليس الاي بي الخارجي
وفقك الله
وفقك الله
23-09-12, 05:59 PM
اخى الكريم على حسب خبرتى القليلة الرواترز تبرمج بلغة السي اظن ان برنامج هذا سيكون افضل بلغة السي