- UID
- 269864
- 积分
- 9
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2005-5-31
- 最后登录
- 1970-1-1
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
返回代表当时Internet网络连接状态的长整数
Public Declare Function InternetGetConnectedState Lib "Wininet.dll" _
(ByRef lpdwFlags As Long, _
ByVal dwReserved As Long) As Boolean
Public Const INTERNET_CONNECTION_MODEM = &H1
Public Const INTERNET_CONNECTION_LAN = &H2
Public Const INTERNET_CONNECTION_PROXY = &H4
Public Const INTERNET_CONNECTION_MODEM_BUSY = &H8 ' obsolete
Public Const INTERNET_RAS_INSTALLED = &H10
Public Const INTERNET_CONNECTION_OFFLINE = &H20
Public Const INTERNET_CONNECTION_CONFIGURED = &H40
Public Function GetInetStatus() As Long
Dim retVal As Boolean, flags As Long
retVal = InternetGetConnectedState(flags, 0&)
GetInetStatus = IIf(retVal, flags, 0)
End Function |
|