怎样检测任务栏的图标？

scdxorange

我有一个应用程序，当它运行之后，在右下角的任务栏会有一个图标。
现在的测试需要检查该图标是否出现，怎么用QTP实现呢？
谢谢！

yuandjing

用checkpoint吧
Window("Window").WinToolbar("通知区域").Check CheckPoint("通知区域")

scdxorange

请问这个“通知区域”啥意思？我应该用什么替换？
比如，金山词霸启动起来的时候，任务栏右下角会有一个金山词霸的图标（PowerWord），我如何编写脚本判断该图标是否存在？
我是初学者，还没入门，请说得详细一点哈。谢谢！

jackymail

先把右下角任务栏添加到object repository里，那个就是名字为notificationi area的wintoolbar对象。
txt= window("Window").WinToolbar("Notification Area").GetContent

search="Microsoft Office Outlook"
If instr(txt,search)<>0 Then
        msgbox "ok"
End If

yuandjing

对，我用的是位图的checkpoint

joseph_wh

用位图的checkpoint风险比较大。
楼主说的应该是system tray（系统托盘）区域。
在这个区域里的图标，会因为加载的先后顺序而导致位置不同。虽然是同样的一些图标，但是排列顺序不同了，位图的checkpoint就可能报错。但实际也许没错。

milan330330

学习了~~~呵呵

scdxorange

原帖由 jackymail 于 2007-8-31 10:05 发表
先把右下角任务栏添加到object repository里，那个就是名字为notificationi area的wintoolbar对象。
txt= window("Window").WinToolbar("Notification Area").GetContent

search="Microsoft Office Outlook ...

果然英明！谢谢啊。
不过还有一个问题，当它检测到该任务栏图标存在时，会弹出对话框“ok”，等待我点击。但是我希望它不等待我点击，而是继续往下运行，只是测试完成后给我一个结果就行了。那代码应该怎么写呢？

jackymail

呵呵，你这个问题问的我憋闷一天的心情都开始爽了。。。

你应该自己学点什么先，然后再来问。
把msgbox那句话去掉，在if语句里面保存一个flag,最后看一下flag的值就行了。

if....then
flag="found"
end if

.....at the end of the procedure
msgbox flag
呵呵，我都不知道该怎么回答了。

原帖由 scdxorange 于 2007-8-31 15:09 发表


果然英明！谢谢啊。
不过还有一个问题，当它检测到该任务栏图标存在时，会弹出对话框“ok”，等待我点击。但是我希望它不等待我点击，而是继续往下运行，只是测试完成后给我一个结果就行了。那代码应该怎么 ...

walker1020

楼主该学着自己写一些简单的代码了，如循环、判断等。这些都是 VBscript里 最基本的语句。你不能处处靠别人呀，你总该有点自学的能力吧。

scdxorange

有点急于求成了。谢谢提醒！