精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VFP>>〖外部引用〗>>如何检测是不连上Internet?

主题:如何检测是不连上Internet?
发信人: 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]

[关闭][返回]