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

                Dim S As String = ""

                '从第4个数字开始，前三个字符为非打印字符

                S = A.GetString(BR, 3, BR.Length - 3)

                Console.WriteLine(S)

                '这里解析获取的文本

                atemp.Add(New SqlServer(S))

                '关闭

                t.Enabled = False

            End While

        Catch ex As Exception