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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصميم مشروع لاختار اسم MOHAMMED ALZWI 2 84 25-03-24, 01:32 PM
آخر رد: MOHAMMED ALZWI
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 449 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  تحويل مشروع من 2008 الي 2015 atefkhalf2004 0 259 23-11-23, 03:10 PM
آخر رد: atefkhalf2004
  [VB.NET] محتاج مساعدة تعديل على كود ZEEN4ZEEN 4 416 08-10-23, 09:11 PM
آخر رد: ZEEN4ZEEN
  محتاج تعديل على سورس كود - حفظ البيانات بدون قاعدة بيانات new_programer 5 628 30-08-23, 12:21 AM
آخر رد: atefkhalf2004
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 518 03-08-23, 03:41 PM
آخر رد: moh61
  تحويل مشروع دوت نت الى native code ابو محمد محمد محمد 0 407 26-07-23, 12:18 AM
آخر رد: ابو محمد محمد محمد

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


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