如何在VB 6中获取Ad-Hoc网络上的所有计算机名称？

Question

我的表单上有一个组合框和命令按钮。如何使用连接到ad-hoc网络的所有计算机名称填充组合框？

Answer 1

可悲的是，没有简单的方法可以做到这一点。 API记录在以下URL中：

http://msdn.microsoft.com/en-us/library/ms706584(v=VS.85).aspx

无线网络的文档根目录位于：

http://msdn.microsoft.com/en-us/library/ms706556(v=VS.85).aspx

它说该文档适用于C / C ++程序员。在VB中创建可以与之交互的代码需要很多COM知识。

我建议的另一种方法是找到一个输出此信息的命令行实用程序，并解析其输出。

Answer 2

自从我用VB6做了很多事以来，已经有很长一段时间了，但我记得枚举局域网计算机就像this.

Answer 3

哇，在 VB 中确实非常繁琐，但您也可以使用 ad-hoc网络或任何形式的网络获取所有计算机名称>命令提示符。 用：

net view /all

因此，为了将名称输入到您的vb应用程序中，您可以将上述命令的输出通过以下方式传递到textFile：

net view /all >>names.txt

VB 中的

将是

shell("net view /all >> names.txt")

然后使用 VB

在文本文件中读取