vb socketÖ»ÄÜ·¢ËÍÒ»´ÎÎÊÌâ

ÎҵĴúÂ룺
Private Sub getcityname(ByVal x As Double, ByVal y As Double)
        Dim xyvalue As String = "X" & x & "Y" & y
        Dim socket As Socket
        Try
            'Dim bytes(2048) As Byte
            socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            Dim localEndPoint As New IPEndPoint(IPAddress.Parse(appSettings.GetValue("ip")), appSettings.GetValue("port"))
            socket.Connect(localEndPoint)
            socket.Send(Encoding.ASCII.GetBytes(xyvalue))
            Dim bytes(2048) As Byte
            socket.Receive(bytes)
            Dim str2 As String = Encoding.Default.GetString(bytes)

            citynamenew = str2
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
        socket.Close()
    End Sub

È»ºóÑ­»·µ÷ÓÃgetcitynameº¯Êý£¬µÚÒ»´Î£¬str2¿ÉÒԵõ½Öµ£