怎样用VB.net实现基于tcp-ip的点对点通信？

2003-09-22 08:46:45 188 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB.net 2005实现TCP网络通信例程(.net VS2005)源码 TCP协议是TCP/IP协议簇中的传输层中的一个协议，也是TCP/IP协议簇最为重要的协议之一。在TCP/IP协议簇中，有一个协议和TCP协议非常类似，这就是UDP协议，网络上进行基于UDP协议的数据传送时，发送方只需知道接收方的IP地址（或主机名）和端口号就可以发送UDP数据包。而接收方只需知道发送方发送数据对应的端口号，就能够接收UDP数据包了。传送数据的双方并不需要进行连接就能够实现数据通讯阅读详情

在vb6中实现TCP IP的通信可以用windowzs socket控件，但在vb.net中我该怎么办，而且我希望写的通信程序可以在双方有网关及防火墙的情况下还可以工作正常，请请点一二，最好有一点源程序啦8-）

...全文

vb.net 实现TCP/IP协议实例详解(使用Socket实现) 最近因项目需求要求实现基于vb.net的TCP/IP协议，在网上也没有找到特别好的实例，故在学习完成后写下如下文字，仅供大家学习，如有错误还请大家批评指正，感谢！本文主要由三部分组成，第一部分展示代码实现的功能；第二部分解释部分与代码相关的基础知识；第三部分讲解服务器端与客户端的实现。本文代码参考自https://code.msdn.microsoft.com/windowsdesktop/Sim... 阅读详情

MissileCat

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

MissileCat 2003-09-23

打赏
举报

jary12581(狼) ,谢谢啊

jary12581 2003-09-22

打赏
举报

用套接字：
Imports System.Net
Imports System.Net.Sockets
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sclient As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
Dim myip As IPAddress 'set server ipaddress
myip = IPAddress.Parse("172.19.3.42")
Dim serverport As New IPEndPoint(myip, 8000) 'set server ipport
Dim clientport As New IPEndPoint(myip, 2002) 'set client port
sclient.Bind(clientport) 'bind client port with socket
Try
Dim str As String = Me.TextBox2.Text
Dim bytes1() As Byte = System.Text.Encoding.ASCII.GetBytes(str)
sclient.SendTo(bytes1, serverport)
Dim bytes2(100) As Byte
sclient.ReceiveFrom(bytes2, serverport)
str = System.Text.Encoding.ASCII.GetString(bytes2)
Me.TextBox1.Text = Me.TextBox1.Text & vbCrLf & str
Catch er As SocketException
MsgBox(er.ToString)
End Try
sclient.Close()
End Sub
*************************************
Imports System.Net.Sockets
Imports System.Net

Module socketsever
Sub main()
startsever() 'set main to start form
End Sub

Private Sub startsever() 'set startsever processor to start server
Dim ssever As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp) 'set a socket example to transfer information between two computer
Dim myip As IPAddress 'set server ipaddress
myip = IPAddress.Parse("172.19.3.42")
Dim serverport As New IPEndPoint(myip, 8000) 'set server port
Dim clientport As New IPEndPoint(myip, 2002) 'set client port
ssever.Bind(serverport) 'bind severport with the socket
Try
Dim bytes(100) As Byte 'set currenty of bytes（设置字节流量，并将其存储到一个字节数组中）
ssever.ReceiveFrom(bytes, clientport) '服务器端接受信息
Dim str As String
str = System.Text.Encoding.ASCII.GetString(bytes) '将字节转换为字符处理
str = str.ToUpper() '转换为大写字母
bytes = System.Text.Encoding.ASCII.GetBytes(str) '将字节转换为字符处理
ssever.SendTo(bytes, clientport) '向客户端端口发送数据
Catch e As SocketException
End Try
End Sub
End Module

LongBow007 2003-09-22

打赏
举报

做个标记看看是大家是怎么样绕过防火墙的

mainone 2003-09-22

打赏
举报

学习

怎样用VB.net实现基于tcp-ip的点对点通信？

相关推荐