Résolu Comment créer un logiciel qui permet de changer D'IP?
- Auteur de la discussion Dimiii
- Créé le
nn mais vpn c'est un peu le même principeQuelqu'un ?J'en ai vraiment besoin c'est pour un grand projet quelqu'un sait faire en VB.net ?
et c'est 2 fois plus facile de faire vpn qu'un changeur d'ipQuelqu'un ?
Tu serais comment faire ?
J'en ai vraiment besoin ! Parce que un pote à moi en veut un et je voulais lui faire de moi même ! Merci
Tu veut le principe ou le code ?Tu serais comment faire ?
J'en ai vraiment besoin ! Parce que un pote à moi en veut un et je voulais lui faire de moi même ! Merci
Il me faudrait les 2 !
Je programme en VB.NET
Je voudrais les 2 merci !
pour bien comprendre !
Dernière édition:
Si tu me trouves pas skype passe en privé ton skype que je t'ajoute !
Tu voie t'en rappelle maintenantSi tu me trouves pas skype passe en privé ton skype que je t'ajoute !
D
delete221380
Salut,
Tu ne peux pas tout changer, tu peux juste toucher a Ipv6 il me semble, essai avec le System.Net , le System.Net.NetworkInformation et le System.Management, tu peux utiliser l'instrumentation. J'ai trouver un code mais visiblement il est faux a un endroit.
Bonne après-midi,
DEVR0
Tu ne peux pas tout changer, tu peux juste toucher a Ipv6 il me semble, essai avec le System.Net , le System.Net.NetworkInformation et le System.Management, tu peux utiliser l'instrumentation. J'ai trouver un code mais visiblement il est faux a un endroit.
Code:
Imports System.Management
Imports System.Net
Imports System.Net.NetworkInformation
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim IPAddress As String = (TextBox1.Text)
Dim SubnetMask As String = (TextBox2.Text)
Dim Gateway As String = (TextBox3.Text)
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)
Console.WriteLine("Updated IPAddress, SubnetMask and Default Gateway!")
Catch ex As Exception
MessageBox.Show("Unable to Set IP : " & ex.Message)
End Try
Next objMO
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
getip()
Catch ex As Exception
ex.ToString()
End Try
Dim PrimaryNic As New Collection
Dim PNic As String = ""
For Each networkCard As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces
For Each gatewayAddr As GatewayIPAddressInformation In networkCard.GetIPProperties.GatewayAddresses
If gatewayAddr.Address.ToString <> "0.0.0.0" And networkCard.OperationalStatus.ToString() = "Up" Then
Dim IpAddress As UnicastIPAddressInformation
For Each IpAddress In networkCard.GetIPProperties.UnicastAddresses
TextBox2.Text = (IpAddress.IPv4Mask.ToString)
Next
' Get IP gateway information
TextBox3.Text = (gatewayAddr.Address.ToString)
End If
Next
Next
End Sub
Private Sub getip()
Dim hostname As String = Dns.GetHostName
Dim ip As String = System.Net.Dns.GetHostByName(hostname).AddressList(0).ToString
TextBox1.Text = ip
End Sub
End ClassBonne après-midi,
DEVR0
- Statut