vb.net枚举网络中所有的SQL 2000服务器。[2]

    '发送数据出去

    Function Send() As ArrayList

        m_Client = New UdpClient

        '用来存储获取的sql列表

        Dim atemp As New ArrayList

        '发送的目标，广播地址

        Dim host As New IPEndPoint(IPAddress.Parse(Me.StrHost), Me.IntPort)

        Try

            '这里发送数据

            m_Client.Send(B, 1, host)