主题：在启动表的时候怎样自动换IP地址

Ping

对指定服务器执行Ping操作。

语法：

Ping(address)
Ping(address ,timeout)

address：要ping的域名或者IP地址，域名前面不能有"http://"
timeout：可选参数，在Ping通之前持续尝试的时间，单位为毫秒，默认值为500。

如果Ping通，则返回True，否则返回False

示例:

If Network.Ping("www.egridsoft.com") Then
    Messagebox.Show("可以访问易表主页")
End If
If Network.Ping("198.01.01.01") Then
    Messagebox.Show("该服务器可用")
End If

需要注意的是，如果服务器设置成禁止Ping入，那么就不能用Ping来判断服务器是否可用了。