51Testing软件测试论坛

标题: 系统托盘右击选项问题 [打印本页]

---

作者: miniyal    时间: 2007-3-23 14:05
标题: 系统托盘右击选项问题
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 编辑 ]

---

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)

Powered by Discuz! X3.2