تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تغير IPAddress
#1
السلام عليكم
ممكن اخوتى اريد طريقة لتغير ما بالصورة برمجيا

الرد }}}
تم الشكر بواسطة:
#2
في الـ References اضف System.Management
واستخدم الكود التالي :
PHP كود :
Imports System.Management 
PHP كود :
Private Sub ChangeIP()
        
Dim IPAddress As String "192.168.1.137"
        
Dim SubnetMask As String "255.255.252.0"
        
Dim Gateway As String "192.168.1.1"
        
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")
                
objNewGate("DefaultIPGateway") = New String() {Gateway}
                
objNewGate("GatewayCostMetric") = New Integer() {1}
                
objNewIP("IPAddress") = New String() {IPAddress}
                
objNewIP("SubnetMask") = New String() {SubnetMask}
                
objSetIP objMO.InvokeMethod("EnableStatic"objNewIPNothing)
                
objSetIP objMO.InvokeMethod("SetGateways"objNewGateNothing)
                
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 
الرد }}}
#3
(16-11-17, 06:01 PM)HASAN6.0 كتب : في الـ References  اضف System.Management
واستخدم الكود التالي :
PHP كود :
Imports System.Management 
PHP كود :
Private Sub ChangeIP()
 
       Dim IPAddress As String "192.168.1.137"
 
       Dim SubnetMask As String "255.255.252.0"
 
       Dim Gateway As String "192.168.1.1"
 
       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")
 
               objNewGate("DefaultIPGateway") = New String() {Gateway}
 
               objNewGate("GatewayCostMetric") = New Integer() {1}
 
               objNewIP("IPAddress") = New String() {IPAddress}
 
               objNewIP("SubnetMask") = New String() {SubnetMask}
 
               objSetIP objMO.InvokeMethod("EnableStatic"objNewIPNothing)
 
               objSetIP objMO.InvokeMethod("SetGateways"objNewGateNothing)
 
               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 
الله يكرم أصلك أخى الكريم فعلا نجحت
الرد }}}
تم الشكر بواسطة: HASAN6.0 , عبد الرؤوف


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم
Rainbow [كود] النص المكتوب يكون على شكل وميض او تغير في الالوان محمد مسافر 1 460 13-05-23, 01:30 AM
آخر رد: عبدالله الدوسري
  [VB.NET] مشكلة بعد تغير NET Framework 4 Client Profile MOHAMMED ALZWI 0 366 28-02-23, 11:32 AM
آخر رد: MOHAMMED ALZWI
  [VB.NET] مشكلة بعد تغير NET Framework 4 Client Profile MOHAMMED ALZWI 0 296 28-02-23, 11:31 AM
آخر رد: MOHAMMED ALZWI
  [VB.NET] ممكن كود تغير خلفية شاشة تامين ويندوز jam3h 1 517 11-10-22, 04:09 AM
آخر رد: jam3h
  تغير لون خلفية داتا قريد فيو ali_ahmed12 0 437 03-10-22, 04:34 PM
آخر رد: ali_ahmed12
  التحكم بالبرنامج ( عند المستخدم ) عن طريق برنامج اخر (تعديل - حذف - اضافه - تغير كود) mohamedallams 2 1,133 06-09-22, 10:32 PM
آخر رد: رضوان الجماعي
  تغير خلفية form aymen_libya 6 1,007 24-08-22, 10:23 PM
آخر رد: Taha Okla
  تغير اتجاه البيانات Abdallah61 1 721 02-06-22, 08:35 PM
آخر رد: نيمو
  كود تغير تنسيق العدد seif mohamed 2 1,117 17-12-21, 10:46 PM
آخر رد: seif mohamed

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


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