【分享成果，随喜正能量】愿意吃亏的人，终究吃不了亏。吃亏多了，总有厚报。爱占便宜的人，定是占不了便宜。赢了微利，却失了大贵。再好的东西，也不可能长久拥有，不必计一时回赠，莫如常怀怜悯之情，常施援助之爱，得到人心，他物不缺。莫要以为成败无因，今天的苦果，是昨天所播之种;当下的付出，是明日的善报。。

VBA技术工具是我根据我的多年经验，并结合一些需求推出多项工具。这些工具分为YZ系列和NZ系列：YZ系列比较容易，一般可以通过教程中的代码组合自己也可以容易的写出；NZ系列则比较困难些，需要一定的VBA技术能力可以得到。这些工具只对学员，不对外。

对于较难些的NZ系列工具，每个工具有两种版本，开放源码的版本和不开放的版本。不开放源码的版本可以直接使用，是用来鼓励哪些执着于VBA学习的和应用，按照我的教程踏实学习，并学习到了高级阶段的学员。这些工具我会陆续推出，一般以19版MS为蓝本编写。今日给大家介绍的这个系列的NZ04-VBA对网络连接的测试”

NZ04 VBA网络连接测试使用说明

这个应用是展现给大家利用VBA完成网络测试的实例。测试的内容有：获取网络信息，含用户名，域名，登录的服务器名；获取网络连接的类型及IP地址；测试与一个固定的网络地址是否可以进行有效的连接。

这个工具的核心技术我封装在一个加载项中，这个加载项提供两个版本，一是开放源码的版本（如果你得到是开放源码的技术，注意密码是123456789，但强烈建议您不要轻易打开代码窗口，即使打开也要留有备份）；二是不开源码的版本，这个版本只提供使用，学员在获得我的全部教程后即可得到这个版本的资料。工具的应用文件为TestNetwork.xlsm文件，这个文件中给出了以上各个测试的应用。

NZ04工具技术是作为网络测试用的，也可以作为自己开发程序的一部分，希望大家根据自己的应用进行合理的补充及修正。

一 获取网络信息

打开这个工具的应用文件TestNetwork.xlsm，如下面的界面,我们点击“获取网络信息”按钮。

点击后在左侧的B列就会返回测试到的结果：

二 测试Web URL 连接

在程序的应用部分，我给出的是对网址的测试，我们在界面上点击：

这个时候会出现测试连接的结果：

当然您也可以给出自己的测试地址，只是要修改应用部分的代码了。

三 获取IP地址

此示例还将演示如何检索计算机的 IP 地址，这需要一系列复杂的 Windows API 调用。这不是你经常需要的东西，但是或许在您的工作中的某个时候，您真的需要它。

如下，我们点击“获取IP”地址按钮：

四 测试当前计算机的网络连接

这个应用提供给大家的另一项应用是测试连接到的网络是LAN还是WAN。如下面在应用程序部分的测试结果：

WAN口主要用于连接外部网络，如ADSL、DDN、以太网等各种接入线路;而LAN口用来连接家庭内部网络，主要与家庭网络中的交换机、集线器或PC相连。可以说这两类网口一类对外，一类对内。

对于连接的类型，我们可以看一下下面的解释：如果你要连接公司局域网，可以用WAN端口拉网线连过去；如果你要连接学校局域网，可以用WAN端口拉网线连过去；如果你要连接运营商，可以用WAN端口拉网线连到猫/光猫上去；LAN端口连接你自己的设备，笔记本/台式机/打印机等；无线路由器配置的wifi则相当于LAN端口，连接自己的无线设备，手机/ipad/笔记本等；当WAN端口连上外网，LAN端口上的各个设备和路由器一起组成了一个小型局域网，这个局域网内的设备可以互相发现，访问。

学员也可以查阅相关的资料。

这个应用实现了利用VBA对网络的各种测试，应用于高版本及低版本的Excel中，有需要的朋友可以充分利用。

【分享成果，随喜正能量】

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】想的越多，顾虑就越多；怕的越多，困难就越多。一颗平和接纳的心，才能摆脱所有困境。。