大事！服务器掉线了，用SQL函数判断太慢，今天教你一招 |
您所在的位置：网站首页 › vfp中怎样定义表格控件 › 大事！服务器掉线了，用SQL函数判断太慢，今天教你一招 |
大事！服务器掉线了，用SQL函数判断太慢，今天教你一招
|
前阵子很多狐友在问，我服务器掉线了，我的软件启动是用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 猫猫的心里话 加菲猫的VFP|狐友会社群接收投稿啦加菲猫的VFP，用VFP不局限VFP，用VFP混合一切。无论是VFP，还是JS，还是C，只要能混合起来，都可以发表。 商业模式，销售技巧、需求规划、产品设计的知识通通可以发表。 暂定千字50元红包，，优秀的文章红包更大，一经发表，红包到手。 如何帮助使用VFP的人？用VFP的人，有专业的，有非专业了，很多人其实是小白，问出的问题是小白，如果问题不对，我们引导他们问正确的问题。无论如何请不要嘲笑他们说帮助都不看，这么简单的问题都不会，嘲笑别人不行，而无法提出建设性答案，是很low的。 我们无论工作需要，还是有自己的软件，都是是需要真正的知识，如何让更多人学习真正的VFP知识呢，只需要点赞，在看，能转发朋友圈就更好了。 加菲猫的vfp倡导用"VFP极简混合开发，少写代码、快速出活，用VFP，但不局限于VFP，各种语言混合开发"。 我已经带领一百多名会员成功掌到VFP的黑科技，进入了移动互联网时代，接下来我们要进入物联网领域。 2023年狐友会社群会员继续招募中 社群会员获取的权益有：祺佑三层开发框架商业版（猫框），终身免费升级，终身技术支持。 开放的录播课程有：微信小程序，微信公众号开发，H5 APP开发，Extjs BS开发，VFP面向对象进阶，VFP中间层开发。 源码类资源有：支付组件源码，短信源码，权限组件源码，一些完整系统的源码。这个可以单独出售的，需要的可以联系我。 会员也可以实现群内资源对接，可以接分包，合作等各项商业或技术业务
|
【本文地址】
今日新闻 |
推荐新闻 |