大事！服务器掉线了，用SQL函数判断太慢，今天教你一招

最新推荐文章于 2026-06-24 21:30:02 发布

原创最新推荐文章于 2026-06-24 21:30:02 发布 · 250 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#服务器 #sql #运维 #数据库

文章介绍了当使用SQLCONNECT进行服务器状态检测速度较慢时，可以采用PING方法作为替代，提供了三种不同的实现方式，包括MYFLL、wscript和VFP的ICMP发送回显请求。此外，文章还提到了一个名为“加菲猫的VFP”的社群，该社群接收关于VFP和其他混合开发技术的投稿，提供技术资源和商业支持，如开发框架、录播课程和源码资源，并招募会员参与学习和交流。

前阵子很多狐友在问，我服务器掉线了，我的软件启动是用SQLCONNECT来判断了，但是太慢了，有没有快一点的办法。快一点的办法也是有，比如PING。

方法一：可以用MYFLL发

?cmdshell("ping -a 192.168.0.106")

方法二:用wscript发

owsh=CREATEOBJECT("wscript.shell")
?owsh.Run("cmd /c ping -n 1 -r 9 192.168.2.111>ip.txt",0,.t.)

方法三:用VFP实现Ping功能的代码(不需要外部控件)

***A simple ping
 
Declare Integer IcmpCreateFile In icmp.Dll
Declare Integer IcmpCloseHandle In icmp.Dll ;
       
integer IcmpHandle
Declare Integer IcmpSendEcho In icmp.Dll ;
       
integer IcmpHandle,Integer DestinationAddress,String @ RequestData,;
       
integer RequestSize,Integer RequestOptions,String @ ReplyBuffer,;
       
integer ReplySize,Integer Timeout
Declare Integer inet_addr In wsock32.Dll String @ cp
 
 
Clear
Accept "Input destnation IP:" To cIp
IcmpHandle=IcmpCreateFile()
RequestData="hello!"
RequestSize=Len(RequestData)
RequestOptions=0
ReplyBuffer=Space(65535)
ReplySize=
Len(ReplyBuffer)
Timeout=2000
DestinationAddress=inet_addr(Alltrim(cIp))
If DestinationAddress=0
       
?"IP address error,please input again."
       
Return
Endif
nStartTime=Seconds()
nResult=IcmpSendEcho(IcmpHandle,;
       
DestinationAddress,;
       
RequestData,;
       
RequestSize,;
       
RequestOptions,;
       
@ReplyBuffer,;
       
ReplySize,;
       
Timeout)
If nResult=0
       
?"Request timed out."
Else
       
?"Reply form "+cIp+" in "+
Alltrim(
Str(
Seconds()-nStartTime))+" ms"
Endif
?"End."
IcmpCloseHandle(IcmpHandle