发信人: 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]
|
|