VB.NET通过Socket实现字符串发送与接收程序

VB 前端之家
前端之家收集整理的这篇文章主要介绍了VB.NET通过Socket实现字符串发送与接收程序，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

　先查看MSDN帮助系统,找到socket类,有详细的创建套接字、使用套接字侦听、使用客户端套接字的说明。

　　打开VS.Net 2003，新建一个VB.Net工程,名称为Server。在界面上添加一个列表框，两个按钮。界面如图所示:

　　我们使用多线程来实现

　　先导入命名空间：

双击代码全选
1
2
3
4
5
Imports System.Net.sockets@H_403_35@
Imports System.net@H_403_35@
Imports System.Text@H_403_35@
Imports System.Threading@H_403_35@
定义两个窗体变量@H_403_35@

　　Dim s As Socket = Nothing

　　Dim t As Thread

　　新建一个过程，用于处理接收到的Socket数据包

5
6
7
8
9
10
11
12
13
Public Sub WaitData()@H_403_35@
　　　　s = New Socket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp)'''使用TCP协议@H_403_35@
　　　　Dim localEndPoint As New IPEndPoint(IPAddress.Parse("127.0.0.1"),1024)　'''指定IP和Port@H_403_35@
　　　　s.Bind(localEndPoint)　　　　'''绑定到该Socket@H_403_35@
　　　　s.Listen(100)　　'''侦听，最多接受100个连接@H_403_35@
　　　　While (True)@H_403_35@
　　　　　　Dim bytes(1024) As Byte　'''用来存储接收到的字节@H_403_35@
　　　　　　Dim ss As Socket = s.Accept()　'''若接收到,则创建一个新的Socket与之连接@H_403_35@
　　　　　　ss.Receive(bytes)　　'''接收数据，若用ss.send(Byte()),则发送数据@H_403_35@
　　　　　　ListBox1.Items.Insert(0,Encoding.Unicode.GetString(bytes))'''将其插入到列表框的第一项之前@H_403_35@
　　　　　　'''若使用Encoding.ASCII.GetString(bytes),则接收到的中文字符不能正常显示@H_403_35@
　　　　End While@H_403_35@
End Sub@H_403_35@

　　在BtnStart的click事件中，加入如下代码:

11
t = New Thread(AddressOf WaitData)　'''建立新的线程@H_403_35@
　　　　t.Start()　　'''启动线程@H_403_35@
　　　　BtnStart.Enabled = False　'''按钮不可用，避免另启线程@H_403_35@
在BtnStop的click事件中，加入如下代码:@H_403_35@
Try@H_403_35@
　　　　　　s.Close()　　'''关闭Socket@H_403_35@
　　　　　　t.Abort()　　'''中止线程@H_403_35@
　　　　Catch@H_403_35@
　　　　Finally@H_403_35@
　　　　　　BtnStart.Enabled = True　'''启用BtnStart@H_403_35@
　　　　End Try@H_403_35@

　　为了防止用户不点击Stop直接退出，而不能使线程结束，则应在窗体的closing事件中，加入如下代码：

Try@H_403_35@
　　　　　　s.Close()@H_403_35@
　　　　　　t.Abort()@H_403_35@
　　　　Catch@H_403_35@
　　下面新建一个VB.Net工程,名称为Client。在界面上添加一个文本框，一个按钮。界面如图所示:

　　Imports System.Net.sockets

　　Imports System.net

　　Imports System.Text

　　在BtnSend的click事件中，加入如下代码:

9
　　　　　　Dim bytes(1024) As Byte@H_403_35@
　　　　　　Dim s = New Socket(AddressFamily.InterNetwork,ProtocolType.Tcp)@H_403_35@
　　　　　　Dim localEndPoint As New IPEndPoint(IPAddress.Parse("127.0.0.1"),1024)@H_403_35@
　　　　　　s.Connect(localEndPoint)@H_403_35@
　　　　　　s.Send(Encoding.Unicode.GetBytes(TextBox1.Text))@H_403_35@
　　　　　　s.Close()@H_403_35@
　　　　Catch ex As Exception@H_403_35@
　　这样，这个小程序就完成了，当然可以添加新的功能，使其功能更强大！

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积