找回密码
 加入
搜索
查看: 3286|回复: 6

关于托盘图标闪动?

  [复制链接]
发表于 2008-9-22 22:49:27 | 显示全部楼层 |阅读模式
用TrayTip,能否使托盘图标像QQ来信息一样闪动,谢谢!
发表于 2008-9-22 22:56:35 | 显示全部楼层
可以。TraySetState
发表于 2008-9-24 02:40:17 | 显示全部楼层
搞这个东西要多进程呀。同时要事件模式。
难难难。
发表于 2008-9-26 22:07:59 | 显示全部楼层

TraySetState()

While *********
         TraySetIcon("Flash.dll", 1)
         sleep(200)
         TraySetIcon("Flash.dll", 2)
Wend

Do
 Opt("TrayIconHide", 1) 
sleep(200)
 Opt("TrayIconHide", 0)
Until ********
发表于 2008-9-26 22:57:43 | 显示全部楼层
原帖由 liongodmien 于 2008-9-26 22:07 发表
[au3]
TraySetState()

While *********
         TraySetIcon("Flash.dll", 1)
         sleep(200)
         TraySetIcon("Flash.dll", 2)
Wend

Do
Opt("TrayIconHide", 1)
sleep(200)
Opt("TrayI ...


表达式错误.
发表于 2008-9-27 10:32:37 | 显示全部楼层
原帖由 lxz 于 2008-9-26 22:57 发表


表达式错误.


噢,买噶,我只是给个样式啊,今天再给个全的!

#NoTrayIcon
Opt("TrayMenuMode", 1)
Opt("trayOnEventMode", 1)

$Test = TrayCreateItem("测试") 
TrayItemSetOnEvent($Test, "_TrayMsg")
TrayCreateItem("") ;
$Quit = TrayCreateItem("退出") 
TrayItemSetOnEvent($Quit, "_TrayMsg") 
TraySetState(@SW_SHOW)

While 1
    Sleep(5000)
WEnd


Func _TrayMsg()
        Switch @TRAY_ID 
                
                Case $Test
                        MsgBox(48, "提示", "你点下了“测试”")
                        
        Case $Quit
            Exit
                        
        EndSwitch
EndFunc

评分

参与人数 1金钱 +3 收起 理由
lxz + 3

查看全部评分

发表于 2008-9-27 10:50:09 | 显示全部楼层
再来多个可以控制停止闪动的

#NoTrayIcon
Opt("TrayMenuMode", 1)
Opt("trayOnEventMode", 1)

$Flash = TrayCreateItem("闪动开始") 
TrayItemSetOnEvent($Flash, "_TrayMsg")
TrayCreateItem("")
$Stop = TrayCreateItem("闪动停止") 
TrayItemSetOnEvent($Stop, "_TrayMsg")
TrayCreateItem("")
$Quit = TrayCreateItem("退出") 
TrayItemSetOnEvent($Quit, "_TrayMsg") 
TraySetState()

While 1
    Sleep(5000)
WEnd


Func _TrayMsg()
        Switch @TRAY_ID 
                
                Case $Flash
                        MsgBox(48, "提示", "你点下了“闪动开始”")
                        TraySetState(@SW_SHOW)
                        
        Case $Stop
                        MsgBox(48, "提示", "你点下了“闪动停止”")
                        TraySetState(@SW_RESTORE)
                        
                Case $Quit
                        Exit
                        
        EndSwitch
EndFunc


这样足够了吧?
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-24 08:11 , Processed in 0.162267 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表