用VB.net实现基于tcp-ip的点对点通信

当前位置:

首页 > VB.net教程 >

用VB.net实现基于tcp-ip的点对点通信_ITPUB博客

Imports   System.Net
  Imports   System.Net.Sockets
  Private   Sub   Form1_Load(ByVal   sender   As   System.Object,   ByVal   e   As   System.EventArgs)   Handles   MyBase.Load
                  Me.TextBox1.Text   =   ""
                  Me.TextBox2.Text   =   ""
          End   Sub

          Private   Sub   Button1_Click(ByVal   sender   As   Object,   ByVal   e   As   System.EventArgs)   Handles   Button1.Click
                  Dim   sclient   As   New   Socket(AddressFamily.InterNetwork,   SocketType.Dgram,   ProtocolType.Udp)
                  Dim   myip   As   IPAddress           'set   server   ipaddress
                  myip   =   IPAddress.Parse("172.19.3.42")
                  Dim   serverport   As   New   IPEndPoint(myip,   8000)         'set   server   ipport
                  Dim   clientport   As   New   IPEndPoint(myip,   2002)         'set   client   port
                  sclient.Bind(clientport)                                                 'bind   client   port   with   socket
                  Try
                          Dim   str   As   String   =   Me.TextBox2.Text
                          Dim   bytes1()   As   Byte   =   System.Text.Encoding.ASCII.GetBytes(str)
                          sclient.SendTo(bytes1,   serverport)
                          Dim   bytes2(100)   As   Byte
                          sclient.ReceiveFrom(bytes2,   serverport)
                          str   =   System.Text.Encoding.ASCII.GetString(bytes2)
                          Me.TextBox1.Text   =   Me.TextBox1.Text   &   vbCrLf   &   str
                  Catch   er   As   SocketException
                          MsgBox(er.ToString)
                  End   Try
                  sclient.Close()
          End   Sub
  *************************************
  Imports   System.Net.Sockets
  Imports   System.Net

  Module   socketsever
          Sub   main()
                  startsever()                                                                                       'set   main   to   start   form
          End   Sub

          Private   Sub   startsever()                                                                       'set   startsever   processor   to   start   server
                  Dim   ssever   As   New   Socket(AddressFamily.InterNetwork,   SocketType.Dgram,   ProtocolType.Udp)   'set   a   socket   example   to   transfer   information   between   two   computer
                  Dim   myip   As   IPAddress                                                                     'set   server   ipaddress
                  myip   =   IPAddress.Parse("172.19.3.42")
                  Dim   serverport   As   New   IPEndPoint(myip,   8000)                       'set   server   port
                  Dim   clientport   As   New   IPEndPoint(myip,   2002)                       'set   client   port
                  ssever.Bind(serverport)                                                                 'bind   severport   with   the   socket
                  Try
                          Dim   bytes(100)   As   Byte                                                         'set   currenty   of   bytes（设置字节流量，并将其存储到一个字节数组中）
                          ssever.ReceiveFrom(bytes,   clientport)                             '服务器端接受信息
                          Dim   str   As   String
                          str   =   System.Text.Encoding.ASCII.GetString(bytes)     '将字节转换为字符处理
                          str   =   str.ToUpper()                                                                 '转换为大写字母
                          bytes   =   System.Text.Encoding.ASCII.GetBytes(str)       '将字节转换为字符处理
                          ssever.SendTo(bytes,   clientport)                                       '向客户端端口发送数据
                  Catch   e   As   SocketException
                  End   Try
          End   Sub
  End   Module

栏目列表

首页 > VB.net教程 >

用VB.net实现基于tcp-ip的点对点通信_ITPUB博客