判断是否上网

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

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

x

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _* e: _1 }3 P& l- V1 k7 t( C
Alias "InternetGetConnectedStateExA" _: Q T* _" W( P( p3 C; q
(ByRef lpdwFlags As Long, _
& `" k( f. ]$ Z& T, h! x `# K
ByVal lpszConnectionName As String, _* W- O% x. d. r
ByVal dwNameLen As Long, _# h1 U+ ~. A. f+ K
ByVal dwReserved As Long _
- g6 K0 y1 b" M% m+ r, T% D t9 L) k
) As Long
* O5 U% g5 X, j" X, R
! s$ B, W% L) ? O
Sub CheckInternet() '测试是否连接互联网; ?0 F1 y1 B# H3 ]2 W G
Dim dwFlags As Long
- o, S8 X' [& v+ m
Dim strBuf As String
* p, H7 x2 o" T2 `
Dim lRet As Long
) n! \$ E/ I2 t! f" Z
strBuff = String$(513, 0)
# I, k2 D- f7 ^0 n, C& X2 w) v
lRet = InternetGetConnectedStateEx(dwFlags, strBuf, 512, 0&)5 H+ J4 o8 t8 q) {
If lRet = 1 Then' k6 ^4 o+ m* D; ]- h
MsgBox "已经连接新大榭云", c- ^) ^5 c% b) g5 I) g
'打开指定网页开始. }9 u8 a' K( I% Q1 T1 H2 d1 N6 o
With CreateObject("internetexplorer.application")1 B9 P4 \% k7 B2 k6 V8 m
.Visible = True
s2 z% u# P4 v+ o- U" J8 z3 b
.Navigate "http://www.baidu.com/"
& H9 f+ I$ I, v. z* `. M
End With, Y0 S1 ~5 M3 J2 }" b4 R& d
'打开指定网页结束
6 i& n6 N/ c$ m3 D
Else5 B3 [- c S0 q3 p' v
MsgBox "未连接新大榭云网络"
) i( }9 `7 b0 U( f
End If3 }% {8 K/ d8 _" O
End Sub

复制代码

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

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

[Excel课程] 判断是否上网