تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] محتاج كود تغير الاي بي أو مشروع
#1
Tongue 
السلام عليكم : كيفكم إن شاء الله تكونو بخير يارب .

محتاج كود لتغير الاي بي أو مشروع لتغير الاي بي حسب طلبي  طبعاً جربت المواضع السابقة بس بدون فأدة وشكراً  Angel
الرد
تم الشكر بواسطة: سعود , asemshahen5
#2
(07-09-19, 10:47 PM)aldery كتب : السلام عليكم : كيفكم إن شاء الله تكونو بخير يارب .

محتاج كود لتغير الاي بي أو مشروع لتغير الاي بي حسب طلبي  طبعاً جربت المواضع السابقة بس بدون فأدة وشكراً  Angel

وجدت لك هدا الكود انا لم اجربه
كود :
Imports System.Management
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim IPAddress As String = "192.168.1.105"
       Dim SubnetMask As String = "255.255.252.0"
       Dim Gateway As String = "192.168.1.100"

       Dim objMC As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
       Dim objMOC As ManagementObjectCollection = objMC.GetInstances()

       For Each objMO As ManagementObject In objMOC
           If (Not CBool(objMO("IPEnabled"))) Then
               Continue For
           End If

           Try
               Dim objNewIP As ManagementBaseObject = Nothing
               Dim objSetIP As ManagementBaseObject = Nothing
               Dim objNewGate As ManagementBaseObject = Nothing

               objNewIP = objMO.GetMethodParameters("EnableStatic")
               objNewGate = objMO.GetMethodParameters("SetGateways")

               'Set DefaultGateway
               objNewGate("DefaultIPGateway") = New String() {Gateway}
               objNewGate("GatewayCostMetric") = New Integer() {1}

               'Set IPAddress and Subnet Mask
               objNewIP("IPAddress") = New String() {IPAddress}
               objNewIP("SubnetMask") = New String() {SubnetMask}

               objSetIP = objMO.InvokeMethod("EnableStatic", objNewIP, Nothing)
               objSetIP = objMO.InvokeMethod("SetGateways", objNewGate, Nothing)

               'Changed this line so I could see if it was executing all of the way
               MessageBox.Show("Updated IPAddress, SubnetMask and Default Gateway!")

           Catch ex As Exception
               MessageBox.Show("Unable to Set IP : " & ex.Message)
           End Try
       Next objMO
   End Sub
End Class
الرد
تم الشكر بواسطة: asemshahen5 , سعود
#3
(07-09-19, 11:42 PM)fouadhdfouad كتب :
(07-09-19, 10:47 PM)aldery كتب : السلام عليكم : كيفكم إن شاء الله تكونو بخير يارب .

محتاج كود لتغير الاي بي أو مشروع لتغير الاي بي حسب طلبي  طبعاً جربت المواضع السابقة بس بدون فأدة وشكراً  Angel

وجدت لك هدا الكود انا لم اجربه
كود :
Imports System.Management
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim IPAddress As String = "192.168.1.105"
       Dim SubnetMask As String = "255.255.252.0"
       Dim Gateway As String = "192.168.1.100"

       Dim objMC As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
       Dim objMOC As ManagementObjectCollection = objMC.GetInstances()

       For Each objMO As ManagementObject In objMOC
           If (Not CBool(objMO("IPEnabled"))) Then
               Continue For
           End If

           Try
               Dim objNewIP As ManagementBaseObject = Nothing
               Dim objSetIP As ManagementBaseObject = Nothing
               Dim objNewGate As ManagementBaseObject = Nothing

               objNewIP = objMO.GetMethodParameters("EnableStatic")
               objNewGate = objMO.GetMethodParameters("SetGateways")

               'Set DefaultGateway
               objNewGate("DefaultIPGateway") = New String() {Gateway}
               objNewGate("GatewayCostMetric") = New Integer() {1}

               'Set IPAddress and Subnet Mask
               objNewIP("IPAddress") = New String() {IPAddress}
               objNewIP("SubnetMask") = New String() {SubnetMask}

               objSetIP = objMO.InvokeMethod("EnableStatic", objNewIP, Nothing)
               objSetIP = objMO.InvokeMethod("SetGateways", objNewGate, Nothing)

               'Changed this line so I could see if it was executing all of the way
               MessageBox.Show("Updated IPAddress, SubnetMask and Default Gateway!")

           Catch ex As Exception
               MessageBox.Show("Unable to Set IP : " & ex.Message)
           End Try
       Next objMO
   End Sub
End Class

شكراً على مجهودك أخي ولكن جربته قبل لم يعمل ويوجد اخطأ في الكود لم أستطيع حلها  Heart
الرد
تم الشكر بواسطة: asemshahen5 , سعود , سعود
#4
اضف مكتبة System.Management الى البرنامج عن طريق add reference
الرد
تم الشكر بواسطة: سعود , aldery , ابراهيم ايبو
#5
(07-09-19, 11:50 PM)asemshahen5 كتب : اضف مكتبة System.Management الى البرنامج عن طريق add reference

شكراً كتير تم حل المشكلة  Heart Heart
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#6
هل تقصد تغيير البروكسي ؟
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغير الوقت عشوائيا بين تنفيذ الأكواد ابو روضة 6 187 18-09-19, 06:56 AM
آخر رد: ابو روضة
  [VB.NET] ارسال رسائل sms من خلال مشروع فيجوال بيسك بلغة لvb.net khairallah 1 52 17-09-19, 04:43 PM
آخر رد: mohamedahmed1
  مشكلة عند تشغيل برنامج تغير الاي بي aldery 1 69 09-09-19, 02:06 AM
آخر رد: سعود
  طلب بسيط محتاج ملف DLL خالد كامل1 14 370 24-08-19, 05:43 AM
آخر رد: محمد اسماعيل
  [VB.NET] محتاج اعدل على عمود كامل واغير بياناته eslame elgohary 10 344 24-08-19, 12:46 AM
آخر رد: ابراهيم ايبو
  محتاج مساعدة على التعديل على بوتن Mohamed Magdy 0 81 23-08-19, 07:03 PM
آخر رد: Mohamed Magdy
  [كود] اريد كود تغير لون مؤشر الكتابه في التكست بوكس اليوم السابع 1 116 20-08-19, 12:56 AM
آخر رد: اسامه الهرماوي
Information [مشروع] مشروع عن سوبر ماركت ب الفيجوال بيسك + اكسس Alamin Izag 2 2,157 18-08-19, 08:13 PM
آخر رد: sasaasso11
  محتاج كود او مثال لبرنامج تكرار السطر Mohamed Magdy 7 213 16-08-19, 01:14 AM
آخر رد: Mohamed Magdy
Brick [نقاش] حول صناعة اشكال هندسية بنص في مشروع الرائد 6 180 14-08-19, 03:28 PM
آخر رد: ابراهيم ايبو

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


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