helius 发表于 2008-12-10 16:43:13

如何实现Windows任务栏右击

我把一个流程要涉及到的页面都打开，然后任务栏上页面分组实现右击，然后在弹出菜单上选择【横向平铺】
这样做一个辅助脚本
参考一个脚本
Browser("百度一下，你就知道").WinMenu("SystemMenu").Select "最小化(N)"
coun= window("Window").WinToolbar("运行应用程序").GetItemsCount'得到工具栏中的所有程序
For i = 1 to coun
   cname= window("Window").WinToolbar("运行应用程序").GetItemProperty(i,"name") '取他们的name值
      Ifcname = "百度一下，你就知道 - 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:55

UP 自己顶

asoqa 发表于 2008-12-15 19:37:24

不太明白，楼主脚本中针对任务的右键方法完全可用。
coun= window("Window").WinToolbar("运行应用程序").GetItemsCount也没有任何问题。

helius 发表于 2008-12-15 22:14:52

我用qtp8.2录制可以XP 可以
但用qtp9.2录制就不可以，同事版本也是9.2的也不行
页: [1]
查看完整版本: 如何实现Windows任务栏右击