大佬，帮忙修改一下方法，ping不通时用时特别长要好几秒，能ping通时用时特别快，如何改一下可以ping不通时最多1秒
FUNCTION PingIP(tcIP)
    LOCAL loWMIService, loPing, loStatus, lnResult   
    * 连接到WMI服务
    loWMIService = GETOBJECT("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    * 创建WMI查询
    loPing = loWMIService.ExecQuery(;
        "SELECT * FROM Win32_PingStatus WHERE Address = '" + tcIP + "'")
    * 检查结果
    FOR EACH loStatus IN loPing
        * StatusCode = 0 表示成功
        IF loStatus.StatusCode = 0
            RETURN '1'
        ENDIF
    ENDFOR
    RETURN '0'
ENDFUNC

myfll里面有个命令可以设置超时：

函数名：ShellExecWait(cProgram [,cParameters [,nMode]])
缩写：sewt
调用一个程序，并等待运行结束。
返回值：
整型，为零时，执行正常完成，否则为错误代码，即GetLastError()返回的代码
参数：
cProgram：字符型，可执行程序名
[cParameters]：字符型，可执行程序的参数，默认为空
[nMode]]：整型，执行模式，默认为5，可以使用以下值：
#define SW_HIDE 0
#define SW_SHOWNORMAL 1
#define SW_NORMAL 1
#define SW_SHOWMINIMIZED 2
#define SW_SHOWMAXIMIZED 3
#define SW_MAXIMIZE 3
#define SW_SHOWNOACTIVATE 4
#define SW_SHOW 5
#define SW_MINIMIZE 6
#define SW_SHOWMINNOACTIVE 7
#define SW_SHOWNA 8
#define SW_RESTORE 9
#define SW_SHOWDEFAULT 10
#define SW_FORCEMINIMIZE 11
#define SW_MAX 11

https://bbs.bccn.net/viewthread.php?tid=441382&highlight=ping
吹水佬版主已经给我们贴出来示例代码了，以后遇到问题可以先搜索一下

"SELECT * FROM Win32_PingStatus WHERE Address = '" + tcIP + "' and timeout=1000"

[此贴子已经被作者于2026-1-23 23:46编辑过]

谢谢，这个方法简单，一下就解决了