IP_MAC扫描监视器

今天，感谢VB老哥帮忙测试，发现一个BUG，那就是无法正确得到中文的计算机名和工作组名，研究分析发现还是汉字编码的问题，在英文中用chr()就可以正确得到字符，还中文却不能，于是使用了一个数组，把字节中的数据存入数组中再转化，成功！代码如下：

        Dim ss(0 To 14) As Byte
            sName = ""

            For m = 0 To 14
                '                sName = sName & Chr$(Status.NameBuffer(j).name_(m))
                ss(m) = Status.NameBuffer(j).name_(m)
            Next m
            '            iPos = InStr(sName, Chr$(0))
            '            If iPos Then sName = Left$(sName, iPos - 1)
            sName = Trim$(StrConv(ss, vbUnicode))