*-- 程序名称：判断网络是否连接及他们的连接名称、连接类型
*-- 调试环境：中文VFP6+WIN98SE，英文VFP7+WIN98SE
CLEAR
CLEAR DLLS
Declare Long InternetGetConnectedStateEx In "wininet.dll" Long @, String@, Long, Long
#Define INTERNET_CONNECTION_MODEM 1
#Define INTERNET_CONNECTION_LAN 2
#Define INTERNET_CONNECTION_PROXY 4
#Define INTERNET_RAS_INSTALLED 16
#Define INTERNET_CONNECTION_OFFLINE 32
#Define INTERNET_CONNECTION_CONFIGURED 64
Install = 0
nName = SPACE(513)
?IIF(InternetGetConnectedStateEx(@Install, @nName, 512, 0) > 0, "网络已连接", "网络未连接")
?IIF(ALLTRIM(nName) = CHR(0), "", "连接名称: " + ALLTRIM(nName))
IF BITAND(Install, INTERNET_CONNECTION_MODEM) = 1
?"连接方式: MODEM 拨号上网"
ENDIF
IF BITAND(Install, INTERNET_CONNECTION_LAN) = 2
?"连接方式: LAN 上网"
ENDIF
IF BITAND(Install, INTERNET_CONNECTION_PROXY) = 4
?"连接方式: PROXY 上网"
ENDIF
IF BITAND(Install, INTERNET_CONNECTION_OFFLINE) = 32
?"连接方式: OFFINE 上网"
ENDIF
IF BITAND(Install, INTERNET_CONNECTION_CONFIGURED) = 64
?"连接方式: CONFIGURED 上网"
ENDIF
?IIF(BITAND(Install, 16) = 16, "系统 RAS 已安装", "系统RAS未安装")
CLEAR DLLS
RETURN
|
