Address = "smtp.qq.com"
wmi := ComObjGet("winmgmts:")
queryEnum := wmi.ExecQuery(""
. "Select * from Win32_PingStatus where Address=" . Address)
._NewEnum()
if queryEnum[process] && process.ResponseTime
MsgBox connection success
else
MsgBox connection fail
wmi := queryEnum := process := ""
return
感谢提供
怎么运行呢
复制到本地===>更改后缀名字为ahk=====>直接运行就行了