08-09-19, 11:08 PM
السلام عليكم : كيفكم إن شاء الله تكونو بخير .
مبارح طلبت كود تغير الاي بي في المنتدى و تم تلبيت الطلب من قبل الشباب جزاهم الله كل خير ولكن لما بشغل البرنامج يتوقف الانترنيت وتضهر مشكلة موضحة في الصور ما هوا السبب أو ما هوا الحل وشكراً للجميع
مبارح طلبت كود تغير الاي بي في المنتدى و تم تلبيت الطلب من قبل الشباب جزاهم الله كل خير ولكن لما بشغل البرنامج يتوقف الانترنيت وتضهر مشكلة موضحة في الصور ما هوا السبب أو ما هوا الحل وشكراً للجميع
كود :
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