51Testing软件测试论坛

标题: 如何实现Windows任务栏右击 [打印本页]

作者: helius 时间: 2008-12-10 16:43
标题: 如何实现Windows任务栏右击
我把一个流程要涉及到的页面都打开，然后任务栏上页面分组实现右击，然后在弹出菜单上选择【横向平铺】
这样做一个辅助脚本
参考一个脚本
Browser("百度一下，你就知道").WinMenu("SystemMenu").Select "最小化(N)"
coun= window("Window").WinToolbar("运行应用程序").GetItemsCount  '得到工具栏中的所有程序
For i = 1 to coun
cname= window("Window").WinToolbar("运行应用程序").GetItemProperty(i,"name") '取他们的name值
      If  cname = "百度一下，你就知道 - Microsoft Internet Explorer"  Then
      wait 1
            window("Window").WinToolbar("运行应用程序").Press i ,micRightBtn
               Exit For
               End If
Next
index = 5 '最大化操作在右键的第五项。
Set WshShell = CreateObject("Wscript.Shell")
   For i = 1 To index
   WshShell.sendKeys "{DOWN}" '在弹出的右键菜单中依次下移到第五个
   wait 1
   Next
WshShell.sendKeys "{ENTER}"  '选择最大化操作

wait 1
Set WshShell = nothing

其中WinMenu("SystemMenu")不知道怎么录制
运行coun= window("Window").WinToolbar("运行应用程序").GetItemsCount  '得到工具栏中的所有程序
报“未指定错误”

作者: helius 时间: 2008-12-11 08:47
UP 自己顶

作者: asoqa 时间: 2008-12-15 19:37
不太明白，楼主脚本中针对任务的右键方法完全可用。
coun= window("Window").WinToolbar("运行应用程序").GetItemsCount 也没有任何问题。

作者: helius 时间: 2008-12-15 22:14
我用qtp8.2录制可以XP 可以
但用qtp9.2录制就不可以，同事版本也是9.2的也不行

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