判断是否上网

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

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

x

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _$ ?* ~( f9 q0 b$ c# a
Alias "InternetGetConnectedStateExA" _
. M6 G+ d, _& M q0 `! @
(ByRef lpdwFlags As Long, _5 `' t' i, G5 S! u% x% n
ByVal lpszConnectionName As String, _
# o0 x# R5 e- w \8 @6 M0 m
ByVal dwNameLen As Long, _
( K% H) C, U' N6 z4 H
ByVal dwReserved As Long _; b1 f5 F. b* Q5 J+ i
) As Long
/ i) U, {' g5 A
7 U$ v/ q8 t/ R! U: T/ ^. j
Sub CheckInternet() '测试是否连接互联网
7 @4 f; d4 k \+ |, N# ?; c
Dim dwFlags As Long: ?0 e% S7 X* }/ v6 r) K
Dim strBuf As String- O& x" E$ |( k4 P& L% i. O
Dim lRet As Long
" ^; K: R- y; p& E2 ]1 e
strBuff = String$(513, 0)% [9 W2 Y* I/ D; Z5 r1 H
lRet = InternetGetConnectedStateEx(dwFlags, strBuf, 512, 0&)
6 P$ T( T) O- ?. d
If lRet = 1 Then8 ` _% X4 c1 W& ^8 N3 A' O, M- k
MsgBox "已经连接新大榭云"
6 G) |6 m) _" \, d
'打开指定网页开始5 i* U3 {) h! ]0 O: g
With CreateObject("internetexplorer.application")) c* U( J5 q9 ^, D
.Visible = True
1 H1 ?( f5 h$ h' a
.Navigate "http://www.baidu.com/"
4 @" r( h" V. |, |. Q r! f2 G
End With9 _) [# W3 P6 B9 v4 Q7 G& e, Z* E
'打开指定网页结束3 J# @2 e5 d' W L6 W" L) l
Else
* v1 v: ~6 B* N/ L, U1 I6 n
MsgBox "未连接新大榭云网络"- ]' {) U/ p0 d# a; K# B( l7 R }
End If; N* B- G! q4 ^" W: T9 z- k
End Sub

复制代码

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

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

[Excel课程] 判断是否上网