VB.NET 网络通讯示例（服务端）

‘********* 代码开始 **********’

Imports System.Net.Sockets
'使用到TcpListen类
Imports System.Threading
'使用到线程
Imports System.IO
'使用到StreamReader类
Imports System.NetPublic Class Form1Private iPort As Integer = 8000'定义侦听端口号Private thThreadRead As Thread'创建线程，用以侦听端口号，接收信息Private tlTcpListen As TcpListener'侦听端口号Private blistener As Boolean = True'设定标示位，判断侦听状态Private nsStream As NetworkStream'创建接收的基本数据流Private srRead As StreamReader'从网络基础数据流中读取数据Private tcClient As TcpClientPrivate Sub Listen()TryDim localAddr As IPAddress = IPAddress.Parse("127.0.0.1")tlTcpListen = New TcpListener(localAddr, iPort)'以8000端口号来初始化TcpListener实例tlTcpListen.Start()'开始监听StatusBar1.Text = "正在监听..."tcClient = tlTcpListen.AcceptTcpClient()'通过TCP连接请求nsStream = tcClient.GetStream()'获取用以发送、接收数据的网络基础数据流srRead = New StreamReader(nsStream)'以得到的网络基础数据流来初始化StreamReader实例StatusBar1.Text = "已经建立TCP连接！"'循环侦听While blistenerDim sMessage As String = srRead.ReadLine()'从网络基础数据流中读取一行数据If (sMessage = "STOP") ThentlTcpListen.Stop()'关闭侦听nsStream.Close()srRead.Close()'释放资源StatusBar1.Text = "无连接！"thThreadRead.Abort()'中止线程ReturnElse'判断是否为断开TCP连接控制码Dim sTime As String = DateTime.Now.ToLongTimeString()'获取接收数据时的时间SetText(sTime + " " + sMessage)End IfEnd WhileCatch ex As System.Security.SecurityExceptionMessageBox.Show("侦听失败！", "错误")End TryEnd SubPrivate Sub SetText(ByVal [text] As String)' InvokeRequired required compares the thread ID of the' calling thread to the' thread ID of the creating thread.' If these threads are different, it returns true.If Me.ListBox1.InvokeRequired ThenDim d As New ContextCallback(AddressOf SetText)Me.Invoke(d, New Object() {[text]})ElseMe.ListBox1.Items.Add([text])End IfEnd SubPrivate Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.ClickthThreadRead = New Thread(New ThreadStart(AddressOf Listen))'以Listen过程来初始化线程实例thThreadRead.Start()'启动线程Button1.Enabled = FalseLabel1.Text = "服务已经启动！"Label1.ForeColor = Color.RedEnd SubPrivate Sub Form1_Disposed(sender As Object, e As System.EventArgs) Handles Me.DisposedTrythThreadRead.Abort() '中止线程tlTcpListen.Stop() '关闭侦听tcClient.Close()nsStream.Close()srRead.Close() '释放资源CatchEnd TryIf Disposing ThenIf Not (components Is Nothing) Thencomponents.Dispose()End IfEnd IfMyBase.Dispose(Disposing)End SubEnd Class

‘********* 代码结束 **********’

本文中vb.net教程的源代码下载：http://pan.baidu.com/share/link?shareid=462967&uk=387416479

VB.NET 网络通讯示例（服务端）相关推荐

Qt：Qt实现Winsock网络编程—TCP服务端和客户端通信（多线程）
Qt实现Winsock网络编程-TCP服务端和客户端通信(多线程) 前言感觉Winsock网络编程的api其实和Linux下网络编程的api非常像,其实和其他编程语言的网络编程都差不太多.博主用Qt ...
java-php-python-springboot网络记账设计服务端计算机毕业设计
java-php-python-springboot网络记账设计服务端计算机毕业设计 java-php-python-springboot网络记账设计服务端计算机毕业设计本源码技术栈: 项目架构:B ...
研究微信即时通讯的服务端、朋友圈、红包、推送等方案
本文来自http://blog.csdn.net/liuxian13183/ ,引用必须注明出处! 即时通信:前端获得消息发送到服务端,服务端处理后通过推送的方式,发给接收方:Android使用长连机 ...
netty单片机通讯_服务端netty，如何给指定客户端(非netty)发送指令?
Netty 是一个基于 JAVA NIO 类库的异步通信框架,它的架构特点是:异步非阻塞.基于事件驱动.高性能.高可靠性和高可定制性.而TCP/IP是通用的标准通信协议,所有基于此协议的两端(服务端和 ...
DotNetty 高性能NIO通讯模型服务端和客户端案例版
Netty 是一个利用 Java 的高级网络的能力,隐藏其背后的复杂性而提供一个易于使用的 API 的高性能客户端/服务器通讯框架. Netty的优势: 并发高传输快封装好还有一个叫做内存零 ...
QT网络编程开发服务端
下一篇: QT网络编程开发客户端文章目录基于Qt的网络编程服务端 QTcpServer 配置 listen() close() newConnection() SINGL readyRead() ...
网络基础 + 简易服务端和客户端
网络架构及其演变过程单机架构 - 就只有一个客户端,不需要和服务器交换数据 CS架构 - 客户端(Client)--- 服务端(Server) - - 客户端:用户安装软件 - - 服务端:统一管理 ...
从零开始开发IM（即时通讯）服务端（一）附源码
前言首先讲讲IM(即时通讯)技术可以用来做什么: 聊天:qq.微信直播:斗鱼直播.抖音实时位置共享.游戏多人互动等等可以说几乎所有高实时性的应用场景都需要用到IM技术. 本篇将带大家从零开始搭 ...
从零开始开发IM（即时通讯）服务端附源码
前言首先讲讲IM(即时通讯)技术可以用来做什么: 聊天:qq.微信直播:斗鱼直播.抖音实时位置共享.游戏多人互动等等可以说几乎所有高实时性的应用场景都需要用到IM技术. 本篇将带大家从零开始搭 ...
IM（即时通讯）服务端（上）
前言首先讲讲IM(即时通讯)技术可以用来做什么: 聊天:qq.微信直播:斗鱼直播.抖音实时位置共享.游戏多人互动等等可以说几乎所有高实时性的应用场景都需要用到IM技术. 关于即时通讯架构的相关 ...

VB.NET 网络通讯示例（服务端）

VB.NET 网络通讯示例（服务端）相关推荐

最新文章

热门文章