【开源】VFP用api判断internet是否连接

阿杰

<p><font face="Verdana"><br/>Clear<br/>Clear Dlls<br/>Declare Long InternetGetConnectedStateEx In "wininet.dll" Long @, String@, Long, Long<br/>#Define INTERNET_CONNECTION_MODEM&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1<br/>#Define INTERNET_CONNECTION_LAN&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 2<br/>#Define INTERNET_CONNECTION_PROXY&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 4<br/>#Define INTERNET_RAS_INSTALLED&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 16<br/>#Define INTERNET_CONNECTION_OFFLINE&nbsp;&nbsp;&nbsp;&nbsp; 32<br/>#Define INTERNET_CONNECTION_CONFIGURED&nbsp; 64<br/>Install = 0<br/>nName = Space(513)<br/>?Iif(InternetGetConnectedStateEx(@Install, @nName, 512, 0) &gt; 0, "网络已连接", "网络未连接")<br/>?Iif(Alltrim(nName) = Chr(0),&nbsp; "", "连接名称:&nbsp;&nbsp;&nbsp; " + Alltrim(nName))<br/>If Bitand(Install, INTERNET_CONNECTION_MODEM) = 1<br/>&nbsp;?"连接方式:&nbsp;&nbsp;&nbsp; MODEM 拨号上网"<br/>Endif<br/>If Bitand(Install, INTERNET_CONNECTION_LAN) = 2<br/>&nbsp;?"连接方式:&nbsp;&nbsp;&nbsp; LAN 上网"<br/>Endif<br/>If Bitand(Install, INTERNET_CONNECTION_PROXY) = 4<br/>&nbsp;?"连接方式:&nbsp;&nbsp;&nbsp; PROXY 上网"<br/>Endif<br/>If Bitand(Install, INTERNET_CONNECTION_OFFLINE) = 32<br/>&nbsp;?"连接方式:&nbsp;&nbsp;&nbsp; OFFINE 上网"<br/>Endif<br/>If Bitand(Install, INTERNET_CONNECTION_CONFIGURED) = 64<br/>&nbsp;?"连接方式:&nbsp;&nbsp;&nbsp; CONFIGURED 上网"<br/>Endif<br/>?Iif(Bitand(Install, 16) = 16, "系统 RAS 已安装", "系统RAS未安装")<br/>Clear Dlls<br/>Return</font></p>
<p><font face="Verdana">*这里仍然存在一个问题。当lan连接共享方式上网时，只能判断lan是否连接而wan连接无法判断，因此，仍然无法对internet连接成功与否作出判断<br/></font></p>