如何打开本地端口号为7777的TcpClient? [英] How do i open a TcpClient with local port number 7777?

问题描述

您可能想问为什么.
因为为了和某个硬件设备通话，
如果源计算机使用端口7777，它将仅响应我的请求.

我使用的是VB2005，很旧.

这是我的一些代码.

You probably want to ask why.
Because in order to talk to a certain hardware device,
It will only respond to my requests if the source computer uses port 7777.

I''m using VB2005, ya, it''s old.

Here is a smattering of my code.

Dim tcpClient As New System.Net.Sockets.TcpClient()
       tcpClient.Connect("192.168.1.4", 2000)
       Dim networkStream As NetworkStream = tcpClient.GetStream()
       If networkStream.CanWrite And networkStream.CanRead Then
           ' Send some data.
           Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("IE") & Chr(13)
           networkStream.Write(sendBytes, 0, sendBytes.Length)

我会以某种方式使用以下内容吗?

Would i somehow use the following?

Dim localEP As System.Net.EndPoint = "192.168.1.10:7777"
tcpClient.Client.Bind(localEP)

推荐答案

就像这样连接到远程系统:

Just connect to the remote system like this :

tcpClient.Connect("192.168.1.10", 7777)

谢谢，
看来我尝试过了，但遇到了一些问题.
昨天我发现此代码有效.
Dim localIP As IPAddress = IPAddress.Parse("192.168.1.17")
Dim localPort As Int16 = 7775
将remoteIP设为IPAddress = IPAddress.Parse("192.168.1.46")
Dim remotePort As Int16 = 7777
将remoteEP暗淡为IPEndPoint =新IPEndPoint(remoteIP，remotePort)
将localEP设置为IPEndPoint暗淡=新的IPEndPoint(localIP，localPort)
昏暗的客户端作为TcpClient =新的TcpClient(localEP)
client.Connect(remoteEP)

Thanks,
It seems i tried that and had some problem with it.
Yesterday i found this code that worked.
Dim localIP As IPAddress = IPAddress.Parse("192.168.1.17")
Dim localPort As Int16 = 7775
Dim remoteIP As IPAddress = IPAddress.Parse("192.168.1.46")
Dim remotePort As Int16 = 7777
Dim remoteEP As IPEndPoint = New IPEndPoint(remoteIP, remotePort)
Dim localEP As IPEndPoint = New IPEndPoint(localIP, localPort)
Dim client As TcpClient = New TcpClient(localEP)
client.Connect(remoteEP)

这篇关于如何打开本地端口号为7777的TcpClient?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！