[原创] 系统托盘右击选项问题

[复制链接]

miniyal

该用户从未签到

电梯直达

1^#

发表于 2007-3-23 14:05:08 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

Dim cItems,aa
cItems=Window("Window").WinToolbar("通知区域").GetItemsCount
For i=1 to cItems
aa=Window("Window").WinToolbar("通知区域").GetItemProperty(i,"name")
If aa = "Maxthon" Then
Window("Window").WinToolbar("通知区域").Press i, micRightBtn
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{ENTER} "
WshShell=nothing
End If
Next

可以选中右击菜单中的第二个，可以根据需要添加

[ 本帖最后由 miniyal 于 2007-4-6 14:32 编辑 ]

通知, 系统托盘