zoukankan      html  css  js  c++  java
  • vb.net下的socket编程,简易篇

     1Dim th As Threading.Thread
     2    Dim tcpl As System.Net.Sockets.TcpListener
     3
     4    Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles MyBase.Load
     5        th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
     6        th.Start()
     7    End Sub

     8
     9    Public Sub SendMessage(ByVal IP As StringByVal SendMsg As String)
    10        Try
    11            If IP <> "" Then
    12                Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
    13                Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
    14                Dim reqStream As New IO.StreamWriter(tcpStream)
    15                reqStream.Write(SendMsg)
    16                reqStream.Flush()
    17                tcpStream.Close()
    18                tcpc.Close()
    19            End If
    20        Catch ex As Exception
    21            MsgBox(ex.Message.ToString)
    22        End Try
    23    End Sub

    24    Private Sub MyListen()
    25        Try
    26            Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
    27            tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
    28            tcpl.Start()
    29            While True
    30                Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
    31                Dim MyBuffer(1024As Byte
    32                Dim i As Integer
    33                i = s.Receive(MyBuffer)
    34                If i > 0 Then
    35                    Dim lstrRec As String
    36                    Dim j As Integer
    37                    For j = 0 To i - 1
    38                        TextBox1.Text += Chr(MyBuffer(j)) & ","
    39                    Next
    40                End If
    41            End While
    42        Catch ex As Exception
    43            MsgBox(ex.Message.ToString)
    44        End Try
    45    End Sub

    46
    47    Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles Button1.Click
    48        SendMessage("192.168.0.61", TextBox2.Text)
    49    End Sub
  • 相关阅读:
    (转)CKEditor+CKFinder 配置
    asp.net一个带抽象工厂的三层架构完整实例
    windows phone 8 手机存储卡数据
    c#常用算法
    mvvm 事件命令
    windows phone 8 语音识别1
    windows phone 8 分辨率
    PHP通用防注入安全代码《转》
    SQL查询语句使用详解《转》
    PHP中文件包含语句的区别《转》
  • 原文地址:https://www.cnblogs.com/aowind/p/144918.html
Copyright © 2011-2022 走看看