VB.NET 网络通讯示例（客户端）

最新推荐文章于 2024-05-31 09:23:12 发布

xjnzhidao

最新推荐文章于 2024-05-31 09:23:12 发布

阅读量4.3k

点赞数 7

分类专栏： vb-net 文章标签： vb.net 通讯网络

本文链接：https://blog.csdn.net/xjnzhidao/article/details/47447601

版权

vb-net 专栏收录该内容

19 篇文章 0 订阅

订阅专栏

'**********代码开始************'
Imports System.Net.Sockets
'使用到TcpListen类
Imports System.IO
'使用到StreamWriter类
Imports System.Net
'使用IPAddress类、IPHostEntry类等

Public Class Form1
    Private swWriter As StreamWriter
    '用以向网络基础数据流传送数据
    Private nsStream As NetworkStream
    '创建发送数据的网络基础数据流
    Private tcpClient As TcpClient
    '通过它实现向远程主机提出TCP连接申请
    Private tcpConnect As Boolean = False
    '定义标识符，用以表示TCP连接是否建立

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ipRemote As IPAddress
        Dim tcpClient As TcpClient
        Try
            ipRemote = IPAddress.Parse(TextBox1.Text)
        Catch
            MessageBox.Show("输入的IP地址不合法！", "错误提示！")
            Return
            '判断给定的IP地址的合法性
        End Try
        Try
            tcpClient = New TcpClient(TextBox1.Text, 8000)
            '对远程主机的8000端口提出TCP连接申请
            nsStream = tcpClient.GetStream()
            '通过申请，并获取传送数据的网络基础数据流
            swWriter = New StreamWriter(nsStream)
            '使用获取的网络基础数据流来初始化StreamWriter实例
            Button1.Enabled = False
            Button2.Enabled = True
            tcpConnect = True
            StatusBar1.Text = "已经连接！"
        Catch
            MessageBox.Show("无法和远程主机8000端口建立连接！", "错误提示！")
            Return
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If (TextBox2.Text <> "") Then
            swWriter.WriteLine(TextBox2.Text)
            '刷新当前数据流中的数据
            swWriter.Flush()
            TextBox2.Text = ""
        Else
            MessageBox.Show("发送信息不能为空！", "错误提示！")
        End If
    End Sub

    Private Sub Form1_Disposed(sender As Object, e As System.EventArgs) Handles Me.Disposed
        If tcpConnect Then
            swWriter.WriteLine("STOP")
            '发送控制码
            swWriter.Flush()
            '刷新当前数据流中的数据
            nsStream.Close()
            swWriter.Close()
            '清除资源 ( )
        End If
        If Disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(Disposing)
    End Sub

End Class
'**********代码结束************'