我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线：400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后，网站问题一站解决

VB.NETSocket编程的示例分析

小编给大家分享一下VB.NET Socket编程的示例分析，希望大家阅读完这篇文章之后都有所收获，下面让我们一起去探讨吧！

创新互联建站专业为企业提供大兴网站建设、大兴做网站、大兴网站设计、大兴网站制作等企业网站建设、网页设计与制作、大兴企业网站模板建站服务，10余年大兴做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

下面通过例子来学习VB.NET Socket编程类的应用，下面的程序分别分服务器和客户端两部分：

  1. ImportsSystem  
  2. ImportsSystem.Net  
  3. ImportsSystem.Net.Sockets  
  4. ImportsSystem.Text  
  5. ImportsSystem.Threading  
  6. ImportsMicrosoft.VisualBasic  
  7.  
  8. 'Stateobjectforreadingclientdataasynchronously  
  9.  
  10. PublicClassStateObject  
  11. 'Clientsocket.  
  12. PublicworkSocketAsSocket=Nothing 
  13. 'Sizeofreceivebuffer.  
  14. PublicConstBufferSizeAsInteger=1024 
  15. 'Receivebuffer.  
  16. Publicbuffer(BufferSize)AsByte  
  17. 'Receiveddatastring.  
  18. PublicsbAsNewStringBuilder  
  19. EndClass'StateObject  
  20.  
  21.  
  22. PublicClassAsynchronousSocketListener  
  23. 'Threadsignal.  
  24. PublicSharedallDoneAsNewManualResetEvent(False)  
  25.  
  26. 'Thisserverwaitsforaconnectionandthenusesasychronousoperationsto  
  27. 'accepttheconnection,getdatafromtheconnectedclient,  
  28. 'echothatdatabacktotheconnectedclient.  
  29. 'Itthendisconnectsfromtheclientandwaitsforanotherclient.  
  30. PublicSharedSubMain()  
  31. 'Databufferforincomingdata.  
  32. Dimbytes()AsByte=New[Byte](1023){}  
  33.  
  34. 'Establishthelocalendpointforthesocket.  
  35. DimipHostInfoAsIPHostEntry=DNS.Resolve(Dns.GetHostName())  
  36. DimipAddressAsIPAddress=ipHostInfo.AddressList(0)  
  37. DimlocalEndPointAsNewIPEndPoint(ipAddress,11000)  
  38.  
  39. 'CreateaTCP/IPsocket.  
  40. DimlistenerAsNewSocket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp)  
  41.  
  42. 'Bindthesockettothelocalendpointandlistenforincomingconnections.  
  43. listener.Bind(localEndPoint)  
  44. listener.Listen(100)  
  45.  
  46. WhileTrue  
  47. 'Settheeventtononsignaledstate.  
  48. allDone.Reset()  
  49.  
  50. 'Startanasynchronoussockettolistenforconnections.  
  51. Console.WriteLine("Waitingforaconnection...")  
  52. listener.BeginAccept(NewAsyncCallback(AddressOfAcceptCallback),listener)  
  53.  
  54. 'Waituntilaconnectionismadeandprocessedbeforecontinuing.  
  55. allDone.WaitOne()  
  56. EndWhile  
  57. EndSub'Main  
  58.  
  59.  
  60. PublicSharedSubAcceptCallback(ByValarAsIAsyncResult)  
  61. 'Getthesocketthathandlestheclientrequest.  
  62. DimlistenerAsSocket=CType(ar.AsyncState,Socket)  
  63. 'Endtheoperation.  
  64. DimhandlerAsSocket=listener.EndAccept(ar)  
  65.  
  66. 'Createthestateobjectfortheasyncreceive.  
  67. DimstateAsNewStateObject  
  68. state.workSocket=handler 
  69. handler.BeginReceive(state.buffer,0,StateObject.
    BufferSize,0,NewAsyncCallback(AddressOfReadCallback),state)  
  70. EndSub'AcceptCallback  
  71.  
  72.  
  73. PublicSharedSubReadCallback(ByValarAsIAsyncResult)  
  74. DimcontentAsString=String.Empty  
  75.  
  76. 'Retrievethestateobjectandthehandlersocket  
  77. 'fromtheasynchronousstateobject.  
  78. DimstateAsStateObject=CType(ar.AsyncState,StateObject)  
  79. DimhandlerAsSocket=state.workSocket  
  80.  
  81. 'Readdatafromtheclientsocket.  
  82. DimbytesReadAsInteger=handler.EndReceive(ar)  
  83.  
  84. IfbytesRead>0Then  
  85. 'Theremightbemoredata,sostorethedatareceivedsofar.  
  86. state.sb.Append(Encoding.ASCII.GetString(state.buffer,0,bytesRead))  
  87.  
  88. 'Checkforend-of-filetag.Ifitisnotthere,read  
  89. 'moredata.  
  90. content=state.sb.ToString()  
  91. Ifcontent.IndexOf("")>-1Then  
  92. 'Allthedatahasbeenreadfromthe  
  93. 'client.Displayitontheconsole.  
  94. Console.WriteLine("Read{0}bytesfromsocket."+vbLf+"Data:{1}",content.Length,content)  
  95. 'Echothedatabacktotheclient.  
  96. Send(handler,content)  
  97. Else  
  98. 'Notalldatareceived.Getmore.  
  99. handler.BeginReceive(state.buffer,0,StateObject.
    BufferSize,0,NewAsyncCallback(AddressOfReadCallback),state)  
  100. EndIf  
  101. EndIf  
  102. EndSub'ReadCallback  
  103.  
  104. PrivateSharedSubSend(ByValhandlerAsSocket,ByValdataAsString)  
  105. 'ConvertthestringdatatobytedatausingASCIIencoding.  
  106. DimbyteDataAsByte()=Encoding.ASCII.GetBytes(data)  
  107.  
  108. 'Beginsendingthedatatotheremotedevice.  
  109. handler.BeginSend(byteData,0,byteData.
    Length,0,NewAsyncCallback(AddressOfSendCallback),handler)  
  110. EndSub'Send  
  111.  
  112. PrivateSharedSubSendCallback(ByValarAsIAsyncResult)  
  113. 'Retrievethesocketfromthestateobject.  
  114. DimhandlerAsSocket=CType(ar.AsyncState,Socket)  
  115.  
  116. 'Completesendingthedatatotheremotedevice.  
  117. DimbytesSentAsInteger=handler.EndSend(ar)  
  118. Console.WriteLine("Sent{0}bytestoclient.",bytesSent)  
  119.  
  120. handler.Shutdown(SocketShutdown.Both)  
  121. handler.Close()  
  122. 'Signalthemainthreadtocontinue.  
  123. allDone.Set()  
  124. EndSub'SendCallback  
  125. EndClass'AsynchronousSocketListener 

看完了这篇文章，相信你对“VB.NET Socket编程的示例分析”有了一定的了解，如果想了解更多相关知识，欢迎关注创新互联行业资讯频道，感谢各位的阅读！


文章名称：VB.NETSocket编程的示例分析
当前网址：http://shouzuofang.com/article/ihjjhc.html

其他资讯