VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 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

相关教程