cItems=Window("Window").WinToolbar("ToolbarWindow32").GetItemsCount
For i=1 to cItems
aa=Window("Window").WinToolbar("ToolbarWindow32").GetItemProperty(i,"name")
If aa = "QQ 157679395" Then
Window("Window").WinToolbar("ToolbarWindow32").Press i, micRightBtn
End If
Next