131738 发表于 2010-8-12 20:14:28

官网 GUI 脚本,应该可以作为托盘提示使用,但汉化后显示失常,有兴趣的看看!!

本帖最后由 131738 于 2010-8-14 21:16 编辑

无任何包含文件,文件名:Toast_Example_Obfuscated.au3.au3

Toast 这个词词霸解释为 吐司、面包、祝酒;尽是吃的东西,真不知这个词是如何与这个脚本内容联系起来的!!!

继续往下看,超版 afan 以做了修改。Func _StringSize($sText, $iSize = Default, $iWeight = Default, $iAttrib = Default, $sName = Default, $iWidth = 0)
        Local $avSize_Info, $aRet, $iLine_Width = 0, $iLast_Word, $iWrap_Count
        Local $hLabel_Handle, $hFont, $hDC, $oFont, $tSize = DllStructCreate("int X;int Y")
        If Not IsString($sText) Then Return SetError(1, 1, 0)
        If Not IsNumber($iSize) And $iSize <> Default Then Return SetError(1, 2, 0)
        If Not IsInt($iWeight) And $iWeight <> Default Then Return SetError(1, 3, 0)
        If Not IsInt($iAttrib) And $iAttrib <> Default Then Return SetError(1, 4, 0)
        If Not IsString($sName) And $sName <> Default Then Return SetError(1, 5, 0)
        If Not IsNumber($iWidth) Then Return SetError(1, 6, 0)
        Local $hGUI = GUICreate("", 1200, 500, 10, 10)
        If $hGUI = 0 Then Return SetError(2, 0, 0)
        GUISetFont($iSize, $iWeight, $iAttrib, $sName)
        $avSize_Info = $sText
        If StringInStr($sText, @CRLF) = 0 Then StringRegExpReplace($sText, "[\x0a|\x0d]", @CRLF)
        Local $asLines = StringSplit($sText, @CRLF, 1)
        Local $hText_Label = GUICtrlCreateLabel($sText, 10, 10)
        Local $aiPos = ControlGetPos($hGUI, "", $hText_Label)
        GUISetState(@SW_HIDE)
        GUICtrlDelete($hText_Label)
        $avSize_Info = ($aiPos - 8) / $asLines
        $avSize_Info = $aiPos
        $avSize_Info = $aiPos - 4
        If $aiPos > $iWidth And $iWidth > 0 Then
                $avSize_Info = ""
                $avSize_Info = $iWidth
                Local $iLine_Count = 0
                For $j = 1 To $asLines
                        $hText_Label = GUICtrlCreateLabel($asLines[$j], 10, 10)
                        $aiPos = ControlGetPos($hGUI, "", $hText_Label)
                        GUICtrlDelete($hText_Label)
                        If $aiPos < $iWidth Then
                                $iLine_Count += 1
                                $avSize_Info &= $asLines[$j] & @CRLF
                        Else
                                $hText_Label = GUICtrlCreateLabel("", 0, 0)
                                $hLabel_Handle = ControlGetHandle($hGUI, "", $hText_Label)
                                $aRet = DllCall("User32.dll", "hwnd", "GetDC", "hwnd", $hLabel_Handle)
                                If @error Then _StringSize_Error(3, 1, $hLabel_Handle, 0, $hGUI)
                                $hDC = $aRet
                                $aRet = DllCall("user32.dll", "lparam", "SendMessage", "hwnd", $hLabel_Handle, "int", 0x0031, "wparam", 0, "lparam", 0)
                                If @error Then _StringSize_Error(3, 2, $hLabel_Handle, $hDC, $hGUI)
                                $hFont = $aRet
                                $aRet = DllCall("GDI32.dll", "hwnd", "SelectObject", "hwnd", $hDC, "hwnd", $hFont)
                                If @error Then _StringSize_Error(3, 3, $hLabel_Handle, $hDC, $hGUI)
                                $oFont = $aRet
                                If $oFont = 0 Then _StringSize_Error(3, 4, $hLabel_Handle, $hDC, $hGUI)
                                $iWrap_Count = 0
                                While 1
                                        $iLine_Width = 0
                                        $iLast_Word = 0
                                        For $i = 1 To StringLen($asLines[$j])
                                                If StringMid($asLines[$j], $i, 1) = " " Then $iLast_Word = $i - 1
                                                Local $sTest_Line = StringMid($asLines[$j], 1, $i)
                                                GUICtrlSetData($hText_Label, $sTest_Line)
                                                $iSize = StringLen($sTest_Line)
                                                DllCall("GDI32.dll", "int", "GetTextExtentPoint32", "hwnd", $hDC, "str", $sTest_Line, "int", $iSize, "ptr", DllStructGetPtr($tSize))
                                                If @error Then _StringSize_Error(3, 5, $hLabel_Handle, $hDC, $hGUI)
                                                $iLine_Width = DllStructGetData($tSize, "X")
                                                If $iLine_Width >= $iWidth - Int($iSize / 2) Then ExitLoop
                                        Next
                                        If $i > StringLen($asLines[$j]) Then
                                                $iWrap_Count += 1
                                                $avSize_Info &= $sTest_Line & @CRLF
                                                ExitLoop
                                        Else
                                                $iWrap_Count += 1
                                                If $iLast_Word = 0 Then
                                                        _StringSize_Error(4, 0, $hLabel_Handle, $hDC, $hGUI)
                                                EndIf
                                                $avSize_Info &= StringLeft($sTest_Line, $iLast_Word) & @CRLF
                                                $asLines[$j] = StringTrimLeft($asLines[$j], $iLast_Word)
                                                $asLines[$j] = StringStripWS($asLines[$j], 1)
                                        EndIf
                                WEnd
                                $iLine_Count += $iWrap_Count
                                DllCall("User32.dll", "int", "ReleaseDC", "hwnd", $hLabel_Handle, "hwnd", $hDC)
                                If @error Then _StringSize_Error(3, 6, $hLabel_Handle, $hDC, $hGUI)
                                GUICtrlDelete($hText_Label)
                        EndIf
                Next
                $avSize_Info = ($iLine_Count * $avSize_Info) + 4
        EndIf
        GUIDelete($hGUI)
        Return $avSize_Info
EndFunc   ;==>_StringSize
Func _StringSize_Error($iError, $iExtended, $hLabel_Handle, $hDC, $hGUI)
        DllCall("User32.dll", "int", "ReleaseDC", "hwnd", $hLabel_Handle, "hwnd", $hDC)
        GUIDelete($hGUI)
        Return SetError($iError, $iExtended, 0)
EndFunc   ;==>_StringSize_Error
Global $iDef_Toast_Font_Size = _Toast_GetDefFont(0)
Global $sDef_Toast_Font_Name = _Toast_GetDefFont(1)
Global $hToast_Handle = 0
Global $hToast_Close_X = 9999
Global $iToast_Move = 0
Global $iToast_Style = 1
Global $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 8)
Global $iToast_Header_BkCol = $aRet
$aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 5)
Global $iToast_Header_Col = $aRet
Global $iToast_Message_BkCol = $iToast_Header_Col
Global $iToast_Message_Col = $iToast_Header_BkCol
Global $iToast_Font_Size = $iDef_Toast_Font_Size
Global $sToast_Font_Name = $sDef_Toast_Font_Name
Global $iToast_Timer = 0
Global $iToast_Start = 0
Global $fToast_Close = False
Func _Toast_Set($vJust, $iHdr_BkCol = -1, $iHdr_Col = -1, $iMsg_BkCol = -1, $iMsg_Col = -1, $iFont_Size = -1, $sFont_Name = "")
        Switch $vJust
                Case Default
                        $iToast_Style = 1
                        $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 8)
                        $iToast_Header_BkCol = $aRet
                        $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 5)
                        $iToast_Header_Col = $aRet
                        $iToast_Message_BkCol = $iToast_Header_Col
                        $iToast_Message_Col = $iToast_Header_BkCol
                        $sToast_Font_Name = $sDef_Toast_Font_Name
                        $iToast_Font_Size = $iDef_Toast_Font_Size
                        Return
                Case 0, 1, 2, 4, 5, 6
                        $iToast_Style = $vJust
                Case -1
                Case Else
                        Return SetError(1, 1, 0)
        EndSwitch
        Switch $iHdr_BkCol
                Case Default
                        $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 8)
                        $iToast_Header_BkCol = $aRet
                Case 0 To 0xFFFFFF
                        $iToast_Header_BkCol = Int($iHdr_BkCol)
                Case -1
                Case Else
                        Return SetError(1, 2, 0)
        EndSwitch
        Switch $iHdr_Col
                Case Default
                        $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 5)
                        $iToast_Header_Col = $aRet
                Case 0 To 0xFFFFFF
                        $iToast_Header_Col = Int($iHdr_Col)
                Case -1
                Case Else
                        Return SetError(1, 3, 0)
        EndSwitch
        Switch $iMsg_BkCol
                Case Default
                        $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 8)
                        $iToast_Message_BkCol = $aRet
                Case 0 To 0xFFFFFF
                        $iToast_Message_BkCol = Int($iMsg_BkCol)
                Case -1
                Case Else
                        Return SetError(1, 4, 0)
        EndSwitch
        Switch $iMsg_Col
                Case Default
                        $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 8)
                        $iToast_Message_Col = $aRet
                Case 0 To 0xFFFFFF
                        $iToast_Message_Col = Int($iMsg_Col)
                Case -1
                Case Else
                        Return SetError(1, 5, 0)
        EndSwitch
        Switch $iFont_Size
                Case Default
                        $iToast_Font_Size = $iDef_Toast_Font_Size
                Case 8 To 72
                        $iToast_Font_Size = Int($iFont_Size)
                Case -1
                Case Else
                        Return SetError(1, 6, 0)
        EndSwitch
        Switch $sFont_Name
                Case Default
                        $sToast_Font_Name = $sDef_Toast_Font_Name
                Case ""
                Case Else
                        If IsString($sFont_Name) Then
                                $sToast_Font_Name = $sFont_Name
                        Else
                                Return SetError(1, 7, 0)
                        EndIf
        EndSwitch
        Return 1
EndFunc   ;==>_Toast_Set
Func _Toast_Show($sTitle, $sMessage, $iDelay = 0, $fWait = True)
        Local $nOldOpt = Opt('GUIOnEventMode', 0)
        If $hToast_Handle <> 0 Then _Toast_Hide()
        $hToast_Close_X = 9999
        Local $iToast_Width_max = 500
        Local $iToast_Width_min = 150
        Local $aLabel_Pos = _StringSize($sMessage, $iToast_Font_Size, Default, Default, $sToast_Font_Name, $iToast_Width_max - 20)
        $sMessage = $aLabel_Pos
        Local $iLine_Height = $aLabel_Pos
        Local $iLabelwidth = $aLabel_Pos
        Local $iLabelheight = $aLabel_Pos
        Local $iToast_Width = $iLabelwidth + 20
        If $iToast_Width < $iToast_Width_min Then
                $iToast_Width = $iToast_Width_min
                $iLabelwidth = $iToast_Width_min - 20
        EndIf
        Local $iTitle_Height = 0
        If $sTitle = "" Then
                If $iDelay < 0 Then $iTitle_Height = 5
        Else
                $iTitle_Height = $iLine_Height + 2
                If $iDelay < 0 Then
                        If $iTitle_Height < 17 Then $iTitle_Height = 17
                EndIf
        EndIf
        Local $iToast_Height = $iLabelheight + $iTitle_Height + 20
        Local $aToast_Data = _Toast_Locate($iToast_Width, $iToast_Height)
        $hToast_Handle = GUICreate("", $iToast_Width, $iToast_Height, $aToast_Data, $aToast_Data, 0x80880000, BitOR(0x00000080, 0x00000008))
        If @error Then
                $nOldOpt = Opt('GUIOnEventMode', $nOldOpt)
                Return SetError(1, 0, -1)
        EndIf
        GUISetFont($iToast_Font_Size, Default, Default, $sToast_Font_Name)
        GUISetBkColor($iToast_Message_BkCol)
        Local $iLabel_Style = 0
        If BitAND($iToast_Style, 1) = 1 Then
                $iLabel_Style = 1
        ElseIf BitAND($iToast_Style, 2) = 2 Then
                $iLabel_Style = 2
        EndIf
        If $sTitle <> "" Then
                GUICtrlCreateLabel("", 0, 0, $iToast_Width, $iTitle_Height)
                GUICtrlSetBkColor(-1, $iToast_Header_BkCol)
                GUICtrlSetState(-1, 128)
                Local $iTitle_Width = $iToast_Width - 10
                If $iDelay < 0 Then
                        Local $iX_YCoord = Int(($iTitle_Height - 17) / 2)
                        $hToast_Close_X = GUICtrlCreateLabel("T", $iToast_Width - 18, $iX_YCoord, 17, 17)
                        GUICtrlSetFont(-1, 14, Default, Default, "Wingdings 2")
                        GUICtrlSetBkColor(-1, -2)
                        GUICtrlSetColor(-1, $iToast_Header_Col)
                        $iTitle_Width -= 18
                EndIf
                GUICtrlCreateLabel($sTitle, 10, 0, $iTitle_Width, $iTitle_Height, 0x0200)
                GUICtrlSetBkColor(-1, $iToast_Header_BkCol)
                GUICtrlSetColor(-1, $iToast_Header_Col)
                If BitAND($iToast_Style, 4) = 4 Then GUICtrlSetFont(-1, $iToast_Font_Size, 600)
        Else
                If $iDelay < 0 Then
                        $hToast_Close_X = GUICtrlCreateLabel("T", $iToast_Width - 18, 0, 17, 17)
                        GUICtrlSetFont(-1, 14, Default, Default, "Wingdings 2")
                        GUICtrlSetBkColor(-1, -2)
                        GUICtrlSetColor(-1, $iToast_Message_Col)
                EndIf
        EndIf
        GUICtrlCreateLabel($sMessage, 10, 10 + $iTitle_Height, $iLabelwidth, $iLabelheight)
        GUICtrlSetStyle(-1, $iLabel_Style)
        If $iToast_Message_Col <> Default Then GUICtrlSetColor(-1, $iToast_Message_Col)
        DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hToast_Handle, "int", 1000, "long", $aToast_Data)
        GUISetState(@SW_SHOWNOACTIVATE, $hToast_Handle)
        If $fWait = True Then
                Local $iTimeout_Begin = TimerInit()
                While 1
                        If GUIGetMsg() = $hToast_Close_X Or TimerDiff($iTimeout_Begin) / 1000 >= Abs($iDelay) Then ExitLoop
                WEnd
        ElseIf Abs($iDelay) > 0 Then
                $iToast_Timer = Abs($iDelay * 1000)
                $iToast_Start = TimerInit()
                AdlibRegister("_Toast_Timer_Check", 100)
                GUIRegisterMsg(0x0021, "_Toast_WM_EVENTS")
        EndIf
        $nOldOpt = Opt('GUIOnEventMode', $nOldOpt)
        Local $aToast_Data = [$iToast_Width, $iToast_Height, $iLine_Height]
        Return $aToast_Data
EndFunc   ;==>_Toast_Show
Func _Toast_Hide()
        If $hToast_Handle = 0 Then Return SetError(1, 0, -1)
        DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hToast_Handle, "int", 500, "long", $iToast_Move)
        GUIDelete($hToast_Handle)
        $hToast_Handle = 0
EndFunc   ;==>_Toast_Hide
Func _Toast_Locate($iToast_Width, $iToast_Height)
        Local $aToast_Data
        Local $iPrevMode = Opt("WinTitleMatchMode", 4)
        Local $aTray_Pos = WinGetPos("")
        Opt("WinTitleMatchMode", $iPrevMode)
        If Not IsArray($aTray_Pos) Then Return SetError(2, 0, -1)
        If $aTray_Pos > 0 Then
                $iToast_Move = 0x00050004
                $aToast_Data = @DesktopWidth - $iToast_Width - 10
                $aToast_Data = $aTray_Pos - $iToast_Height
                $aToast_Data = 0x00040008
        ElseIf $aTray_Pos > 0 Then
                $iToast_Move = 0x00050001
                $aToast_Data = $aTray_Pos - $iToast_Width
                $aToast_Data = @DesktopHeight - $iToast_Height - 10
                $aToast_Data = 0x00040002
        ElseIf $aTray_Pos = @DesktopWidth Then
                $iToast_Move = 0x00050008
                $aToast_Data = @DesktopWidth - $iToast_Width - 10
                $aToast_Data = $aTray_Pos + $aTray_Pos
                $aToast_Data = 0x00040004
        ElseIf $aTray_Pos = @DesktopHeight Then
                $iToast_Move = 0x00050002
                $aToast_Data = $aTray_Pos + $aTray_Pos
                $aToast_Data = @DesktopHeight - $iToast_Height - 10
                $aToast_Data = 0x00040001
        EndIf
        Return $aToast_Data
EndFunc   ;==>_Toast_Locate
Func _Toast_Timer_Check()
        If TimerDiff($iToast_Start) < $iToast_Timer And $fToast_Close = False Then Return
        GUIRegisterMsg(0x0021, "")
        AdlibUnRegister("_Toast_Timer_Check")
        $fToast_Close = False
        _Toast_Hide()
EndFunc   ;==>_Toast_Timer_Check
Func _Toast_WM_EVENTS($hWnd, $Msg, $wParam, $lParam)
        #forceref $wParam, $lParam
        If $hWnd = $hToast_Handle Then
                If $Msg = 0x0021 Then
                        Local $aPos = GUIGetCursorInfo($hToast_Handle)
                        If $aPos = $hToast_Close_X Then $fToast_Close = True
                EndIf
        EndIf
        Return 'GUI_RUNDEFMSG'
EndFunc   ;==>_Toast_WM_EVENTS
Func _Toast_GetDefFont($iData)
        Local $tNONCLIENTMETRICS = DllStructCreate("uint;int;int;int;int;int;byte;int;int;byte;int;int;byte;byte;byte")
        DllStructSetData($tNONCLIENTMETRICS, 1, DllStructGetSize($tNONCLIENTMETRICS))
        DllCall("user32.dll", "int", "SystemParametersInfo", "int", 41, "int", DllStructGetSize($tNONCLIENTMETRICS), "ptr", DllStructGetPtr($tNONCLIENTMETRICS), "int", 0)
        Local $tLOGFONT = DllStructCreate("long;long;long;long;long;byte;byte;byte;byte;byte;byte;byte;byte;char", DllStructGetPtr($tNONCLIENTMETRICS, 15))
        Switch $iData
                Case 0
                        Return Int((Abs(DllStructGetData($tLOGFONT, 1)) + 1) * .75)
                Case 1
                        Return DllStructGetData($tLOGFONT, 14)
        EndSwitch
EndFunc   ;==>_Toast_GetDefFont
Local $sMsg, $hProgress, $aRet
$sMsg = "The message text goes in this area" & @CRLF & @CRLF
$sMsg &= "This Toast uses the System colours and font"
$aRet = _Toast_Show("The Title text goes here", $sMsg, 5)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & " - " & "Line height: " & $aRet & @CRLF)
_Toast_Hide()
$sMsg = "This Toast uses colours and font defined in a _Toast_Set call." & @CRLF & @CRLF
$sMsg &= "Subsequent Toasts will use these values until they are reset by another _Toast_Set call" & @CRLF & @CRLF
$sMsg &= "The next Toast has a very small message to show the pre-set minimum size"
_Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10, "Arial")
$aRet = _Toast_Show("User-defined Colours and Bold Header", $sMsg, 10)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & " - " & "Line height: " & $aRet & @CRLF)
_Toast_Hide()
$aRet = _Toast_Show("", "Tiny", 2)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & " - " & "Line height: " & $aRet & @CRLF)
_Toast_Hide()
$sMsg = "These lines are of medium length" & @CRLF & @CRLF
$sMsg &= "The width is set by the longest" & @CRLF & @CRLF
$sMsg &= "No wrapping occurs here" & @CRLF & @CRLF
$sMsg &= "Note increased font size"
_Toast_Set(-1, -1, -1, -1, -1, 15)
$aRet = _Toast_Show("Mid Width", $sMsg, 5)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & " - " & "Line height: " & $aRet & @CRLF)
_Toast_Hide()
$sMsg = "This is a long message set to left justified and a much larger font using _Toast_Set" & @CRLF & @CRLF
$sMsg &= "The Toast is automatically set to the maximum preset width and the message text "
$sMsg &= "is wrapped as necessary to fit within the margins of the Toast" & @CRLF & @CRLF
$sMsg &= "The Toast colours and weight have been changed by another _Toast_Set call" & @CRLF & @CRLF
$sMsg &= "Note the closure on the title bar.This Toast will time out in 30 secs "
$sMsg &= "but clicking the will resume the script immediately"
_Toast_Set(0, -1, 0xFFFF00, 0x00FF00, 0x000000, 15, "Courier New")
$aRet = _Toast_Show("Max Width and Normal Header", $sMsg, -30)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & " - " & "Line height: " & $aRet & @CRLF)
_Toast_Hide()
$sMsg = "Note how Toasts adjust automatically in height to display all of the message "
$sMsg &= "regardless of whether there is a title bar to display, the font used, "
$sMsg &= "the number of lines or whether wrapping occurs" & @CRLF & @CRLF
$sMsg &= "This Toast will retract automatically when the next Toast is called "
$sMsg &= "or when the is clicked"
_Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10, "Arial")
$aRet = _Toast_Show("", $sMsg, -10)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & " - " & "Line height: " & $aRet & @CRLF)
$sMsg = "This Toast has several blank lines inserted. "
$sMsg &= "This can be useful if you want to leave space to add other controls, "
$sMsg &= "such as a progress bar, to the Toast once it is displayed" & @CRLF & @CRLF & @CRLF & @CRLF
$sMsg &= "The Toast size and line height are returned by the function so you can easily calculate "
$sMsg &= "where to place the other controls."
$sMsg &= "This example script writes the size in the SciTE console" & @CRLF & @CRLF
$sMsg &= "Note that Toast colours and font have been reset to Default"
_Toast_Set(Default)
$aRet = _Toast_Show("Progress Bar", $sMsg, 0)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & " - " & "Line height: " & $aRet & @CRLF)
$hProgress = GUICtrlCreateProgress(10, $aRet * 5.5, $aRet - 20, 20)
For $i = 1 To 100
        GUICtrlSetData($hProgress, $i)
        Sleep(50)
Next
Sleep(5000)
_Toast_Hide()
$sMsg = "This Toast has the 'Wait' flag set to False. " & @CRLF & @CRLF
$sMsg &= "That means that the script will continue while the Toast is displayed as "
$sMsg &= "as you can see from this counter." & @CRLF & @CRLF & @CRLF
$sMsg &= "Clicking the will retract the Toast immediately but it will "
$sMsg &= "automatically retract after 20 seconds in any event"
_Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10)
$aRet = _Toast_Show("Script Continuing", $sMsg, -20, False)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & " - " & "Line height: " & $aRet & @CRLF)
$hLabel = GUICtrlCreateLabel("", ($aRet - 20) / 2, $aRet * 6, 20, 20)
GUICtrlSetBkColor(-1, -2)
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetFont(-1, 12)
$iCount = 0
Do
        $iCount += 1
        GUICtrlSetData($hLabel, $iCount)
        Sleep(1000)
Until $iCount = 60 Or $hToast_Handle = 0
Exit已汉化部分:# ************************************* 第一界面 size: 286 x 74 - Line height: 12        160 x 74 - 行高: 12
$sMsg = "信息本文在这个区域" & @CRLF & @CRLF
$sMsg &= "界面使用系统颜色和字型"
$aRet = _Toast_Show("这里是窗口标题", $sMsg, 5)
ConsoleWrite("界面尺寸: " & $aRet & " x " & $aRet & " - " & "行高: " & $aRet & @CRLF)
_Toast_Hide()

# ************************************* 第二界面 size: 500 x 138 - Line height: 16        486 x 122 - 行高: 16
$sMsg = "这个界面是调用 _Toast_Set 定义的颜色和字型." & @CRLF & @CRLF
$sMsg &= "后来界面将使用这些数值,直到调用另外一个 _Toast_Set 重新设定" & @CRLF & @CRLF
$sMsg &= "下一界面有一个非常小的信息表示前固定的最小尺寸"
_Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10, "Arial")
$aRet = _Toast_Show("自定义颜色和粗体表头", $sMsg, 10)
ConsoleWrite("界面尺寸: " & $aRet & " x " & $aRet & " - " & "行高: " & $aRet & @CRLF)
_Toast_Hide()

# ************************************* 第三界面 size: 150 x 40 - Line height: 16        150 x 40 - 行高: 16
$aRet = _Toast_Show("", "小界面", 2)
ConsoleWrite("界面尺寸: " & $aRet & " x " & $aRet & " - " & "行高: " & $aRet & @CRLF)
_Toast_Hide()

# ************************************* 第四界面 size: 317 x 210 - Line height: 23        268 x 210 - 行高: 23
$sMsg = "这些行有不同的长度的" & @CRLF & @CRLF
$sMsg &= "宽度按照最长的文本行设定" & @CRLF & @CRLF
$sMsg &= "没有发生环绕" & @CRLF & @CRLF
$sMsg &= "注意增加的字型大小"
_Toast_Set(-1, -1, -1, -1, -1, 15)
$aRet = _Toast_Show("Mid Width", $sMsg, 5)
ConsoleWrite("界面尺寸: " & $aRet & " x " & $aRet & " - " & "行高: " & $aRet & @CRLF)
_Toast_Hide()

# ************************************* 第五界面 size: 500 x 400 - Line height: 22        500 x 224 - 行高: 22
$sMsg = "这是 _Toast_Set 设置的长文本信息,文本使用左对齐和大字体" & @CRLF & @CRLF
$sMsg &= "界面自动设定为预设的最大宽度和消息文本 "
$sMsg &= "是必要的,以适应包装内的界面边缘" & @CRLF & @CRLF
$sMsg &= "调用另一个 _Toast_Set 改变界面的颜色和深浅" & @CRLF & @CRLF
$sMsg &= "请注意在标题栏中的关闭 符号。这个界面将持续 30 秒时间 "
$sMsg &= "但点击 脚本将立即继续下面的操作"
_Toast_Set(0, -1, 0xFFFF00, 0x00FF00, 0x000000, 15, "Courier New")
$aRet = _Toast_Show("最大宽度与正常头", $sMsg, -30)
ConsoleWrite("界面尺寸: " & $aRet & " x " & $aRet & " - " & "行高: " & $aRet & @CRLF)
_Toast_Hide()

# ************************************* 第六界面 size: 500 x 125 - Line height: 16        500 x 77 - 行高: 16
$sMsg = "注意界面如何自动调整高度,以显示全部消息 "
$sMsg &= "不论是否有标题栏显示, 使用的字体, "
$sMsg &= "行数或是否出现环绕" & @CRLF & @CRLF
$sMsg &= "当调用下一个界面时,这个界面将自动缩回"
$sMsg &= "或点击 按钮时"
_Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10, "Arial")
$aRet = _Toast_Show("", $sMsg, -10)
ConsoleWrite("界面尺寸: " & $aRet & " x " & $aRet & " - " & "行高: " & $aRet & @CRLF)

# ************************************* 第七界面 size: 500 x 170 - Line height: 12        500 x 170 - 行高: 12
$sMsg = "这个界面插入了几个空白行. "
$sMsg &= "这是必要的,预留空间以方便你添加一些控件,"
$sMsg &= "例如一个进度条。 一旦界面显示" & @CRLF & @CRLF & @CRLF & @CRLF
$sMsg &= "由函数返回的界面大小和行的高度, 你就可以很容易地计算出"; & @CRLF
$sMsg &= "在什么地方放置其他控件."
$sMsg &= "这个示例脚本将界面尺寸大小写入 SciTE 的控制台" & @CRLF & @CRLF
$sMsg &= "请注意,界面的颜色和字体都被重置为默认值"
_Toast_Set(Default)
$aRet = _Toast_Show("Progress Bar", $sMsg, 0)
ConsoleWrite("界面尺寸: " & $aRet & " x " & $aRet & " - " & "行高: " & $aRet & @CRLF)
$hProgress = GUICtrlCreateProgress(10, $aRet * 5.5, $aRet - 20, 20)
For $i = 1 To 100
        GUICtrlSetData($hProgress, $i)
        Sleep(50)
Next
Sleep(5000)
_Toast_Hide()

# ************************************* 第八界面 size: 500 x 145 - Line height: 13        500 x 119 - 行高: 13
$sMsg = "这个界面的 'Wait' 等待标志参数值被设为 False. " & @CRLF & @CRLF
$sMsg &= "脚本在计时设定的时间内会连续显示这个界面,在计时装置完成之前, "
$sMsg &= "你可以观察到计数装置从 1 增到 20." & @CRLF & @CRLF & @CRLF                  
$sMsg &= "计时装置完成前,单击 符号按钮,界面将立即关闭 "
$sMsg &= "但无论怎样,20 秒计时完成之后,界面会自动关闭的"
_Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 12)
$aRet = _Toast_Show("脚本连续显示界面", $sMsg, -20, False)
ConsoleWrite("界面尺寸: " & $aRet & " x " & $aRet & " - " & "行高: " & $aRet & @CRLF)
$hLabel = GUICtrlCreateLabel("", ($aRet - 20) / 2, $aRet * 6, 20, 20)
GUICtrlSetBkColor(-1, -2)
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetFont(-1, 12)
$iCount = 0
Do
        $iCount += 1
        GUICtrlSetData($hLabel, $iCount)
        Sleep(1000)
Until $iCount = 60 Or $hToast_Handle = 0
Exit

afan 发表于 2010-8-12 20:17:12

很简约,漂亮啊~~

131738 发表于 2010-8-12 20:21:46

回复 2# afan

能找到汉化异常的原因吗?

afan 发表于 2010-8-12 21:00:10

回复 3# 131738


    初步认为他没有考虑双字节的情况,造成获取字符串的宽度有问题,继而造成高度的不足。
代码太长了,没时间研究哦…

简单解决方法: 在$sMsg最后补适量的 & @CRLF 即可,如:
========第六界面=========
最后的 $sMsg &= "或点击 按钮时" & @CRLF

========第八界面=========
最后的 $sMsg &= "但无论怎样,20 秒计时完成之后,界面会自动关闭的" & @CRLF & @CRLF

131738 发表于 2010-8-12 21:17:16

回复 4# afan

谢谢!!!!受教了。。。

另,谢谢加分。。。打扰了。。。。

afan 发表于 2010-8-13 18:20:11

忘了很重要的一点,字母语言环境和方块文字环境断行的方式是不同的。
字母语言环境会以单词和空格的方式来判断,且Label不会自动调整换行显示,如果强制在范围内显示它会裁剪字符,使部分字符不会显示,因此,此脚本是用的将超出长度的字符串另外组织成另外的行,以保证每行文字都能完整显示。而这样每行的字符串长度相差可能都很大,所以它很多情况下都使用了水平居中显示的样式(8个例子中有7个是如此),以免居左显示时,右边会参差不齐,影响美观。
而方块文字环境则无此困扰,超过水平范围会自动换行,只要Label控件足够高则可完全显示。此脚本是针对字母语言环境的,所以它调整起来非常繁琐,如果按我们的文字习惯会简单很多,当然也就无法满足字母环境了。

afan 发表于 2010-8-13 18:25:57

回复afan

其实这个脚本有点意思的, 创建窗口宽度为 1200, 够大的了

但实际并没有显示出这么大的窗口,而是根据字符串的多少,来确定显示窗口的大小,

你的“认为他没有考虑双字节的情况,造成获取字符串的宽度有问题,继而造成高度的不足”判断肯定是正确的

发的代码中,有进度条的窗口我没有汉化,结果汉化后,显示进度条压住了紧随进度条下方的文本,

这就不是添加 @CRLF 能解决的,摸索半天,用空格充足源代码的字节数,这才使进度条不压文本了,

但文本显示就不整齐了,创建进度条,位置参数使用的是变量,且变量又不是常数,我再好好看看它是如何计算的。。。。。

GUICtrlCreateProgress(10, $aRet * 5.5, $aRet - 20, 20)
131738 发表于 2010-8-13 01:09 http://www.autoitx.com/images/common/back.gif

    在自动生成的界面中再添加控件,比如第七界面的进度条、第八界面的计时Label,其实并无自动的需求,它完全是根据已经规定的$sMsg字符串来定的,并非自动调整,比如原$sMsg英文字符串,你删除下面的行,仅保留两行,同样不会显示进度条。所以,这个是需要自行调整数值的,就像写Gui界面一样。比如我把进度条用在下面,同样可以#************************************* 第八界面 size: 500 x 145 - Line height: 13      500 x 119 - 行高: 13
$sMsg = "这个界面的 'Wait' 等待标志参数值被设为 False. " & @CRLF & @CRLF
$sMsg &= "脚本在计时设定的时间内会连续显示这个界面,在计时装置完成之前, "
$sMsg &= "你可以观察到计数装置从 1 增到 20." & @CRLF & @CRLF & @CRLF & @CRLF               
$sMsg &= "计时装置完成前,单击 符号按钮,界面将立即关闭 "
$sMsg &= "但无论怎样,20 秒计时完成之后,界面会自动关闭的" & @CRLF & @CRLF
_Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 12)
$aRet = _Toast_Show("脚本连续显示界面", $sMsg, -20, False)
ConsoleWrite("界面尺寸: " & $aRet & " x " & $aRet & " - " & "行高: " & $aRet & @CRLF)
$hLabel = GUICtrlCreateLabel("", ($aRet - 20) / 2, $aRet * 6, 20, 20)
GUICtrlSetBkColor(-1, -2)
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetFont(-1, 12)
$iCount = 0
$hProgress = GUICtrlCreateProgress(10, 135, 480, 20)
Do
      $iCount += 1
      GUICtrlSetData($hLabel, $iCount)
      GUICtrlSetData($hProgress, $iCount / 20 * 100)
      Sleep(1000)
Until $hToast_Handle = 0
Exit

afan 发表于 2010-8-13 18:31:53

修改了半天此脚本,终于要搞定了

131738 发表于 2010-8-13 19:15:58

修改了半天此脚本,终于要搞定了
afan 发表于 2010-8-13 18:31 http://www.autoitx.com/images/common/back.gif

等待看你的修改结果,然后对照源码学习你的技巧!!!

131738 发表于 2010-8-14 00:04:40

本帖最后由 131738 于 2010-8-14 20:09 编辑

回复 8# afan

又搜到一套脚本,是 1 楼脚本的改良,包含文件独立在外,且有参数描述发布于今年7月初:

http://www.autoitscript.com/forum/index.php?showtopic=108445&st=0&p=764115&hl=Toastzip&fromsearch=1&#entry764115

作者曾经帮助过这里写电脑硬件测温工具的那位网友

包含文件:Toast.au3#include-once

; #INDEX# ============================================================================================================
; Title .........: Toast
; AutoIt Version : 3.3.2.0 - uses AdlibRegister/Unregister
; Language ......: English
; Description ...: Show and hides slice messages from the systray in user defined colours and fonts
; Author(s) .....: Melba23.Credit to GioVit (tray location)
; ====================================================================================================================

;#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

; #INCLUDES# =========================================================================================================
#include "StringSize.au3"

; #GLOBAL VARIABLES# =================================================================================================
Global $iDef_Toast_Font_Size   = _Toast_GetDefFont(0)
Global $sDef_Toast_Font_Name   = _Toast_GetDefFont(1)

Global $hToast_Handle      = 0
Global $hToast_Close_X       = 9999
Global $iToast_Move          = 0
Global $iToast_Style         = 1 ; $SS_CENTER
Global $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 8) ; $COLOR_WINDOWTEXT = 8
Global $iToast_Header_BkCol= $aRet
$aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 5) ; $COLOR_WINDOW = 5
Global $iToast_Header_Col    = $aRet
Global $iToast_Header_Bold   = 0
Global $iToast_Message_BkCol = $iToast_Header_Col
Global $iToast_Message_Col   = $iToast_Header_BkCol
Global $iToast_Font_Size   = $iDef_Toast_Font_Size
Global $sToast_Font_Name   = $sDef_Toast_Font_Name
Global $iToast_Timer         = 0
Global $iToast_Start         = 0
Global $fToast_Close         = False

; #CURRENT# ==========================================================================================================
; _Toast_Set:Sets text justification and optionally colours and font, for _Toast_Show function calls
; _Toast_Show: Shows a slice message from the systray
; _Toast_Hide: Hides a slice message from the systray
; ====================================================================================================================

; #INTERNAL_USE_ONLY#=================================================================================================
; _Toast_Locate:      Find Systray and determine Toast start position and movement direction
; _Toast_Timer_Check:   Checks whether Toast has timed out or closure clicked
; _Toast_WM_EVENTS:   Message handler to check if closure clicked
; _Toast_GetDefFont: Determine system default MsgBox font and size
; ====================================================================================================================

; #FUNCTION# =========================================================================================================
; Name...........: _Toast_Set
; Description ...: Sets text justification and optionally colours and font, for _Toast_Show function calls
; Syntax.........: _Toast_Set($vJust, [$iHdr_BkCol, [$iHdr_Col, [$iMsg_BkCol, [$iMsg_Col, [$sFont_Size, [$iFont_Name]]]]]])
; Parameters ....: $vJust   - 0 = Left justified, 1 = Centred (Default), 2 = Right justified
;                              Can use $SS_LEFT, $SS_CENTER, $SS_RIGHT
;                              + 4 = Header text in bold
;                     >>>>>    Setting this parameter to' Default' will reset ALL parameters to default values   <<<<<
;                     >>>>>    All optional parameters default to system MsgBox default values                     <<<<<
;                  $iHdr_BkCol - The colour for the title bar background
;                  $iHdr_Col   - The colour for the title bar text
;                  $iMsg_BkCol - The colour for the message background
;                  $iMsg_Col   - The colour for the message text
;                              Omitting a colour parameter or setting it to -1 leaves it unchanged
;                              Setting a colour parameter to Default resets the system colour
;                  $iFont_Size - The font size in points to use for the Toast
;                  $sFont_Name - The font to use for the Toast
;                     >>>>>    Omitting a font parameter, setting size to -1 or name to "" leaves it unchanged   <<<<<
;                     >>>>>    Setting a font parameter to Default resets the system message box font or size      <<<<<
; Requirement(s).: v3.3.2.0 or higher - AdlibRegister/Unregister used in _Toast_Show
; Return values .: Success - Returns 1
;                  Failure - Returns 0 and sets @error to 1 with @extended set to parameter index number
; Author ........: Melba23
; Example........; Yes
;=====================================================================================================================

Func _Toast_Set($vJust, $iHdr_BkCol = -1, $iHdr_Col = -1, $iMsg_BkCol = -1, $iMsg_Col = -1, $iFont_Size = -1, $sFont_Name = "")

        ; Set parameters
        Switch $vJust
                Case Default
                        $iToast_Style         = 1; $SS_CENTER
                        $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 8) ; $COLOR_WINDOWTEXT = 8
                        $iToast_Header_BkCol= $aRet
                        $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 5) ; $COLOR_WINDOW = 5
                        $iToast_Header_Col    = $aRet
                        $iToast_Message_BkCol = $iToast_Header_Col
                        $iToast_Message_Col   = $iToast_Header_BkCol
                        $sToast_Font_Name   = $sDef_Toast_Font_Name
                        $iToast_Font_Size   = $iDef_Toast_Font_Size
                        Return
                Case 0, 1, 2, 4, 5, 6
                        $iToast_Style = $vJust
                Case -1
                        ; Do nothing
                Case Else
                        Return SetError(1, 1, 0)
        EndSwitch

        Switch $iHdr_BkCol
                Case Default
                        $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 8) ; $COLOR_WINDOWTEXT = 8
                        $iToast_Header_BkCol= $aRet
                Case 0 To 0xFFFFFF
                        $iToast_Header_BkCol = Int($iHdr_BkCol)
      Case -1
                        ; Do nothing
                Case Else
                        Return SetError(1, 2, 0)
        EndSwitch

        Switch $iHdr_Col
                Case Default
                        $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 5) ; $COLOR_WINDOW = 5
                        $iToast_Header_Col= $aRet
                Case 0 To 0xFFFFFF
                        $iToast_Header_Col = Int($iHdr_Col)
      Case -1
                        ; Do nothing
                Case Else
                        Return SetError(1, 3, 0)
        EndSwitch

        Switch $iMsg_BkCol
                Case Default
                        $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 8) ; $COLOR_WINDOWTEXT = 8
                        $iToast_Message_BkCol= $aRet
                Case 0 To 0xFFFFFF
                        $iToast_Message_BkCol = Int($iMsg_BkCol)
      Case -1
                        ; Do nothing
                Case Else
                        Return SetError(1, 4, 0)
        EndSwitch

        Switch $iMsg_Col
                Case Default
                        $aRet = DllCall("User32.dll", "int", "GetSysColor", "int", 8) ; $COLOR_WINDOWTEXT = 8
                        $iToast_Message_Col= $aRet
                Case 0 To 0xFFFFFF
                        $iToast_Message_Col = Int($iMsg_Col)
      Case -1
                        ; Do nothing
                Case Else
                        Return SetError(1, 5, 0)
        EndSwitch

        Switch $iFont_Size
                Case Default
                        $iToast_Font_Size = $iDef_Toast_Font_Size
                Case 8 To 72
                        $iToast_Font_Size = Int($iFont_Size)
      Case -1
                        ; Do nothing
                Case Else
                        Return SetError(1, 6, 0)
        EndSwitch

        Switch $sFont_Name
                Case Default
                        $sToast_Font_Name = $sDef_Toast_Font_Name
                Case ""
                        ; Do nothing
                Case Else
                        If IsString($sFont_Name) Then
                                $sToast_Font_Name = $sFont_Name
                        Else
                                Return SetError(1, 7, 0)
                        EndIf
        EndSwitch

        Return 1

EndFunc ; => _Toast_Set

; #FUNCTION# =========================================================================================================
; Name...........: _Toast_Show
; Description ...: Shows a slice message from the systray
; Syntax.........: _Toast_Show($vIcon, $sTitle, $sMessage, [$iDelay [, $fWait [, $fRaw]]])
; Parameters ....: $vIcon    - 0 - No icon, 8 - UAC, 16 - Stop, 32 - Query, 48 - Exclamation, 64 - Information
;                              The $MB_ICON constant can also be used for the last 4 above
;                              If set to the name of an exe, the main icon of that exe will be displayed
;                              Any other value returns -1, error 1
;                  $sTitle   - Text to display on Title bar
;                  $sMessage - Text to display in Toast body
;                  $iDelay   - The delay in seconds before the Toast retracts or script continues (Default = 0)
;                              If negative, an is added to the title bar. Clicking retracts/continues immediately
;                  $fWait    - True- Script waits for delay time before continuing and Toast remains visible
;                              False - Script continues and Toast retracts automatically after delay time
;                  $fRaw   - True- Message is not wrapped and Toast expands to show full width
;                            - False - Message is wrapped if over max preset Toast width
; Requirement(s).: v3.3.1.5 or higher - AdlibRegister/Unregister used in _Toast_Show
; Return values .: Success: Returns 2-element array:
;                  Failure:        Returns -1 and sets @error as follows:
;                           1 = Toast GUI creation failed
;                           2 = Taskbar not found
;                           4 = When using Raw, the Toast is too wide for the display
;                           3 = StringSize error
; Author ........: Melba23, based on some original code by GioVit for the Toast
; Notes .........; Any visible Toast is retracted by a subsequent _Toast_Hide or _Toast_Show, or clicking a visible
; Example........; Yes
;=====================================================================================================================

Func _Toast_Show($vIcon, $sTitle, $sMessage, $iDelay = 0, $fWait = True, $fRaw = False)

        ; Store current GUI mode and set Message mode
        Local $nOldOpt = Opt('GUIOnEventMode', 0)

        ; Retract any Toast already in place
        If $hToast_Handle <> 0 Then _Toast_Hide()

        ; Reset non-reacting Close ControlID
        $hToast_Close_X = 9999

        ; Set default auto-sizing Toast widths
        Local $iToast_Width_max = 500
        Local $iToast_Width_min = 150

        ; Check for icon
        Local $iIcon_Style = 0
        Local $iIcon_Reduction = 50
        Local $sDLL = "user32.dll"
        If StringIsDigit($vIcon) Then
                Switch $vIcon
                        Case 0
                                $iIcon_Reduction = 0
                        Case 8
                                $sDLL = "imageres.dll"
                                $iIcon_Style = 78
                        Case 16 ; Stop
                                $iIcon_Style = -4
                        Case 32 ; Query
                                $iIcon_Style = -3
                        Case 48 ; Exclam
                                $iIcon_Style = -2
                        Case 64 ; Info
                                $iIcon_Style = -5
                        Case Else
                                $nOldOpt = Opt('GUIOnEventMode', $nOldOpt)
                                Return SetError(1, 0, -1)
                EndSwitch
        Else
                $sDLL = $vIcon
                $iIcon_Style = 0
        EndIf

        ; Determine max message width
        Local $iMax_Label_Width = $iToast_Width_max - 20 - $iIcon_Reduction
        If $fRaw = True Then $iMax_Label_Width = 0

        ; Get message label size
        Local $aLabel_Pos = _StringSize($sMessage, $iToast_Font_Size, Default, Default, $sToast_Font_Name, $iMax_Label_Width)
        If @error Then
                $nOldOpt = Opt('GUIOnEventMode', $nOldOpt)
                Return SetError(3, 0, -1)
        EndIf

        ; Reset text to match rectangle
        $sMessage = $aLabel_Pos

        ;Set line height for this font
        Local $iLine_Height = $aLabel_Pos

        ; Set label size
        Local $iLabelwidth= $aLabel_Pos
        Local $iLabelheight = $aLabel_Pos

        ; Set Toast size
        Local $iToast_Width = $iLabelwidth + 20 + $iIcon_Reduction
        ; Check if Toast will fit on screen
        If $iToast_Width > @DesktopWidth - 20 Then
                $nOldOpt = Opt('GUIOnEventMode', $nOldOpt)
                Return SetError(4, 0, -1)
        EndIf
        ; Increase if below min size
        If $iToast_Width < $iToast_Width_min + $iIcon_Reduction Then
                $iToast_Width = $iToast_Width_min + $iIcon_Reduction
                $iLabelwidth= $iToast_Width_min - 20
        EndIf

        ; Set title bar height - with minimum for
        Local $iTitle_Height = 0
        If $sTitle = "" Then
                If $iDelay < 0 Then $iTitle_Height = 6
        Else
                $iTitle_Height = $iLine_Height + 2
                If $iDelay < 0 Then
                        If $iTitle_Height < 17 Then $iTitle_Height = 17
                EndIf
        EndIf

        ; Set Toast height as label height + title bar + bottom margin
        Local $iToast_Height = $iLabelheight + $iTitle_Height + 20
        ; Ensure enough room for icon if displayed
        If $iIcon_Reduction Then
                If $iToast_Height < $iTitle_Height + 42 Then $iToast_Height = $iTitle_Height + 47
        EndIf

        ; Get Toast starting position and direction
        Local $aToast_Data = _Toast_Locate($iToast_Width, $iToast_Height)

        ; Create Toast slice with $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW style and $WS_EX_TOPMOST extended style
        $hToast_Handle = GUICreate("", $iToast_Width, $iToast_Height, $aToast_Data, $aToast_Data, 0x80880000, BitOr(0x00000080, 0x00000008))
        If @error Then
                $nOldOpt = Opt('GUIOnEventMode', $nOldOpt)
                Return SetError(1, 0, -1)
        EndIf
                GUISetFont($iToast_Font_Size, Default, Default, $sToast_Font_Name)
                GUISetBkColor($iToast_Message_BkCol)

        ; Set centring parameter
        Local $iLabel_Style = 0 ; $SS_LEFT
        If BitAND($iToast_Style, 1) = 1 Then
                $iLabel_Style = 1 ; $SS_CENTER
        ElseIf BitAND($iToast_Style, 2) = 2 Then
                $iLabel_Style = 2 ; $SS_RIGHT
        EndIf

        ; Check installed fonts
        Local $sX_Font = "WingDings"
        Local $sX_Char = "x"
        Local $i = 1
        While 1
                Local $sInstalled_Font = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", $i)
                If @error Then ExitLoop
                If StringInStr($sInstalled_Font, "WingDings 2") Then
                        $sX_Font = "WingDings 2"
                        $sX_Char = "T"
                EndIf
                $i += 1
        WEnd

        ; Create title bar if required
        If $sTitle <> "" Then

                ; Create disabled background strip
                GUICtrlCreateLabel("", 0, 0, $iToast_Width, $iTitle_Height)
                        GUICtrlSetBkColor(-1, $iToast_Header_BkCol)
                        GUICtrlSetState(-1, 128) ; $GUI_DISABLE

                ; Set title bar width to offset text
                Local $iTitle_Width = $iToast_Width - 10

                ; Create closure if needed
                If $iDelay < 0 Then
                        ; Create
                        Local $iX_YCoord = Int(($iTitle_Height - 17) / 2)
                        $hToast_Close_X = GUICtrlCreateLabel($sX_Char, $iToast_Width - 18, $iX_YCoord, 17, 17)
                                GUICtrlSetFont(-1, 14, Default, Default, $sX_Font)
                                GUICtrlSetBkColor(-1, -2) ; $GUI_BKCOLOR_TRANSPARENT
                                GUICtrlSetColor(-1, $iToast_Header_Col)
                        ; Reduce title bar width to allow to activate
                        $iTitle_Width -= 18
                EndIf

                ; Create Title label with bold text, centred vertically in case bar is higher than line
                GUICtrlCreateLabel($sTitle, 10, 0, $iTitle_Width, $iTitle_Height, 0x0200) ; $SS_CENTERIMAGE
                        GUICtrlSetBkColor(-1,$iToast_Header_BkCol)
                        GUICtrlSetColor(-1, $iToast_Header_Col)
                        If BitAND($iToast_Style, 4) = 4 Then GUICtrlSetFont(-1, $iToast_Font_Size, 600)

        Else

                If $iDelay < 0 Then
                        ; Only need
                        $hToast_Close_X = GUICtrlCreateLabel($sX_Char, $iToast_Width - 18, 0, 17, 17)
                                GUICtrlSetFont(-1, 14, Default, Default, $sX_Font)
                                GUICtrlSetBkColor(-1, -2) ; $GUI_BKCOLOR_TRANSPARENT
                                GUICtrlSetColor(-1, $iToast_Message_Col)
                EndIf

        EndIf

        ; Create icon
        If $iIcon_Reduction Then GUICtrlCreateIcon($sDLL, $iIcon_Style, 10, 10 + $iTitle_Height)

        ; Create Message label
        GUICtrlCreateLabel($sMessage, 10 + $iIcon_Reduction, 10 + $iTitle_Height, $iLabelwidth, $iLabelheight)
                GUICtrlSetStyle(-1, $iLabel_Style)
                If $iToast_Message_Col <> Default Then GUICtrlSetColor(-1, $iToast_Message_Col)

        ; Slide Toast Slice into view from behind systray and activate
        DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hToast_Handle, "int", 1000, "long", $aToast_Data)

        ; Activate Toast without stealing focus
        GUISetState(@SW_SHOWNOACTIVATE, $hToast_Handle)

        ; If script is to pause
        If $fWait = True Then

                ; Begin timeout counter
                Local $iTimeout_Begin = TimerInit()

                ; Wait for timeout or closure
                While 1
                        If GUIGetMsg() = $hToast_Close_X Or TimerDiff($iTimeout_Begin) / 1000 >= Abs($iDelay) Then ExitLoop
                WEnd

        ; If script is to continue and delay has been set
        ElseIf Abs($iDelay) > 0 Then

                ; Store timer info
                $iToast_Timer = Abs($iDelay * 1000)
                $iToast_Start = TimerInit()

                ; Register Adlib function to run timer
                AdlibRegister("_Toast_Timer_Check", 100)
                ; Register message handler to check for click
                GUIRegisterMsg(0x0021, "_Toast_WM_EVENTS") ; $WM_MOUSEACTIVATE

        EndIf

        ; Reset original mode
        $nOldOpt = Opt('GUIOnEventMode', $nOldOpt)

        ; Create array to return Toast dimensions
        Local $aToast_Data = [$iToast_Width, $iToast_Height, $iLine_Height]

        Return $aToast_Data

EndFunc ; => _Toast_Show

; #FUNCTION# ========================================================================================================
; Name...........: _Toast_Hide
; Description ...: Hides a slice message from the systray
; Syntax.........: _Toast_Hide()
; Requirement(s).: v3.3.1.5 or higher - AdlibRegister used in _Toast_Show
; Return values .: Success: Returns 0
;                  Failure:        If Toast does not exist returns -1 and sets @error to 1
; Author ........: Melba23
; Example........; Yes
;=====================================================================================================================

Func _Toast_Hide()

        ; If no Toast to hide, return
        If $hToast_Handle = 0 Then Return SetError(1, 0, -1)

        ; Slide Toast back behind systray
        DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hToast_Handle, "int", 500, "long", $iToast_Move)

        ; Delete Toast slice
        GUIDelete($hToast_Handle)

        ; Set flag for "no Toast"
        $hToast_Handle = 0

EndFunc ; => _Toast_Hide

; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _Toast_Locate
; Description ...: Find Systray and determine Toast start position and movement direction
; Syntax ........: _Toast_Locate($iToast_Width, $iToast_Height)
; Parameters ....: $iToast_Width- required width of slice
;                  $iToast_Height - required height of slice
; Author ........: Melba23, based on some original code by GioVit
; Modified.......:
; Remarks .......: This function is used internally by _Toast_Show
; ===============================================================================================================================
Func _Toast_Locate($iToast_Width, $iToast_Height)

        ; Define return array
        Local $aToast_Data

        ; Find systray
        Local $iPrevMode = Opt("WinTitleMatchMode", 4)
    Local $aTray_Pos = WinGetPos("")
    Opt("WinTitleMatchMode", $iPrevMode)

        ; If error in finding systray
        If Not IsArray($aTray_Pos) Then Return SetError(2, 0, -1)

        ; Determine direction of Toast motion and starting position
        If $aTray_Pos > 0 Then
      $iToast_Move = 0x00050004 ; $AW_SLIDE_OUT_BOTTOM
      $aToast_Data = @DesktopWidth - $iToast_Width - 10
      $aToast_Data = $aTray_Pos - $iToast_Height
                $aToast_Data = 0x00040008 ; $AW_SLIDE_IN_BOTTOM
    Elseif $aTray_Pos > 0 Then
      $iToast_Move = 0x00050001 ; $AW_SLIDE_OUT_RIGHT
      $aToast_Data = $aTray_Pos - $iToast_Width
      $aToast_Data = @DesktopHeight - $iToast_Height - 10
                $aToast_Data = 0x00040002 ; $AW_SLIDE_IN_RIGHT
    ElseIf $aTray_Pos = @DesktopWidth Then
      $iToast_Move = 0x00050008 ; $AW_SLIDE_OUT_TOP
      $aToast_Data = @DesktopWidth - $iToast_Width - 10
      $aToast_Data = $aTray_Pos + $aTray_Pos
                $aToast_Data = 0x00040004 ; $AW_SLIDE_IN_TOP
    ElseIf $aTray_Pos = @DesktopHeight Then
      $iToast_Move = 0x00050002 ; $AW_SLIDE_OUT_LEFT
      $aToast_Data = $aTray_Pos + $aTray_Pos
      $aToast_Data = @DesktopHeight - $iToast_Height - 10
                $aToast_Data = 0x00040001 ; $AW_SLIDE_IN_LEFT
    EndIf

        Return $aToast_Data

EndFunc ; => _Toast_Locate

; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _Toast_Timer_Check
; Description ...: Checks whether Toast has timed out or closure clicked
; Syntax ........: _Toast_Locate($iToast_Width, $iToast_Height)
; Author ........: Melba23
; Modified.......:
; Remarks .......: This function is used internally by _Toast_Show if the Wait parameter is set to False
; ===============================================================================================================================
Func _Toast_Timer_Check()

        ; Return if timeout not elapsed and not clicked
        If TimerDiff($iToast_Start) < $iToast_Timer And $fToast_Close = False Then Return

        ; Unregister message handler
        GUIRegisterMsg(0x0021, "") ; $WM_MOUSEACTIVATE
        ; Unregister this function
        AdlibUnRegister("_Toast_Timer_Check")
        ; Reset flag
        $fToast_Close = False
        ; Retract slice
        _Toast_Hide()

EndFunc; => _Toast_Timer_Check

; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _Toast_WM_EVENTS
; Description ...: Message handler to check if closure clicked
; Author ........: Melba23
; Modified.......:
; Remarks .......: This function is used internally by _Toast_Show if the Wait parameter is set to False
; ===============================================================================================================================
Func _Toast_WM_EVENTS($hWnd, $Msg, $wParam, $lParam)

        #forceref $wParam, $lParam
    If $hWnd = $hToast_Handle Then
                If $Msg = 0x0021 Then ; $WM_MOUSEACTIVATE
                        ; Check mouse position
            Local $aPos = GUIGetCursorInfo($hToast_Handle)
            If $aPos = $hToast_Close_X Then $fToast_Close = True
                EndIf
    EndIf
    Return 'GUI_RUNDEFMSG'

EndFunc; => _Toast_WM_EVENTS

; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _Toast_GetDefFont
; Description ...: Determine system default MsgBox font and size
; Syntax ........: _Toast_GetDefFont($iData)
; Parameters ....: $iData - 0 = Font point size, 1 = Font name
; Author ........: Melba23
; Modified.......:
; Remarks .......: This function is used internally by _Toast functions
; ===============================================================================================================================
Func _Toast_GetDefFont($iData)

        ; Get default system font data
        Local $tNONCLIENTMETRICS = DllStructCreate("uint;int;int;int;int;int;byte;int;int;byte;int;int;byte;byte;byte")
        DLLStructSetData($tNONCLIENTMETRICS, 1, DllStructGetSize($tNONCLIENTMETRICS))
        DLLCall("user32.dll", "int", "SystemParametersInfo", "int", 41, "int", DllStructGetSize($tNONCLIENTMETRICS), "ptr", DllStructGetPtr($tNONCLIENTMETRICS), "int", 0)
        ; Read font data for MsgBox font
        Local $tLOGFONT = DllStructCreate("long;long;long;long;long;byte;byte;byte;byte;byte;byte;byte;byte;char", DLLStructGetPtr($tNONCLIENTMETRICS, 15))
        Switch $iData
                Case 0
                        ; Font size as integer
                        Return Int((Abs(DllStructGetData($tLOGFONT, 1)) + 1) * .75)
                Case 1
                        ; Font name
                        Return DllStructGetData($tLOGFONT, 14)
        EndSwitch

EndFunc ;=>_Toast_GetDefFont

131738 发表于 2010-8-14 00:10:11

回复 10# 131738

StringSize.au3#include-once

; #INDEX# ============================================================================================================
; Title .........: _StringSize
; AutoIt Version : v3.2.12.1 or higher
; Language ......: English
; Description ...: Returns size of rectangle required to display string - width can be chosen
; Remarks .......:
; Note ..........:
; Author(s) .....: Melba23
; ====================================================================================================================

;#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6

; #CURRENT# ==========================================================================================================
; _StringSize: Returns size of rectangle required to display string - maximum permitted width can be chosen
; ====================================================================================================================

; #INTERNAL_USE_ONLY#=================================================================================================
; _StringSize_Error: Returns from error condition after DC and GUI clear up
; ====================================================================================================================

; #FUNCTION# =========================================================================================================
; Name...........: _StringSize
; Description ...: Returns size of rectangle required to display string - maximum permitted width can be chosen
; Syntax ........: _StringSize($sText[, $iSize[, $iWeight[, $iAttrib[, $sName[, $iWidth]]]]])
; Parameters ....: $sText   - String to display
;                  $iSize   - Font size in points - default AutoIt GUI default
;                  $iWeight - Font weight (400 = normal) - default AutoIt GUI default
;                  $iAttrib - Font attribute (0-Normal, 2-Italic, 4-Underline, 8 Strike - default AutoIt
;                  $sName   - Font name - default AutoIt GUI default
;                  $iWidth- Width of rectangle - default is unwrapped width of string
; Requirement(s) : v3.2.12.1 or higher
; Return values .: Success - Returns array with details of rectangle required for text:
;                  |$array = String formatted with @CRLF at required wrap points
;                  |$array = Height of single line in selected font
;                  |$array = Width of rectangle required to hold formatted string
;                  |$array = Height of rectangle required to hold formatted string
;                  Failure - Returns 0 and sets @error:
;                  |1 - Incorrect parameter type (@extended = parameter index)
;                  |2 - Failure to create GUI to test label size
;                  |3 - DLL call error - extended set to indicate which
;                  |4 - Font too large for chosen width - longest word will not fit
; Author ........: Melba23
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
;=====================================================================================================================
Func _StringSize($sText, $iSize = Default, $iWeight = Default, $iAttrib = Default, $sName = Default, $iWidth = 0)

        Local $avSize_Info, $aRet, $iLine_Width = 0, $iLast_Word, $iWrap_Count
        Local $hLabel_Handle, $hFont, $hDC, $oFont, $tSize = DllStructCreate("int X;int Y")

        ; Check parameters are correct type
        If Not IsString($sText) Then Return SetError(1, 1, 0)
        If Not IsNumber($iSize) And $iSize <> Default   Then Return SetError(1, 2, 0)
        If Not IsInt($iWeight)And $iWeight <> Default Then Return SetError(1, 3, 0)
        If Not IsInt($iAttrib)And $iAttrib <> Default Then Return SetError(1, 4, 0)
        If Not IsString($sName) And $sName <> Default   Then Return SetError(1, 5, 0)
        If Not IsNumber($iWidth) Then Return SetError(1, 6, 0)

        ; Create GUI to contain test labels, set to required font parameters
        Local $hGUI = GUICreate("", 1200, 500, 10, 10)
                If $hGUI = 0 Then Return SetError(2, 0, 0)
                GUISetFont($iSize, $iWeight, $iAttrib, $sName)

        ; Store unwrapped text
        $avSize_Info = $sText

        ; Ensure EoL is @CRLF and break text into lines
        If StringInStr($sText, @CRLF) = 0 Then StringRegExpReplace($sText, "[\x0a|\x0d]", @CRLF)
        Local $asLines = StringSplit($sText, @CRLF, 1)

        ; Draw label with unwrapped lines to check on max width
        Local $hText_Label = GUICtrlCreateLabel($sText, 10, 10)
        Local $aiPos = ControlGetPos($hGUI, "", $hText_Label)

        GUISetState(@SW_HIDE)

        GUICtrlDelete($hText_Label)

        ; Store line height for this font size after removing label padding (always 8)
        $avSize_Info = ($aiPos - 8)/ $asLines
        ; Store width and height of this label
        $avSize_Info = $aiPos
        $avSize_Info = $aiPos - 4 ; Reduce margin

        ; Check if wrapping is required
        If $aiPos > $iWidth And $iWidth > 0 Then

                ; Set returned text element to null
                $avSize_Info = ""

                ; Set width element to max allowed
                $avSize_Info = $iWidth

                ; Set line count to zero
                Local $iLine_Count = 0

                ; Take each line in turn
                For $j = 1 To $asLines

                        ; Size this line unwrapped
                        $hText_Label = GUICtrlCreateLabel($asLines[$j], 10, 10)
                        $aiPos = ControlGetPos($hGUI, "", $hText_Label)
                        GUICtrlDelete($hText_Label)

                        ; Check wrap status
                        If $aiPos < $iWidth Then
                                ; No wrap needed so count line and store
                                $iLine_Count += 1
                                $avSize_Info &= $asLines[$j] & @CRLF
                        Else
                                ; Wrap needed so need to count wrapped lines

                                ; Create label to hold line as it grows
                                $hText_Label = GUICtrlCreateLabel("", 0, 0)
                                ; Initialise Point32 method
                                $hLabel_Handle = ControlGetHandle($hGui, "", $hText_Label)
                                ; Get DC with selected font
                                $aRet = DllCall("User32.dll", "hwnd", "GetDC", "hwnd", $hLabel_Handle)
                                If @error Then _StringSize_Error(3, 1, $hLabel_Handle, 0, $hGUI)
                                $hDC = $aRet
                                $aRet = DllCall("user32.dll", "lparam", "SendMessage", "hwnd", $hLabel_Handle, "int", 0x0031, "wparam", 0, "lparam", 0) ; $WM_GetFont
                                If @error Then _StringSize_Error(3, 2, $hLabel_Handle, $hDC, $hGUI)
                                $hFont = $aRet
                                $aRet = DllCall("GDI32.dll", "hwnd", "SelectObject", "hwnd", $hDC, "hwnd", $hFont)
                                If @error Then _StringSize_Error(3, 3, $hLabel_Handle, $hDC, $hGUI)
                                $oFont = $aRet
                                If $oFont = 0 Then _StringSize_Error(3, 4, $hLabel_Handle, $hDC, $hGUI)

                                ; Zero counter
                                $iWrap_Count = 0

                                While 1

                                        ; Set line width to 0
                                        $iLine_Width = 0
                                        ; Initialise pointer for end of word
                                        $iLast_Word = 0

                                        For $i = 1 To StringLen($asLines[$j])

                                                ; Is this just past a word ending?
                                                If StringMid($asLines[$j], $i, 1) = " " Then $iLast_Word = $i - 1
                                                ; Increase line by one character
                                                Local $sTest_Line = StringMid($asLines[$j], 1, $i)
                                                ; Place line in label
                                                GUICtrlSetData($hText_Label, $sTest_Line)

                                                ; Get line length into size structure
                                                $iSize = StringLen($sTest_Line)
                                                DllCall("GDI32.dll", "int", "GetTextExtentPoint32", "hwnd", $hDC, "str", $sTest_Line, "int", $iSize, "ptr", DllStructGetPtr($tSize))
                                                If @error Then _StringSize_Error(3, 5, $hLabel_Handle, $hDC, $hGUI)
                                                $iLine_Width = DllStructGetData($tSize, "X")

                                                ; If too long exit the loop
                                                If $iLine_Width >= $iWidth - Int($iSize / 2) Then ExitLoop
                                        Next

                                        ; End of the line of text?
                                        If $i > StringLen($asLines[$j]) Then
                                                ; Yes, so add final line to count
                                                $iWrap_Count += 1
                                                ; Store line
                                                $avSize_Info &= $sTest_Line & @CRLF
                                                ExitLoop
                                        Else
                                                ; No, but add line just completed to count
                                                $iWrap_Count += 1
                                                ; Check at least 1 word completed or return error
                                                If $iLast_Word = 0 Then
                                                        _StringSize_Error(4, 0, $hLabel_Handle, $hDC, $hGUI)
                                                EndIf
                                                ; Store line up to end of last word
                                                $avSize_Info &= StringLeft($sTest_Line, $iLast_Word) & @CRLF
                                                ; Strip string to point reached
                                                $asLines[$j] = StringTrimLeft($asLines[$j], $iLast_Word)
                                                ; Trim leading whitespace
                                                $asLines[$j] = StringStripWS($asLines[$j], 1)
                                                ; Repeat with remaining characters in line
                                        EndIf

                                WEnd

                                ; Add the number of wrapped lines to the count
                                $iLine_Count += $iWrap_Count

                                ; Clean up
                                DllCall("User32.dll", "int", "ReleaseDC", "hwnd", $hLabel_Handle, "hwnd", $hDC)
                                If @error Then _StringSize_Error(3, 6, $hLabel_Handle, $hDC, $hGUI)
                                GUICtrlDelete($hText_Label)

                        EndIf

                Next

                ; Convert lines to pixels and add reduced margin
                $avSize_Info = ($iLine_Count * $avSize_Info) + 4

        EndIf

        ; Clean up
        GUIDelete($hGUI)

        ; Return array
        Return $avSize_Info

EndFunc ; => _StringSize

; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _StringSize_Error
; Description ...: Returns from error condition after DC and GUI clear up
; Syntax ........: _StringSize_Error($iError, $iExtended, $hLabel_Handle, $hDC, $hGUI)
; Parameters ....: $iError- required error value to return
;                  $iExtended - required extended value to return
;                  $hLabel_Handle, $hDC, $hGUI - variables as set in _StringSize function
; Author ........: Melba23
; Modified.......:
; Remarks .......: This function is used internally by _StringSize
; ===============================================================================================================================
Func _StringSize_Error($iError, $iExtended, $hLabel_Handle, $hDC, $hGUI)

        ; Release DC if created
        DllCall("User32.dll", "int", "ReleaseDC", "hwnd", $hLabel_Handle, "hwnd", $hDC)
        ; Delete GUI
        GUIDelete($hGUI)
        ; Return with extended set
        Return SetError($iError, $iExtended, 0)

EndFunc ; => _StringSize_Error

131738 发表于 2010-8-14 00:13:06

本帖最后由 131738 于 2010-8-14 00:56 编辑

回复 11# 131738

示例文件:Toast_Example.au3;Example Toast

#include "Toast.au3"

Local $sMsg, $hProgress, $aRet

$sMsg= "The message text goes in this area" & @CRLF & @CRLF
$sMsg &= "This Toast uses the System colours and font"

$aRet = _Toast_Show(0, "The Title text goes here", $sMsg, 5)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & @CRLF)
_Toast_Hide()

$sMsg= "This Toast uses colours and font defined in a _Toast_Set call." & @CRLF & @CRLF
$sMsg &= "Subsequent Toasts will use these values until they are reset by another _Toast_Set call" & @CRLF & @CRLF
$sMsg &= "You can also display a standard icon - or one from an exe as here" & @CRLF & @CRLF
$sMsg &= "The next Toast has a very small message to show the pre-set minimum size"

_Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10, "Arial")
$aRet = _Toast_Show(@AutoItExe, "User-defined Colours and Bold Header", $sMsg, 10)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & @CRLF)
_Toast_Hide()

$aRet = _Toast_Show(0, "", "Tiny", 2)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & @CRLF)
_Toast_Hide()

$sMsg= "These lines are of medium length" & @CRLF & @CRLF
$sMsg &= "The width is set by the longest" & @CRLF & @CRLF
$sMsg &= "No wrapping occurs here" & @CRLF & @CRLF
$sMsg &= "Note increased font size"

_Toast_Set(-1, -1, -1, -1, -1, 15)
$aRet = _Toast_Show(0, "Mid Width", $sMsg, 5)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & @CRLF)
_Toast_Hide()

$sMsg= "This is a long message set to left justified and a much larger font using _Toast_Set" & @CRLF & @CRLF
$sMsg &= "The Toast is automatically set to the maximum preset width and the message text "
$sMsg &= "is wrapped as necessary to fit within the margins of the Toast" & @CRLF & @CRLF
$sMsg &= "The Toast colours and weight have been changed by another _Toast_Set call" & @CRLF & @CRLF
$sMsg &= "Note the closure on the title bar.This Toast will time out in 30 secs "
$sMsg &= "but clicking the will resume the script immediately"

_Toast_Set(0, -1, 0xFFFF00, 0x00FF00, 0x000000, 15, "Courier New")
$aRet = _Toast_Show(64, "Max Width and Normal Header", $sMsg, -30)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & @CRLF)
_Toast_Hide()

$sMsg= "This line is very long to show that you can override the pre-set maximum width with the 'Raw' parameter. "
$sMsg &= "You have to add a few more parameters to the _Toast_Show call but that is a small price to pay"
$sMsg &= @CRLF & @CRLF & "However, the Toast will not display if it does not fit on the screen!"

_Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10, "Arial")
$aRet = _Toast_Show(0, "Unwrapped Toast", $sMsg, -20, True, True)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & @CRLF)
_Toast_Hide()

$sMsg= "Note how Toasts adjust automatically in height to display all of the message "
$sMsg &= "regardless of whether there is a title bar to display, the font used, "
$sMsg &= "the number of lines or whether wrapping occurs" & @CRLF & @CRLF
$sMsg &= "This Toast will retract automatically when the next Toast is called "
$sMsg &= "or when the is clicked"

$aRet = _Toast_Show(0, "", $sMsg, -10)
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & @CRLF)

$sMsg= "This Toast has several blank lines inserted. "
$sMsg &= "This can be useful if you want to leave space to add other controls, "
$sMsg &= "such as a progress bar, to the Toast once it is displayed" & @CRLF & @CRLF & @CRLF & @CRLF
$sMsg &= "The Toast size is returned by the function so you can calculate "
$sMsg &= "where to place the other controls."
$sMsg &= "This example script writes the size in the SciTE console" & @CRLF & @CRLF
$sMsg &= "Note that Toast colours and font have been reset to Default"

_Toast_Set(Default)
$aRet = _Toast_Show(0, "Progress Bar", $sMsg, 0) ; No delay or progress bar will not display immediately
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & @CRLF)
$hProgress = GUICtrlCreateProgress(10, 65, $aRet - 20, 20)
For $i = 1 To 100
        GUICtrlSetData($hProgress, $i)
        Sleep(50)
Next
Sleep(5000)
_Toast_Hide()

$sMsg= "This Toast has the 'Wait' flag set to False. " & @CRLF & @CRLF
$sMsg &= "That means that the script will continue while the Toast is displayed as "
$sMsg &= "as you can see from this counter." & @CRLF & @CRLF
$sMsg &= "Clicking the will retract the Toast immediately but it will "
$sMsg &= "automatically retract after 20 seconds in any event"

_Toast_Set(5, 0xFF00FF, 0xFFFF00, 0x0000FF, 0xFFFFFF, 10)
$aRet = _Toast_Show(32, "Script Continuing", $sMsg, -20, False) ; Delay can be set here because script continues
ConsoleWrite("Toast size: " & $aRet & " x " & $aRet & @CRLF)
$hLabel = GUICtrlCreateLabel("", 267, 98, 15, 15)
GUICtrlSetBkColor(-1, 0xFFFF00)
$iCount = 0
Do
        $iCount += 1
        GUICtrlSetData($hLabel, StringFormat("%2s", $iCount))
        Sleep(1000)
Until $iCount = 60 Or $hToast_Handle = 0 ; Toast will retract automatically before $iCount = 60

Exit1 楼的可能是早期代码,这是本年7月的改良脚本。。。。

afan 发表于 2010-8-14 13:17:08

这是昨天修改的,也是将例子分开了。
修改了_StringSize() ,在其最后增加了一个参数 $Lang ,为1时使用汉字环境(默认),为0时使用英文环境。
同时 _Toast_Show() 也同时增加了此参数。因为_StringSize() 是使用 _Toast_Show() 调用的

6678720 发表于 2010-8-14 16:33:49

谢谢各位大侠

131738 发表于 2010-8-14 18:57:50

回复 13# afan

幸苦了。。。。谢谢!!!!!!!!!!!
页: [1] 2
查看完整版本: 官网 GUI 脚本,应该可以作为托盘提示使用,但汉化后显示失常,有兴趣的看看!!