网络中ftp服务器的vba搜索

vba是。。。 我需要在无线网络中找到ftp服务器，所以我需要检查ftp端口2211上的ip地址，从192.168.1.1到192.168.1.50。 如果我对每个地址进行循环并打开

 ' Open Internet Connecion
    hOpen = InternetOpen("FTP", 1, "", vbNullString, 0)

    ' Connect to FTP
    hConnection = InternetConnect(hOpen, hostName, FTP_PORT, username, password, INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)

要花很多时间。 有没有更快的方法来检测ftp服务器在网络中的位置 实际上，我需要从android设备（如智能手机或平板电脑）上获取文件，该设备的ftp服务器已打开（连接到它们的唯一方式），并连接到无线局域网。但是他们的IP地址总是不同的。我需要用户友好的形式，这将检测他们的ftp服务器。 此问题类似于此线程：， 但我在vba中需要它

---

谢谢

没有。没有。即使是您添加的Java问题，也没有显示出更好的方法（除了通过多线程加速）。如果速度可以接受，我可能会尝试另一种方法，如果我将ipv4连接到无线网络，也许就够了，因此，它将减少尝试打开连接的次数显然有更好的方法：

InternetConnect

是一个高级API函数。如果您首先尝试建立一个低级TCP连接来探测打开的端口，您可以提高速度。谷歌搜索端口扫描仪。我不会提供代码，因为VBA端口扫描器几乎完全是恶意的。在公司网络上使用时，这是一种标记机器的好方法