vb.net的socket通信

private sub ClientThread(ByVal clientParam as object)

 

 

dim param as clientThreadParam

param=CType(clientParam,ClientThreadParam)

dim isAuthorizedClient as boolean=false

dim bytes(MaxBufferSize-1) as byte

dim recvBuffer(MaxBufferSize*MaxNumberOfBuffers-1) as byte

 

 

dim lens as Integer =1

dim loopFlg as Integer=0

'循环体内，开始接收数据

do until(lens<=0 or loopFlg>0)

 

   dim packetLength as short=0

   dim offset as integer =0

  try

    lens=param.clientSocket.Receive(bytes)

   catch ex as Exception

    try

      if(param.clientSocket.connected) then

          param.clientSocket.close()

      end if

     catch ex1 as exception

 

   end try

 

 

if (lens=CmdFrameLength and not isAuthorizedClient) then