本帖最后由 yy517 于 2016-5-6 08:22 编辑
回复 4# afan
win10下检测不到呢,关闭不了for $i=1 to 10
TrayTip("test",$i,60)
sleep(500)
$Rt = _WinTooltipsClose($i)
Next
Func _WinTooltipsClose($Title, $REFlag = 0, $Close = 1)
;afan提示:$Title - 需关闭提示窗口的“标题”
; (注意是非粗体字,相当于TrayTip设置的“文本”)
;$REFlag - [可选参数]是否使用正则,默认0=不使用
;$Close - [可选参数]是否关闭提示窗口,默认1=关闭
;返回值:是否关闭操作后返回“标题”字符串
; 未匹配到或标题为空返回 @Error
If $Title == '' Then Return SetError(1)
Local $aWL = WinList('[CLASS:tooltips_class32]')
;Local $aWL = WinList('[CLASS:Windows.UI.Core.CoreWindow]')
Local $st, $msg, $IsIn = 0
msgbox(48,"",$aWL[0][0])
For $i = 1 To $aWL[0][0]
$st = WinGetTitle($aWL[$i][0])
msgbox(48,"",$st,1)
If $st = '' Then ContinueLoop
If Not $REFlag Then
If StringInStr($st, $Title) Then $IsIn = 1
ElseIf StringRegExp($st, $Title) Then
$IsIn = 1
EndIf
If $IsIn Then ExitLoop
Next
If Not $IsIn Then Return SetError(2)
If $Close Then ControlClick($aWL[$i][1], '', 0)
Return $st
EndFunc ;==>_WinTooltipsClose
|