ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 用VB.net实现基于tcp-ip的点对点通信

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

原创 Linux操作系统 作者:剑傲 时间:2009-06-09 20:28:36 0 删除 编辑
 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

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/21857597/viewspace-605671/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 没有了~
请登录后发表评论 登录
全部评论

注册时间:2009-06-09

  • 博文量
    2
  • 访问量
    12530