• 0
الوليد123

[ تمت الإجابة ]هل يوجد كود لتغيير Ip الجهاز

سؤال

هل يوجد كود لتغيير رقم الاي بي الخاص بالجهاز لتسجيل ارقام اي بي مثل

192.168.0.49

255.255.255.0

وكذلك كود لجعل رقم الاي بي تلقائي

ارجوا المساعدة وشكرا

post-180866-1235523712_thumb.jpg

تم تعديل بواسطه الوليد123
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

8 إجابة على هذا السؤال .

  • 0



Private Sub Form_Load()
Dim objWMIService
Dim objNetAdapter
Dim strComputer
Dim arrIPAddress
Dim arrSubnetMask
Dim arrGateway
Dim colNetAdapters
Dim errEnableStatic
Dim errGateways

strComputer = "."
arrIPAddress = Array("192.168.1.2")
arrSubnetMask = Array("255.255.255.0")
arrGateway = Array("192.168.1.1")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter In colNetAdapters
errEnableStatic = objNetAdapter.EnableStatic(arrIPAddress, arrSubnetMask)
errGateways = objNetAdapter.SetGateways(arrGateway)
Next
End Sub
Option Explicit

وللأمانة العلمية أصل الموضوع في الرابط أدناه

Change IP address using vbScript

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الاخ mrx_ta7ady

كلمة شكر قليلة في حقك

الف شكر على هذا الكود الرائع

وهل بالامكان كود لجعل رقم الاي بي (تلقائي)

وشكرا مقدما

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
Option Explicit

Private Sub Form_Load()
Dim objWMIService
Dim objNetAdapter
Dim strComputer
Dim arrIPAddress
Dim arrSubnetMask
Dim arrGateway
Dim colNetAdapters
Dim errEnable

strComputer = "."
arrIPAddress = Array("192.168.1.2")
arrSubnetMask = Array("255.255.255.0")
arrGateway = Array("192.168.1.1")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
Next
End Sub

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم وجزاكم الله خيراً

سؤال لو تكرمتم: ما الفائدة من تغيير آي بي الجهاز؟

لو أنني كنت أحمل من الرابيدشير ثم توقف التحميل لمدة محددة بسبب أن الآي بي حمل أكثر من مرة؟ فهل هذه العملية تحل المشكلة؟

بارك الله فيكم

تم تعديل بواسطه السندبااد
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الاخ السندباد .. ليس هذا المكان المناسب لسؤالك

وللاستفسار عن الفائدة من تغيير الـ IP فعليك التوجه الى قسم الشبكات

اما السؤال الثاني هذا فلا دخل له من وجهة نظري بالمنتدى كله

لكل ممكن يكن له علاقة ببرمجة الويب من حيث ثغرات الـ Rapidshare

وعلى كل حال تقدر ترستر الراوتر فقط وكل شيء هيبقى تمام

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الاخ السندباد .. ليس هذا المكان المناسب لسؤالك

وللاستفسار عن الفائدة من تغيير الـ IP فعليك التوجه الى قسم الشبكات

السلام عليكم واعذرني أخي الحبيب على عدم اختيار المكان المناسب

لكن من باب الشيء بالشيء يذكر أحببت معرفة فائدة تغيير الآي بي

وعلى كل حال تقدر ترستر الراوتر فقط وكل شيء هيبقى تمام

هل لك أن توضح لي هذه النقطة فلم أفهمها؟

جزاك الله خيراً

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

عادتا ما يكون الـ IP غير ثابت Dynamic وليس Static

اذا عند التحميل من اي موقع يقوم بمراقة الـ IP لديك .. وعند عمل Restart للراوتر تحصل على IP مختلف

واقصد بمختلف انه متغير عن الـ IP قبل الـ Restart .. وطبعا لو هتدخل تاني على الـ Rapidshare مش هيكون عارفه

والـ IP المذكور ليس هو IP الشبكة 192.168.1.0

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .