Никак.]]>
result := ComObjCreate("WScript.Shell").Exec("cmd.exe /q /c chcp 65001 && ping ya.ru -n 1").StdOut.ReadAll()дальше можно выщемить только цифру time или TTL, чтобы в дальнейшем сравнивать/обрабатывать..., все по русски и без каракуль, можно поставить в цикл и не будет постоянно создаваться файл.
Loop, parse, result, `n `r
{
IfInString, A_LoopField, time=
{
var:=A_LoopField
StringReplace, var, var, time=, , All
StringReplace, var, var, ms, , All
MsgBox, %var%
}
}
returnclipboard:=
RunWait %comspec% /c chcp 65001 && ping ya.ru -n 1 | cb.exe
MsgBox, %clipboard%
Еще проще.
#Persistent
RunWait, ping.exe ya.ru -n 1,, Hide UseErrorlevel
if Errorlevel=1
{
MsgBox, Pinng проходит
;вместо MsgBox мотет быть Run и т.д
}
return
MsgBox, % DllCall("Wininet.dll\InternetGetConnectedState", "Str", 0x20,"Int",0)
Немного странно этой функцией пользуетесь. Надо как-то так:
state := DllCall("Wininet\InternetGetConnectedState", IntP, flags, Int, 0)
for k, v in { INTERNET_CONNECTION_CONFIGURED: 0x40
, INTERNET_CONNECTION_LAN: 0x2
, INTERNET_CONNECTION_MODEM: 0x1
, INTERNET_CONNECTION_OFFLINE: 0x20
, INTERNET_CONNECTION_PROXY: 0x4
, INTERNET_RAS_INSTALLED: 0x10 }
if (flags & v)
list .= k . "`n"
MsgBox, % "state = " state "`nflags:`n" Trim(list, "`n")У кого-нибуль есть ситуации, когда этот код показывает соединение при фактически неработающем интернете?
У меня при подключенном роуте и отключенном от него интернете показывает 1.
]]>]]>MsgBox, % DllCall("Wininet.dll\InternetGetConnectedState", "Str", 0x20,"Int",0)MsgBox, % DllCall("Wininet\InternetCheckConnection", Str, "https://www.microsoft.com/", UInt, FLAG_ICC_FORCE_CONNECTION := 1, UInt, 0)
RunWait, ping.exe www.microsoft.com -n 1,, Hide UseErrorlevel
MsgBox, % !ErrorlevelMsgBox, % DllCall("Wininet\InternetCheckConnection", Str, "https://www.microsoft.com/", UInt, FLAG_ICC_FORCE_CONNECTION := 1, UInt, 0)
RunWait, ping.exe www.microsoft.com,, Hide UseErrorlevel
MsgBox, % !Errorlevel