我是一个低级程序员,以下是一个VB程序,谁知道该怎么模仿底下的程序去写一个TCP/IP协议获取数据的JAVA程序呢我在GOOGLE搜索了半天一点头绪也没有,求助高手帮忙看一看给点思路该用哪种方面去写啊????
''' <summary>
    ''' 连接服务器
    ''' </summary>
    ''' <param name="ipAddr">服务器IP地址</param>
    ''' <param name="Port">服务器断开</param>
    ''' <returns></returns>
    ''' <res></res>
    Private Function Connect(ByVal ipAddr As String, ByVal Port As Integer) As Boolean
        Try
            clientSocket = New Net.Sockets.Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            Dim serverIP As IPAddress = IPAddress.Parse(ipAddr)
            Dim serverhost As New IPEndPoint(serverIP, Int32.Parse(Port))
            clientSocket.Connect(serverhost)
        Catch ex As Exception
            Return False
        End Try        Return True
    End Function ''' <summary>
    ''' 侦听发送过来的数据
    ''' </summary>
    ''' <res></res>
    Private Sub ListenMsg()
        While Not isExit
            Dim Buf(1023) As Byte
            Dim Count As Integer = 0
            Try
                Count = clientSocket.Receive(Buf, Buf.Length, SocketFlags.Partial)
                If Count > 0 Then
                    Dim str As String = System.Text.ASCIIEncoding.ASCII.GetString(Buf, 0, Count)
                    ListBox1.Items.Add(str)
                End If
            Catch ex As SocketException
                isExit = True
            End Try            System.Threading.Thread.Sleep(1)
        End While
    End Sub
End Class