#include-once #include #include #AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7 ; #INDEX# ======================================================================================================================= ; Title ..........: JPD_Simply ; AutoIt Version .: v3.3.14.5 ; Description ....: Simplyfied use of : Console Write (CW), message box (MB) ; Author(s) ......: Jean-Pol Dekimpe (Jeep) ; Language .......: English ; Dll ............: - ; =============================================================================================================================== ; #CURRENT# ===================================================================================================================== ; _CW ; _CW_Fmt ; _MB_Error ; _MB_Info ; _MB_Warning ; _bMB_IsOK ; =============================================================================================================================== ; #INTERNAL_USE_ONLY# =========================================================================================================== ; =============================================================================================================================== ; #FUNCTION# =========================================================================================================== ; Name ...........: _CW ; Description ....: Write a message on console with a specified begin and end of Line ; Syntax .........: _CW($sText, $sBOL = "Trace >", $sEOL = "<", $bNewLine = True) ; - ; Parameter(s) ...: $sText - Text to write ; $sBOL - Begin of line ; $sEOL - End of Line ; $bNewLine : put a new line after writing the message ; - ; Return value(s) : Success - ; Failure - ; - ; Versions .......: 1.1.0 ; Author(s) ......: Jean-Pol Dekimpe (Jeep) ; Date ...........: 2019/01/15 ; Modified .......: - ; Remark(s) ......: simplify use of ConsoleWrite ; Example ........: Yes ;======================================================================================================================== Func _CW($sText, $sBOL = "Trace >", $sEOL = "<", $bNewLine = True) If $bNewLine Then $sEOL &= @CRLF ConsoleWrite($sBOL & $sText & $sEOL) EndFunc ;==>_CW ; #FUNCTION# =========================================================================================================== ; Name ......;....: _CW_Fmt ; Description ....: Write column counters and $sText on console to check text length ; Syntax .........: _CW_Fmt($sText, $sBOL = "Trace >", $sEOL = "<") ; - ; Parameter(s) ...: ; $sText - Text to write ; $sBOL - Begin of line ; $sEOL - End of Line ; - ; Return value(s) : Success - ; Failure - ; - ; Versions .......: 1.0.0 ; Author(s) ......: Jean-Pol Dekimpe (Jeep) ; Date ...........: 2019/01/15 ; Modified .......: - ; Remarks ........: - ; Example ...;....: Yes ;======================================================================================================================== Func _CW_Fmt($sText, $sBOL = "Trace >", $sEOL = "<") Local $iLen = StringLen($sText) Local $iGap = Int($iLen / 10) If Mod($iLen, 10) > 0 Then $iGap += 1 Local $sTitre10 = "", $sTitre1 = "" $sEOL &= @CRLF For $i = 1 To $iGap $sTitre10 &= _StringRepeat(" ", 9) & Mod($i, 10) Next $sTitre1 = _StringRepeat("1234567890", $iGap) ConsoleWrite($sBOL & $sTitre10 & $sEOL) ConsoleWrite($sBOL & $sTitre1 & $sEOL) ConsoleWrite($sBOL & $sText & $sEOL) EndFunc ;==>_CW_Fmt ; #FUNCTION# =========================================================================================================== ; Name ...........: _CW_NL ; Description ....: Write a newline on console ; Syntax .........: _CW_NL() ; - ; Parameter(s) ...: - ; - ; Return value(s) : Success - ; Failure - ; - ; Versions .......: 1.1.0 ; Author(s) ......: Jean-Pol Dekimpe (Jeep) ; Date ...........: 2019/01/15 ; Modified .......: - ; Remark(s) ......: simplify use of ConsoleWrite ; Example ........: Yes ;======================================================================================================================== Func _CW_NL() ConsoleWrite(@CRLF) EndFunc ;==>_CW_NL ; #FUNCTION# =========================================================================================================== ; Name ...........: _CW_Sep ; Description ....: Write a separator line on console ; Syntax .........: _CW_Sep($sSeparator="=") ; - ; Parameter(s) ...: - ; - ; Return value(s) : Success - ; Failure - ; - ; Versions .......: 1.1.0 ; Author(s) ......: Jean-Pol Dekimpe (Jeep) ; Date ...........: 2019/01/15 ; Modified .......: - ; Remark(s) ......: simplify use of ConsoleWrite ; Example ........: Yes ;======================================================================================================================== Func _CW_Sep($sSeparator = "=") ConsoleWrite(_StringRepeat($sSeparator, 120) & @CRLF) EndFunc ;==>_CW_Sep ; #FUNCTION# =========================================================================================================== ; Name .......;...: _MB_Error ; Description ....: Display an error message ; Syntax ......;..: _MB_Error($sMessage, $sTitle = "Error") ; - ; Parameter(s) ...: ; $sMessage : Message to display ; $sTitle : title of the message box ; - ; Return value(s) : Success - ; Failure - ; - ; Versions .......: 1.0.0 ; Author(s) ......: Jean-Pol Dekimpe (Jeep) ; Date ...........: 2019/01/15 ; Modified .......: - ; Remarks ........: simplify use of MsgBox ; Example ........: Yes ;======================================================================================================================== Func _MB_Error($sMessage, $sTitle = "Error") MsgBox(BitOR($MB_SYSTEMMODAL, $MB_TOPMOST, $MB_ICONERROR, $MB_OK), $sTitle, $sMessage) EndFunc ;==>_MB_Error ; #FUNCTION# =========================================================================================================== ; Name ...........: _MB_Info ; Description ....: Display an information message ; Syntax .........: _MB_Info($sMessage, $sTitle = "Information") ; - ; Parameter(s) ...: ; $sMessage : Message to display ; $sTitle : title of the message box ; - ; Return value(s) : Success - ; Failure - ; - ; Versions .......: 1.0.0 ; Author(s) ......: Jean-Pol Dekimpe (Jeep) ; Date ...........: 2019/01/15 ; Modified .......: - ; Remarks ........: simplify use of MsgBox ; Example ........: Yes ;======================================================================================================================== Func _MB_Info($sMessage, $sTitle = "Information") MsgBox(BitOR($MB_SYSTEMMODAL, $MB_TOPMOST, $MB_ICONINFORMATION, $MB_OK), $sTitle, $sMessage) EndFunc ;==>_MB_Info ; #FUNCTION# =========================================================================================================== ; Name ...........: _MB_Warning ; Description ....: Display a warning message ; Syntax ........: _MB_Warning($sMessage, $sTitle = "Warning") ; - ; Parameter(s) ...: ; $sMessage : Message to display ; $sTitle : title of the message box ; - ; Return value(s) : Success - ; Failure - ; - ; Versions .......: 1.0.0 ; Author(s) ......: Jean-Pol Dekimpe (Jeep) ; Date ...........: 2019/01/15 ; Modified .......: - ; Remarks ........: simplify use of MsgBox ; Example ........: Yes ;======================================================================================================================== Func _MB_Warning($sMessage, $sTitle = "Warning") MsgBox(BitOR($MB_SYSTEMMODAL, $MB_TOPMOST, $MB_ICONWARNING, $MB_OK), $sTitle, $sMessage) EndFunc ;==>_MB_Warning ; #FUNCTION# =========================================================================================================== ; Name ...........: _MB_IsOK ; Description ....: Ask Yes or No for a given question ; Syntax .........: _MB_IsOK($sQuestion, $iButton = $MB_OKCANCEL, $sTitle = "Question") ; - ; Parameter(s) ...: ; $sQuestion : question to put ; $iButton : two buttons choice: $MB_OKCANCEL or $MB_YESNO or $MB_RETRYCANCEL ; constants in MsgBoxConstants.au3. ; $sTitle : title of the message box ; - ; Return value(s) : Success - True for Affirmative answer or False for Negative answer ; Failure - ; - ; Versions .......: 1.0.0 ; Author(s) ......: Jean-Pol Dekimpe (Jeep) ; Date ...........: 2019/01/15 ; Modified .......: - ; Remarks ........: simplify use of MsgBox ; Example ........: Yes ;======================================================================================================================== Func _MB_IsOK($sQuestion, $iButton = $MB_OKCANCEL, $sTitle = "Question") Local $iReply = MsgBox(BitOR($MB_SYSTEMMODAL, $MB_TOPMOST, $MB_ICONQUESTION, $iButton), $sTitle, $sQuestion) Local $bReturn = ($iReply = $IDOK Or $iReply = $IDYES Or $iReply = $IDRETRY) Return $bReturn EndFunc ;==>_MB_IsOK