判断是否上网

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

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

x

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
7 e! c. h9 Q1 d. ~, D' o
Alias "InternetGetConnectedStateExA" _
7 \6 v, @8 n' l X- b l
(ByRef lpdwFlags As Long, _
5 {) d. z- t4 j0 X* M0 Z; R4 j
ByVal lpszConnectionName As String, _8 D( M6 q9 d% [9 T/ [- M/ V
ByVal dwNameLen As Long, _
' ?) O. _: r6 Z+ a: Z
ByVal dwReserved As Long _! {& ?( `9 a+ W4 E# S/ m
) As Long1 ^4 Y6 k0 R0 {4 Y4 |0 q! d
) X i' z8 q* x2 q$ G% n
Sub CheckInternet() '测试是否连接互联网
) a) g9 ]" U9 z+ @6 x) T/ ~
Dim dwFlags As Long5 \0 j! M0 q. _' Q$ ~
Dim strBuf As String1 y9 u) U* G. [! M) G6 g) g& o% u. l. P- k
Dim lRet As Long7 b2 i) T8 i- s- ~' ]
strBuff = String$(513, 0)! S. R: \2 f( d# k$ g5 e+ x
lRet = InternetGetConnectedStateEx(dwFlags, strBuf, 512, 0&)3 H/ _; g D" {9 A* B2 Q' A
If lRet = 1 Then; R2 b* b8 j. a0 y4 n( y
MsgBox "已经连接新大榭云"+ N! X& U0 i# i" @- F! r
'打开指定网页开始
. ~2 T4 A3 S7 ^
With CreateObject("internetexplorer.application")
6 q! l3 Y/ {; ~/ u o4 V
.Visible = True+ H9 f) G2 b; _& Q
.Navigate "http://www.baidu.com/"
9 c5 x3 @' P8 ?
End With8 A( v" A1 @5 S; q/ ^9 M
'打开指定网页结束
+ H' \* p! q5 m5 t
Else6 z! g7 E5 I& w! x
MsgBox "未连接新大榭云网络"' \6 C* e+ f/ R1 I0 l+ F
End If1 b2 r$ \* v' @% P8 z' ~# m' L# [
End Sub

复制代码

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

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

[Excel课程] 判断是否上网