判断是否上网

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

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

x

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _- ~, M2 Q0 {7 F( l ^- ^
Alias "InternetGetConnectedStateExA" _
6 P5 w* U q/ ~0 p2 u. L2 K
(ByRef lpdwFlags As Long, _7 h$ J4 H' M9 c
ByVal lpszConnectionName As String, _1 t6 v! w; f% o6 G& N
ByVal dwNameLen As Long, _
s( X# s- G3 I. e$ }, z
ByVal dwReserved As Long _9 j# q% n$ ^& |5 z8 V
) As Long0 G1 n+ S& }% V% b; u1 x; @
1 w1 @7 U; r! u& b
Sub CheckInternet() '测试是否连接互联网! |3 W$ j) J T: h3 d
Dim dwFlags As Long0 V( D. j3 b# g; m
Dim strBuf As String4 U3 k# G5 E( d1 [) I0 _
Dim lRet As Long
7 x4 A# c9 I# j! `4 r8 d* A7 ]# B
strBuff = String$(513, 0)
lRet = InternetGetConnectedStateEx(dwFlags, strBuf, 512, 0&)
/ `( j9 I0 D5 p- {
If lRet = 1 Then" b2 n7 o2 A; C4 E. V
MsgBox "已经连接新大榭云"
8 }8 \$ A. e, j. p5 ~. e
'打开指定网页开始7 q- j) U1 Q( b- \ M
With CreateObject("internetexplorer.application")
. u% {" Y2 X# k4 Q( h' D
.Visible = True
* a& Q4 b- O4 k7 a
.Navigate "http://www.baidu.com/"
4 ^+ c& a! q+ X1 T. V
End With( x8 ~- i* E: K' p. U& c
'打开指定网页结束
. x" Q% R) W7 y' [! c& o
Else
3 P& f g. Z( w% l/ m. Q
MsgBox "未连接新大榭云网络"
3 F) O. B) Y' C& v* J4 }% F# V9 V
End If
0 Q8 @1 r8 x4 w5 G. U. w: q6 ~
End Sub

复制代码

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

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

[Excel课程] 判断是否上网