判断是否上网

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

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

x

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _% U6 n" E3 ~" L$ A, J1 G
Alias "InternetGetConnectedStateExA" _# A1 r% S0 T# ?; O
(ByRef lpdwFlags As Long, _+ ?7 [, ~' |. c
ByVal lpszConnectionName As String, _
. q q: F* T' C% D& `
ByVal dwNameLen As Long, _
: Q1 c7 G/ L3 H1 o [$ G
ByVal dwReserved As Long _
+ z* o; B% X* E' K* e6 k
) As Long
7 ]) z6 ^- U, d5 p- _
, y! y6 f3 @ `
Sub CheckInternet() '测试是否连接互联网
2 b' T1 M. y! p& l1 Z2 J/ r
Dim dwFlags As Long
: Q/ y' z& Y. Q5 m' _2 h
Dim strBuf As String7 L9 v3 I5 S0 i7 K0 K/ R
Dim lRet As Long
5 H/ q7 x' h7 q
strBuff = String$(513, 0)
8 ~6 s s2 c3 X( W v* B! p m
lRet = InternetGetConnectedStateEx(dwFlags, strBuf, 512, 0&)0 G# L: h& p( O! q5 z2 E! {
If lRet = 1 Then
& c4 V! `* r& r# L+ g
MsgBox "已经连接新大榭云"
) w- }6 f% M, F* i/ S
'打开指定网页开始
, X1 C, k# Z. X9 n, ?
With CreateObject("internetexplorer.application"): N5 d \3 M0 d) }$ r# g8 z
.Visible = True
7 R0 C) X7 A" P
.Navigate "http://www.baidu.com/"$ {( w/ L' p) ^4 c4 ?, ?- C
End With7 V0 m( n0 \1 Z7 A
'打开指定网页结束7 O4 I+ D; K$ [7 V2 E( C6 L* }' Z
Else
2 j1 P* B5 _& [7 l( H7 e
MsgBox "未连接新大榭云网络"& b* v, c) O3 \ P- S* {% z
End If
2 S5 x1 \5 l, N3 m" H5 \: F$ N
End Sub

复制代码

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

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

[Excel课程] 判断是否上网