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

  • [VB.NET]询异步socket通信完善的例子


 


	
    
		
  1. 
			
    
				
    
					 
    
			
    
			
    
				
    
					Imports System.Net
    
			
    
		
    2. 
		
  2. 
			
    
				
    
					 
    
			
    
			
    
				
    
					Imports System.Text.Encoding
    
			
    
		
    3. 
		
  3. 
			
    
				
    
					 
    
			
    
			
    
				
    
					 
    
			
    
		
    4. 
		
  4. 
			
    
				
    
					 
    
			
    
			
    
				
    
					Public Class Form1
    
			
    
		
    5. 
		
  5. 
			
    
				
    
					 
    
			
    
			
    
				
    
					    Dim publisher As New Sockets.UdpClient(0)
    
			
    
		
    6. 
		
  6. 
			
    
				
    
					 
    
			
    
			
    
				
    
					    Dim subscriber As New Sockets.UdpClient(2000)
    
			
    
		
    7. 
		
  7. 
			
    
				
    
					 
    
			
    
			
    
				
    
					 
    
			
    
		
    8. 
		
  8. 
			
    
				
    
					 
    
			
    
			
    
				
    
					 
    
			
    
		
    9. 
		
  9. 
			
    
				
    
					 
    
			
    
			
    
				
    
					 
    
			
    
		
    10. 
		
  10. 
			
    
				
    
					 
    
			
    
			
    
				
    
					    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    
			
    
		
    11. 
		
  11. 
			
    
				
    
					 
    
			
    
			
    
				
    
					        Try
    
			
    
		
    12. 
		
  12. 
			
    
				
    
					 
    
			
    
			
    
				
    
					            Dim ep As IPEndPoint = New IPEndPoint(IPAddress.Any, 0)
    
			
    
		
    13. 
		
  13. 
			
    
				
    
					 
    
			
    
			
    
				
    
					            Dim rcvbytes() As Byte = subscriber.Receive(ep)
    
			
    
		
    14. 
		
  14. 
			
    
				
    
					 
    
			
    
			
    
				
    
					            TextBox4.Text = ASCII.GetString(rcvbytes)
    
			
    
		
    15. 
		
  15. 
			
    
				
    
					 
    
			
    
			
    
				
    
					        Catch ex As Exception
    
			
    
		
    16. 
		
  16. 
			
    
				
    
					 
    
			
    
			
    
				
    
					        End Try
    
			
    
		
    17. 
		
  17. 
			
    
				
    
					 
    
			
    
			
    
				
    
					    End Sub
    
			
    
		
    18. 
		
  18. 
			
    
				
    
					 
    
			
    
			
    
				
    
					 
    
			
    
		
    19. 
		
  19. 
			
    
				
    
					 
    
			
    
			
    
				
    
					    Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
			
    
		
    20. 
		
  20. 
			
    
				
    
					 
    
			
    
			
    
				
    
					        subscriber.Client.ReceiveTimeout = 100
    
			
    
		
    21. 
		
  21. 
			
    
				
    
					 
    
			
    
			
    
				
    
					        subscriber.Client.Blocking = False
    
			
    
		
    22. 
		
  22. 
			
    
				
    
					 
    
			
    
			
    
				
    
					    End Sub
    
			
    
		
    23. 
		
  23. 
			
    
				
    
					 
    
			
    
			
    
				
    
					 
    
			
    
		
    24. 
		
  24. 
			
    
				
    
					 
    
			
    
			
    
				
    
					    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
			
    
		
    25. 
		
  25. 
			
    
				
    
					 
    
			
    
			
    
				
    
					        publisher.Connect(TextBox1.Text, TextBox2.Text)
    
			
    
		
    26. 
		
  26. 
			
    
				
    
					 
    
			
    
			
    
				
    
					        Dim sendbytes() As Byte = ASCII.GetBytes(TextBox3.Text)
    
			
    
		
    27. 
		
  27. 
			
    
				
    
					 
    
			
    
			
    
				
    
					        publisher.Send(sendbytes, sendbytes.Length)
    
			
    
		
    28. 
		
  28. 
			
    
				
    
					 
    
			
    
			
    
				
    
					    End Sub
    
			
    
		
    29. 
		
  29. 
			
    
				
    
					 
    
			
    
			
    
				
    
					End Class
    
			
    
		
    30. 
		
  30. 
			
    
				
    
					 
    
			
    
			
    
				
    
					 
    
			
    
		
    31. 
	

	

		 

	

		 

	

		 

	

		 

	

		

	

		 

	

		 

	

		 

	

		 

	

		 



      



  

  
  

   
    
    
   

  

  
 
 

 
 
  
 
 
 
 






 






相关教程