判断是否上网

admin · 发表于 2020-4-6 22:10:47

您需要登录才可以下载或查看，没有账号？注册

x

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _& C: d3 m' K6 N1 P4 M& i! b
Alias "InternetGetConnectedStateExA" _" T$ T9 {" E& E
(ByRef lpdwFlags As Long, _$ @, v- l/ e1 k6 I
ByVal lpszConnectionName As String, _
! e5 O$ S/ O0 `$ T! o
ByVal dwNameLen As Long, _) x4 ]3 x8 W" S. Y+ x/ C {8 Q
ByVal dwReserved As Long _6 l% }& P& l5 j5 g/ g- H7 ~9 ~- |
) As Long
/ i- ~% c9 O) J% k
" a8 o2 Y7 t+ W1 i* g) f6 p
Sub CheckInternet() '测试是否连接互联网0 M! Y1 `* c9 G" Y
Dim dwFlags As Long
* w6 ^0 I% `( w$ m
Dim strBuf As String
0 e: U% z$ s* e
Dim lRet As Long
; E. b2 A h; n( H' |
strBuff = String$(513, 0)
; i7 Z# f+ u, E' o. R
lRet = InternetGetConnectedStateEx(dwFlags, strBuf, 512, 0&)
- I; p5 l5 P1 v
If lRet = 1 Then
! h* C2 N# \9 F& q# B7 j$ ]
MsgBox "已经连接新大榭云"' |. f: v+ \/ g0 [
'打开指定网页开始* ^7 g8 n6 [+ ~; E
With CreateObject("internetexplorer.application")
# k6 ]; l1 z! X! `* U
.Visible = True m+ x+ g; C) n1 a5 O& Q
.Navigate "http://www.baidu.com/"
1 t" D1 _ L; A* [! r, t. K
End With
; d& x* j4 {3 @: S, l
'打开指定网页结束
8 i" S4 Q1 c x: P/ O
Else
7 |" O3 t8 \3 h6 A3 t) d
MsgBox "未连接新大榭云网络"" j- ~# `2 ^, l
End If
% v; m" v4 D+ e: t% d7 U6 F
End Sub

复制代码

经测试，好像还是有点问题！

		自动登录	找回密码
密码			注册

[Excel课程] 判断是否上网