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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [VB.NET] مشروع برنامج لعرض الصور Doctor GME 5 310 03-08-20, 08:41 PM
آخر رد: ابراهيم ايبو
  اضافة فورم من مشروع قديم atefkhalf2004 4 110 31-07-20, 02:06 AM
آخر رد: عبد العزيز البسكري
  ياشباب محتاج كود صغير يقوم بالبحث عن حقل معين فلتر بال Datagridview moh61 13 3,599 21-07-20, 11:48 PM
آخر رد: alessam4pro
  [مشروع] مشروع سورس كود مفتوح و متكااااامل لادارة المطاعم DR.YASER 48 2,614 21-07-20, 10:02 PM
آخر رد: DR.YASER
  [سؤال] محتاج سورس Mina Botros 1 124 20-07-20, 04:33 AM
آخر رد: Mina Botros
  [درس فيديو] بفضل الله : فيديو+ مشروع حل مشكلة أتاتش قاعدة بيانات SQL SERVER DR.YASER 13 485 20-07-20, 03:36 AM
آخر رد: ابراهيم ايبو
  لو سمحتم احبتى ممكن طريقه لفتح ملف اكسس من خلال مشروع فيجوال بيسك خالد كامل1 4 205 19-07-20, 12:58 AM
آخر رد: DR.YASER
Lightbulb [VB.NET] مشروع قاموس Doctor GME 15 594 05-07-20, 02:04 AM
آخر رد: Doctor GME
  [نقاش] مشكل تعديل على مشروع قديم 2018 ولدي فيوجل 2013 abdodz 15 791 26-06-20, 03:23 PM
آخر رد: abdodz
Exclamation [سؤال] مشكلة في ربط قاعدة البيانات Access 2007 مع مشروع vb2010 Hamza lads 11 600 18-06-20, 05:11 AM
آخر رد: Hamza lads

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


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