发信人: foxzz()
整理人: hunter__fox(2002-03-16 21:48:53), 站内信件
|
请参考:
*!****************************
func getconns
DECLARE Integer InternetGetConnectedState IN wininet.dll ;
Integer @lpdwFlags, Integer dwReservednReserved
local m_getstate
m_getstate = InternetGetConnectedState( 7, 0 )
do case
case m_getstate=0
wait wind "不通!" nowait
case m_getstate=1
wait wind "拨号已经连通!" nowait
case m_getstate=2
wait wind "网络已经连通!" nowait
case m_getstate=4
wait wind "通过代理连通!" nowait
otherwise
wait wind "非0124!" nowait
endcase
return m_getstate
-- ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.103.189.52]
|
|