تقييم الموضوع :
  • 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
هل تقصد تغيير البروكسي ؟
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] تحويل مشروع فيجوال 2010 الى فيجوال بيسك 6 KMBH 2 48 منذ 5 ساعة مضت
آخر رد: alfaiz678
  إستفسار حول مشروع المبيعات عبد العزيز البسكري 25 531 منذ 7 ساعة مضت
آخر رد: ابراهيم ايبو
  محتاج كود او نموذج للحفظ من التاتا جريد فيو مثال بسيط في ملف مرفق بسام محمدغانم 0 61 08-12-19, 02:17 AM
آخر رد: بسام محمدغانم
  تغير لون مربع النص alshandodi 4 85 06-12-19, 06:51 PM
آخر رد: alshandodi
  محتاج كود اضافه bakriano30@yahoo.com 5 114 05-12-19, 07:19 PM
آخر رد: 3booody
  [VB.NET] مشروع احتساب الضريبة على الراتب سلام م 16 376 30-11-19, 04:59 AM
آخر رد: ابو ليلى
  شرح مبسط لفتح وتعديل مشروع به قاعدة sql sofiane-phy 0 85 24-11-19, 11:36 PM
آخر رد: sofiane-phy
  [VB.NET] محتاج مساعدتكم في كود بسيط اليوم السابع 4 125 23-11-19, 10:14 AM
آخر رد: حريف برمجة
Lightbulb [VB.NET] محتاج كود من العباقره moha8080 1 112 21-11-19, 02:42 AM
آخر رد: boudyonline
  [VB.NET] احتاج الي تحويل هذا المشروع من السي شارب الي الفيجوال بيسك مشروع صغير abo3li8555 5 270 21-11-19, 02:07 AM
آخر رد: Benmouha

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


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