vb.net设定ip vbnet lib

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;

        }

相关问答

Q1: 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

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

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

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

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

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

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

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

参考

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

Q4: vb.net 指定IP端口是否开放

using System.Net;

if(!string.IsNullOrEmpty(txtPort.Text))

{

    IPAddress ip = IPAddress.Parse(txtIp.Text);

    IPEndPoint point=new IPEndPoint(ip,int.Parse(txtPort.Text));

    try

    {

        TcpClient tcp=new TcpClient();

        tcp.Connect(point);

        MessageBox.Show("端口打开");

    }catch(Exception ex)

    {

        MessageBox.Show(ex.Message);

    }

}

通过以上这个方法，只能判断你是否能链接这个端口。

通过以下这个方法，能判断端口是否开放

public static void GetTcpConnections() 

{ 

            IPGlobalProperties properties = IPGlobalProperties.GetIPGlobalProperties(); 

       

            TcpConnectionInformation[] connections = properties.GetActiveTcpConnections(); 

            string str="";

            foreach (TcpConnectionInformation t in connections) 

            { 

                str+="Local endpoint:"+ t.LocalEndPoint.ToString()+","; 

                str+="Remote endpoint:"+ t.RemoteEndPoint.ToString()+","; 

                str+=t.State.ToString()+","; 

            } 

            MessageBox.Show(str);

}

vb.net设定ip的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet lib、vb.net设定ip的信息别忘了在本站进行查找喔。