如何实现Windows任务栏右击

helius

我把一个流程要涉及到的页面都打开，然后任务栏上页面分组实现右击，然后在弹出菜单上选择【横向平铺】
这样做一个辅助脚本
参考一个脚本
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

UP 自己顶

asoqa

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

helius

我用qtp8.2录制可以XP 可以
但用qtp9.2录制就不可以，同事版本也是9.2的也不行