if (ComObjGet("winmgmts:").ExecQuery("Select * from Win32_PingStatus where Address=""smtp.qq.com""")._NewEnum()[_] && _.ResponseTime) {
    MsgBox 连上
 } else {
    MsgBox 没连上
}

; ↓ 用的是临时变量名，所以不清空变量也行 ↓
; _ := ""


/*     初始版本
Address = "smtp.qq.com"
wmi := ComObjGet("winmgmts:")
queryEnum := wmi.ExecQuery(""
        . "Select * from Win32_PingStatus where Address=" . Address)
        ._NewEnum()
if queryEnum[process] && process.ResponseTime
{
    MsgBox 连上
} else {
    MsgBox 没连上
}
wmi := queryEnum := process := ""
Return
*/

 

声明：站内资源为整理优化好的代码上传分享与学习研究，如果是开源代码基本都会标明出处，方便大家扩展学习路径。请不要恶意搬运，破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点，所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益，请联系我们进行删除下架。