Изменить текст кнопки MSGBOX'a

[FlatX007]

Цитата beve:



Значит не так вставляеш.

Изменить текст кнопки MSGBOX'a

Я вставляю перед строчкой



Код:

Код: Выделить всё

MsgBox(65, "The Internet is Сonnected?", "Все в порядке, Интрернет работает :)"& @CRLF &"Время подключения:  " & @hour &":"& @min &":"&@sec)

[sashadeg]

beve, что я не правельно делаю???

[beve]

Цитата:



что я не правельно делаю?



Проверь:

читать дальше »

Код:

Код: Выделить всё

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

[sashadeg]

Цитата beve:



после появления твоего окна, текст на кнопке Отмена изменяется через несколько милисикунд, и это заметно.

Изменить текст кнопки MSGBOX'a

Странно... у меня совсем ничего не заметно... или у меня комп шустрый... Ну всё равно спасибо огромное!