我是一个低级程序员,以下是一个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
''' <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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货