VB6.0 如何判断internet网络是否联通

做一个应用，需要判断电脑是否联通了internet网络，网上找到了资料，这里记录下

'用于判断Internet网络联通状态
Public Declare Function InternetGetConnectedState Lib "wininet" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Boolean

这个函数是读取操作系统的internet连接状态的。

'用于判断Internet网络联通状态
Public Declare Function InternetGetConnectedState Lib "wininet" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Boolean