vb.net设置ip,Vb Net

用VB编写程序，使之可以修改IP

Private Sub Form_Load()

Debug.Print ChangeIP("192.168.1.200", "255.255.255.0", "", "", "")

End Sub Public Function ChangeIP(IP As String, NM As String, GW As String, MDNS As String, SDNS As String) As String

'返回值说明:返回一个设置的中文说明.

Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask

Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array(IP) 'ip地址

strSubnetMask = Array(NM) '子网掩码

strGateway = Array(GW) '网关

strDNS = Array(MDNS, SDNS) '主DNS各备DNS

strGatewaymetric = Array(1)

For Each objNetAdapter In colNetAdapters

errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)

If errEnable = 0 And errGateways = 0 And errDNS = 0 Then

ChangeIP = "设置成功"

Else

If errEnable = 0 Then

ChangeIP = "IP地址和子网掩码设置成功, "

Else

ChangeIP = "IP地址或子网掩码设置失败, "

End If

If errGateways = 0 Then

ChangeIP = ChangeIP "默认网关设置成功, "

Else

ChangeIP = ChangeIP "默认网关设置失败, "

End If

If errDNS = 0 Then

ChangeIP = ChangeIP "DNS设置成功"

Else

ChangeIP = ChangeIP "DNS设置失败"

End If

End If

NextEnd Function

相关问答

Q1: VB.NET2010 怎么获取IP

1.获取当前电脑名：System.Net.Dns.GetHostName()

2.根据电脑名取出全部IP地址：System.Net.Dns.Resolve(电脑名).AddressList

或者 System.Net.Dns.GetHostByName(电脑名).AddressList

3.根据IP地址取出电脑名：System.Net.Dns.Resolve(IP地址).HostName

Q2: VB.NET的TCP/IP协议 怎么弄

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

3

4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

8

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

46

47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub

Q3: vb.net TCP协议服务端ip怎么写才能使客户端能通过公网连接进来？

需要出口设备进行映射内部地址；或使用打洞技术穿透NAT,但使用TCP打洞非常困难。

参考

穿透NAT是非常困难的，因为NAT的过程中在出口路由器上的Port已经不是你定义的iPort了，具体是多少也不固定

Q4: 如何在vb，net用程序修改ip地址

做exe程序获取本机IP地址用

System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList

做web程序获取客户端的IP地址用

HttpContext.Current.Request.ServerVariables（"REMOTE_ADDR"]）

Q5: vb.net怎样设置ie浏览器的代理服务器地址

建议你使用注册表的API进行修改

封装两个NET函数给你

private string GetReg(string RegPath)  取得注册表项内容

        {

            string str="";

            RegistryKey hkml = Registry.LocalMachine; 

            RegistryKey software = hkml.OpenSubKey("SOFTWARE",true); 

            RegistryKey aimdir = software.OpenSubKey("krabs",true);

            

            if (aimdir != null)

            {

                if (aimdir.GetValue(RegPath) != null)

                    str = aimdir.GetValue(RegPath).ToString();

                if (str != null)

                    return str;

                return null;

            }

            return null;

        }

        private bool SetReg(string RegPath,string Data)  //设置注册表内容

        {

            RegistryKey reg = Registry.LocalMachine;

            RegistryKey software = reg.OpenSubKey("SOFTWARE", true);

            RegistryKey aimdir1 = software.CreateSubKey("krabs");

            if (aimdir1 == null)

                return false;

            aimdir1.SetValue(RegPath, Data);

            return true;

        }