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

            '下面开始读取，因为网络内sql server数量众多,数据包一个一个的返回

            '所以这里循环处理了。

            While True

                '开定时器

                t.Interval = 1000

                t.Enabled = True

                '接收的字节数组

                Dim BR As Byte() = m_Client.Receive(host)

                Dim A As System.Text.Encoding = System.Text.Encoding.Default

                '用来存储当前字符串