VB.Net TcpClient发送TCP/IP命令至写卡器失败，求解决建议

我来帮你梳理下可能的问题点和解决思路，毕竟用Putty能正常触发交易但自己的VB.Net代码不行，大概率是细节没对齐Putty的通信逻辑：

• 先确认TCP连接是否真的建立成功
  有时候代码里调用Connect没报错，但实际可能没连上目标服务——比如IP/端口写错、写卡器的PMS服务没在监听对应端口，或者连接被悄悄拒绝了。你可以在代码里加个校验：连接后检查TcpClient.Connected属性，或者捕获连接异常，同时看看PMS的连接日志（如果有的话），对比Putty连接时的日志记录，确认你的程序是否真的成功建立了连接。

• 检查数据编码是否和Putty一致
  Putty默认的编码一般是ASCII或UTF-8，要是你的VB.Net代码用了错误的编码转字符串，发送的字节流就会和Putty完全不一样，写卡器自然无法识别。你可以先查看Putty的编码设置（在Window→Translation里），然后在代码里用对应的编码转换，比如：

  Dim data As Byte() = Encoding.ASCII.GetBytes("你的设置卡片指令")
  

• 确认消息是否需要特定终止符
  很多TCP服务要求消息末尾加上换行符（\r\n）或者特定结束标记（比如\0），才会把收到的内容识别为一条完整指令。Putty里按回车发送时，会自动加上\r\n，但你的代码如果只发了指令内容没加终止符，对方可能会一直等待完整消息，不会触发交易。你可以试试在指令后拼接vbCrLf（对应\r\n）：

  Dim sendStr As String = "SET_CARD_PARAMS" & vbCrLf
  Dim data As Byte() = Encoding.ASCII.GetBytes(sendStr)
  

• 确保数据完整发送并刷新流
  用NetworkStream.Write发送数据后，流可能会缓存数据没有立即发出。你可以在发送后调用NetworkStream.Flush()强制刷新，确保所有数据都发送到网络；同时检查Write返回的字节数，确认是否和待发送的字节长度一致：

  Dim bytesSent As Integer = stream.Write(data, 0, data.Length)
  If bytesSent <> data.Length Then
      ' 处理发送不完整的异常情况
  End If
  stream.Flush()
  

• 抓包对比Putty和你的程序的流量
  这是最直接的排查方法，用Wireshark之类的工具抓包，分别查看Putty发送的数据包和你的VB.Net程序发送的数据包，对比字节流是否完全一致。比如Putty的数据包是不是多了某个控制字节，或者你的程序发送的内容有额外的冗余数据，差异一目了然。

• 检查程序权限或防火墙设置
  有时候你的VB.Net程序可能被系统防火墙拦截，导致数据包无法发送；或者程序运行权限不足，无法建立网络连接。你可以试试以管理员身份运行程序，或者暂时关闭防火墙测试，排查是否是权限/拦截问题。

内容的提问来源于stack exchange，提问作者lucullo08