الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه الوليد123 في 25 فبراير 2009 · 8 رد · 2,853 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

192.168.0.49

255.255.255.0

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

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

post-180866-1235523712_thumb.jpg

تم تعديل هذه المشاركة بواسطة الوليد123 في 25 فبراير 2009 في 04:03

#2



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

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#3

الاخ mrx_ta7ady

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

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

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

وشكرا مقدما

#4 
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

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#5

ربنا يحفظك من كل مكروه

#6

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

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

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

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

تم تعديل هذه المشاركة بواسطة السندبااد في 28 فبراير 2009 في 15:06

فاعلم أنه لا إله إلا الله

#7

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

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

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

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

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

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#8
mrx_ta7ady كتب:

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

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

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

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

mrx_ta7ady كتب:

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

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

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

فاعلم أنه لا إله إلا الله

#9

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

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

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

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

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

مواضيع مشابهة