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

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









كود :
Imports System.Management
Imports System.Net
Imports System.Net.NetworkInformation
Imports System.Object
Imports System.IO
Imports Microsoft.Win32
Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       CType(sender, Control).Capture = False
       WndProc(Message.Create(CType(sender, Control).Handle, 161, 2, 2))
   End Sub

   Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
       CType(sender, Control).Capture = False
       WndProc(Message.Create(CType(sender, Control).Handle, 161, 2, 2))
   End Sub

   Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
       Dim IPAddress As String = "192.168.1.105"
       Dim SubnetMask As String = "255.255.255.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")
               objNewGate("DefaultIPGateway") = New String() {Gateway}
               objNewGate("GatewayCostMetric") = New Integer() {1}
               objNewIP("IPAddress") = New String() {IPAddress}
               objNewIP("SubnetMask") = New String() {SubnetMask}
               objSetIP = objMO.InvokeMethod("EnableStatic", objNewIP, Nothing)
               objSetIP = objMO.InvokeMethod("SetGateways", objNewGate, Nothing)
               MessageBox.Show("Update IP Address, Subnet Mask and Default Gateway!")
           Catch ex As Exception
               MessageBox.Show("Unable to Set IP : " & ex.Message)
           End Try
       Next objMO
   End Sub

   Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
       End
   End Sub

   Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
       Me.WindowState = FormWindowState.Minimized
   End Sub
End Class
الرد
تم الشكر بواسطة: أمجد وضاح , asemshahen5
#2
وعليكم السلام ورحمة الله وبركاته
هذا دليل ان ا لكود نجح !
هل عملت release للاي بي؟
إخوانا الكرام أخواتنا الكريمات اقسام المشاريع ليست لطلبها بل لتقديمها وربما مناقشتها ان احب صاحب المشروع.
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في خل مشكلة فيجوال بيسك mennad sofiane 4 67 منذ 9 ساعة مضت
آخر رد: mennad sofiane
  مشكلة في الترقيم التلقائي في قاعدة بيانات سيكوال سيرفر momani33 3 70 , 11:49 PM
آخر رد: momani33
  [سؤال] عمل برنامج نقرات لبرنامج اخر Abdallah61 3 61 26-05-20, 11:02 PM
آخر رد: Abdallah61
  [VB.NET] تم عمل برنامج شات ولكن اسامه الهرماوي 0 38 26-05-20, 08:38 PM
آخر رد: اسامه الهرماوي
  مشكلة معقدة بعرض البيانات بالدتاجريد على ما فكرت فيها لم اجد لها حل ابو محمد محمد محمد 10 251 24-05-20, 12:16 PM
آخر رد: ابو محمد محمد محمد
  مشكلة رسالة overflow لمابعمل حفظ mazentq 3 62 24-05-20, 08:46 AM
آخر رد: mazentq
  [سؤال] مشكلة في اتصال قاعدة البيانات اكسس mazentq 9 177 24-05-20, 08:45 AM
آخر رد: mazentq
Lightbulb [VB.NET] برنامج آلة حاسبة Doctor GME 6 93 24-05-20, 03:17 AM
آخر رد: atefkhalf2004
  مشكلة webbrowser بالتعامل مع المواقع Basil Abdallah 0 33 22-05-20, 08:18 AM
آخر رد: Basil Abdallah
  كيفية التعديل على برنامج hasanqo 1 64 21-05-20, 06:45 AM
آخر رد: معاند الحظ

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


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