vb.net下的socket编程

在Vb.net 下实现在局域网内发信息,一般是采用socket , 以下是本人的一点点简单的实现实例,只是抛砖引玉,请大家指点:

以下是发送信息的过程:

  Public Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
            If IP <> "" Then
            Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
            Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
            Dim reqStream As New IO.StreamWriter(tcpStream)
            reqStream.Write(SendMsg)
            reqStream.Flush()
            tcpStream.Close()
            tcpc.Close()
        End If
    End Sub

以下为侦听及显示代码

  Dim th As Threading.Thread
  Dim tcpl As System.Net.Sockets.TcpListener

 

这是侦听过程
  Private Sub MyListen()
        Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
         tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
        tcpl.Start()
        While True
            Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
            Dim MyBuffer(1024) As Byte
            Dim i As Integer
            i = s.Receive(MyBuffer)
            If i > 0 Then
                Me.Show()
                Dim lstrRec As String
                lstrRec = System.Text.Encoding.UTF8.GetString(MyBuffer)
                Me.Label1.Text = lstrRec
           End If
        End While
    End Sub

在窗体一打开是就开始一个侦听线程:

 Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
        th.Start()

    End Sub

以是只能在局域网内实现,至于穿墙,再以后和同仁一起研究

 

 

阅读更多
个人分类: 我的VB.net学习经历
想对作者说点什么? 我来说一句

VB.NET SOCKET编程

2009年09月01日 77KB 下载

VB.NET Socket简单实例

2009年02月09日 105KB 下载

vb.net socket编程的QQ代码.rar

2010年08月07日 1.07MB 下载

vb.net(2008) socket通信例子

2010年06月29日 110KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭