Код:
Opt("TrayAutoPause", 0)
TrayTip("The Internet is Сonnected? v.1.3.beta", "Подождите...", 5, 1)
$var = Ping("www.google.com")
;------------------------------------------------------------------------------------------
If $var<> 0 Then
_MsgBoxSetButtonText("The Internet is Сonnected?")
MsgBox(65, "The Internet is Сonnected?", "Все в порядке, Интрернет работает :)"& @CRLF &"Время подключения: " & @hour &":"& @min &":"&@sec)
Exit
Else
$1=_MsgBoxTimer(36, 'The Internet is Сonnected? v.1.3.beta',"К сожалению, сейчас Интернет не подключен :(" & @CRLF & "Сообщить, если Интернет будет работать?", 5)
EndIf
;------------------------------------------------------------------------------------------
If $1 <> 7 Then
TrayTip("The Internet is Сonnected? v.1.3.beta","Программа ожидает подключения сети Интернет...", 7, 1)
While 1
$var = Ping("www.google.com")
If $var <> 0 Then
_MsgBoxSetButtonText("The Internet is Сonnected? v.1.3.beta")
MsgBox(65, "The Internet is Сonnected? v.1.3.beta", "Все в порядке, Интрернет работает :)"& @CRLF &"Время подключения: " & @hour &":"& @min &":"&@sec)
Exit
EndIf
sleep(500)
WEnd
Else
TrayTip("The Internet is Сonnected? v.1.3.beta","Bye-bye!!!", 3, 1)
Sleep(3000)
EndIf
Func _MsgBoxTimer($iFlag, $sTitle, $sText, $iMBTimeOut = 0, $hWnd = 0)
Local $hFile, $sMBLine, $sSet_Text, $iRet
$sMBLine = '#NoTrayIcon' & @CRLF
$sMBLine &= '$h_Title = WinGetHandle("' & $sTitle & '")' & @CRLF
$sMBLine &= 'Opt("WinWaitDelay", 1)' & @CRLF
$sMBLine &= 'While Not WinExists($h_Title)' & @CRLF
$sMBLine &= ' Sleep(10)' & @CRLF
$sMBLine &= 'WEnd' & @CRLF
If $iMBTimeOut > 0 Then
$sMBLine &= _
'$sButtonText = ControlGetText($h_Title, "", "Button1")' & @CRLF & _
'ControlSetText($h_Title, "", "Button1", $sButtonText & " (' & $iMBTimeOut & ')")' & @CRLF & _
'$TimerInit = TimerInit()' & @CRLF & _
'$iTime = ' & $iMBTimeOut & @CRLF & _
'While $iTime > 0' & @CRLF & _
' If Not WinExists($h_Title) Then ExitLoop' & @CRLF & _
' $sButtonText = StringRegExpReplace(ControlGetText($h_Title, "", "Button1"), " \(\d+\)$", "")' & @CRLF & _
' ControlSetText($h_Title, "", "Button1", $sButtonText & " (" & $iTime & ")")' & @CRLF & _
' If Not WinExists($h_Title) Then ExitLoop' & @CRLF & _
' Sleep(1000)' & @CRLF & _
' If Not WinExists($h_Title) Then ExitLoop' & @CRLF & _
' $iTime -= 1' & @CRLF & _
'WEnd'
EndIf
$hFile = FileOpen(@TempDir & '\MiscMMB.tmp', 2)
FileWrite($hFile, $sMBLine)
FileClose($hFile)
Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @TempDir & '\MiscMMB.tmp"')
$iRet = MsgBox($iFlag, $sTitle, StringFormat($sText, $iMBTimeOut), $iMBTimeOut)
While FileExists(@TempDir & '\MiscMMB.tmp')
FileDelete(@TempDir & '\MiscMMB.tmp')
WEnd
Return $iRet
EndFunc ;==>_MsgBoxTimer
Func _MsgBoxSetButtonText($sTitleOfMsgbox)
Local $sMBLineTmp, $hFileTmp,$NewNameOfButton="Закрыть"
$sMBLineTmp = '#NoTrayIcon' & @CRLF
$sMBLineTmp &= '$h_Title = WinGetHandle("' & $sTitleOfMsgbox & '")' & @CRLF
$sMBLineTmp &= 'Opt("WinWaitDelay", 1)' & @CRLF
$sMBLineTmp &= 'While Not WinExists($h_Title)' & @CRLF
$sMBLineTmp &= ' Sleep(10)' & @CRLF
$sMBLineTmp &= 'WEnd' & @CRLF
$sMBLineTmp &= _
'$sButtonText = ControlGetText($h_Title, "", "Button2")' & @CRLF & _
'ControlSetText($h_Title, "", "Button2", "'&$NewNameOfButton & '")' & @CRLF & _
'Exit'
$hFileTmp = FileOpen(@TempDir & '\Tmp.tmp', 2)
FileWrite($hFileTmp, $sMBLineTmp)
FileClose($hFileTmp)
Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @TempDir & '\Tmp.tmp"')
EndFunc ;==>_MsgBoxSetButtonText
