dm9000百兆网口模块(网络模块千兆百兆)

关于dm9000百兆网口模块，网络模块千兆百兆这个很多人还不知道，今天小乐来为大家解答以上的问题，现在让我们一起来看看吧！

1、用 socket 类 udp tcp 我这 给你个 最简单的 例子 udp端Imports System.Net.SocketsModule socketsrSub main()startserver()End SubPrivate Sub startserver()Dim s As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)Dim myip As IPAddress'制订本地回路的ip地址myip = IPAddress.Parse("10.13.115.105")'设置端口号Dim sep As New IPEndPoint(myip, 2001)'设置客户端的端口号Dim clientep As New IPEndPoint(myip, 2002)'将端口与socket绑定s.Bind(sep)While TrueTryDim bytes(100) As Byte'等待客户端的请求s.ReceiveFrom(bytes, clientep)Dim str As String = System.Text.Encoding.ASCII.GetString(bytes)'将字符转化成大写str = str.ToUpperbytes = System.Text.Encoding.ASCII.GetBytes(str)'返回结果s.SendTo(bytes, clientep)Catch e As SocketExceptionEnd TryEnd WhileEnd SubEnd Module客户端界面 和程序Imports System.Net.SocketsImports System.NetPublic Class Form1Inherits System.Windows.Forms.FormPrivate Sub bsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsend.Click'创建客户端的socketDim c As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)'指定本地回路的ip地址Dim myip, myip1 As IPAddresyip = IPAddress.Parse("10.13.115.105")myip1 = IPAddress.Parse("10.13.115.136")'设置端口号Dim ep As New IPEndPoint(myip1, 2001)'设置客户端的端口号Dim clientep As New IPEndPoint(myip, 2002)'将端口与socket绑定c.Bind(clientep)TryDim str As String = Textinput.TextDim bytes() As Byte = System.Text.Encoding.ASCII.GetBytes(str)'向发出请求c.SendTo(bytes, ep)Dim bytes2(100) As Byte'接受的响应结果c.ReceiveFrom(bytes2, ep)str = System.Text.Encoding.ASCII.GetString(bytes2)'将结果显示在文本框中Textdisplay.Text = Textdisplay.Text & vbNewLine & strCatch er As SocketExceptionMsgBox(er.ToString)End Tryc.Close()End SubEnd Class。

本文到这结束，希望上面文章对大家有所帮助。