PowerShell 自动给QQ群发消息 12

本篇就来兑现在《PowerShell UI自动化测试框架》中的承诺：自动给QQ群发消息。

知识点

• 假定QQ正在运行，并且已经登录。如若自动给QQ群发送消息，须要三步：第一步，点击QQ群，弹出聊天窗口；第二步，在消息框输入消息；第三步，点击“发送”按钮。
• 在“UI Automation PowerShell扩展”找出一个窗口，然后再找其中的一个按钮，默认是支持递归遍历的。但是如果窗口中控件错综，要找的目标按钮节点较深，递归起来效率非常低。所以我简单的写了个小函数 Get-UiaControlByChildrenIndex，能根据控件的索引路径来查找，避免走弯路。
• 第三个是一个坎，之前和Victor讨论过，QQ的发送消息的发送框，不是一个标准的windows文本框,如果是，直接可以用Set-UiaEditText赋值。但是可惜了，它不是。我给出的解决方法是：鼠标右击，弹出上下文菜单，然后将内容粘贴过去。
• 最后就是发挥PowerShell自定义对象的魅力了：自定义属性，自定义方法。

因为我不在腾讯上班，所以没必要把所有东西都写完。只是为朋友们做个演示。

脚本

<#
 # 操作系统  ：Windows 8.1(中文简体)
 # PowerShell：4.0
 # QQ版本    ：qq5.2 10446
#>

Import-Module E:\Powershell\UIA\UIAutomation.dll

# QQ 上下文
$QQContext = [PSCustomObject]@{
 MainWindow = $null  # 主界面
 Process = $null     # 进程
 TaskBar = $null     #任务栏图标
}

#############################
##通过粘切按钮设置QQ中编辑框文本
#############################
Function Set-QQEditTextByCopy
{
    param
    (
    [Parameter(ValueFromPipeline=$true)]
    [UIAutomation.UiElement]$EditControl,
    [string]$Text
    )
    $Text | clip.exe

    #弹出上下文菜单
    $EditControl.InvokeContextMenu()
    #粘切按钮
    $pasterMenu = (Get-UiaWindow -Class 'TXGuiFoundation' -Name 'TXMenuWindow' | Get-UiaControlChildren)[2]
    $pasterMenu| Invoke-UiaControlClick -DoubleClick | Out-Null
}

######################
##根据索引联获取子窗口
######################
function Get-UiaControlByChildrenIndex
{
    param(
    [Parameter(ValueFromPipeline=$true)]
    #父控件
    $Parent,

    #索引联数组，比如@(1,3,2),逻辑类似 Children[1].Children[3].Children[2]
    [int[]]$IndexChain
    )
    $result=$Parent
    $IndexChain | foreach {
        $result = ($result | Get-UiaControlChildren)[$_]
    }
    return $result
}

######################
##初始化QQ主窗口
######################
function Get-QQ
{
  $QQContext.MainWindow
  #主窗口
  $qqWindow = Get-UiaWindow -Name 'QQ' -Class 'TXGuiFoundation' -ProcessId $QQContext.Process.Id
  $searchControl = Get-UiaControlByChildrenIndex -Parent  $qqWindow -IndexChain @(4,1,1) | Get-UiaControlChildren
  $HubMenus =  Get-UiaControlByChildrenIndex -Parent  $qqWindow -IndexChain @(4,1,3,0,0,0,0) | Get-UiaTab | Get-UiaTabItem
  $QQContext.MainWindow = [PSCustomObject]@{
      #窗口缓存
      Window = $qqWindow
      #关闭按钮
      CloseButton = Get-UiaControlByChildrenIndex -Parent  $qqWindow -IndexChain @(5,0)
      #最小化按钮
      MinimizeButton = Get-UiaControlByChildrenIndex -Parent  $qqWindow -IndexChain @(5,1)
      #群与联系人切换按钮
      HubMenus = [PSCustomObject]@{
        #好友按钮
        Friends = $HubMenus[0]
        #群组按钮
        Group = $HubMenus[1]
        #会话按钮
        Conversation = $HubMenus[2]
        #QQ空间
        QZone=$HubMenus[3]
        #腾讯微博
        Weibo=$HubMenus[4]
      }
      #搜索
      Search = [PSCustomObject]@{
        Box = $searchControl[1] 
        Button = $searchControl[0]
      } 
  }
  #搜索方法
  $QQContext.MainWindow.Search | Add-Member -MemberType ScriptMethod 'Search' {
    param(
    $Text
    )
    #清空当前值
    if($QQContext.MainWindow.Search.Box.Value)
    {
        $QQContext.MainWindow.Search.Button.Click()
    }
    $QQContext.MainWindow.Search.Box |  Set-QQEditTextByCopy -Text $Text
  }
}

######################
##从任务栏弹出QQ主窗口
######################
function Show-QQ
{
    # QQ 进程
    $QQContext.Process = Get-Process -Name 'QQ'

    # 当有多个用户登录到时，其它用户的CPU为空，不为空的为当前用户对应的explorer
    $explorer = Get-Process 'explorer' | where {$_.CPU} | Select-Object -First 1

    #任务栏
    $taskBarWindow = Get-UiaWindow -ProcessId $explorer.Id -Class 'Shell_TrayWnd' 
    $QQContext.TaskBar = $taskBarWindow | Get-UiaToolBar -Name '用户显示的通知区域' | Get-UiaButton  -Name '*qq*' 
    $QQContext.TaskBar.Click()

    # 刷新主窗口
    Get-QQ
}

######################
##新建QQ群会话
######################
function New-QQGroupTalk
{
    param(
    [string]$ContactName
    ) 
    #先点击“微博”，可以避免组合好友列表折叠起来
    $QQContext.MainWindow.HubMenus.Weibo.Click() | Out-Null

    #再点击“QQ群组”选项卡
    $QQContext.MainWindow.HubMenus.Group.Click() | Out-Null

    #打开会话
    $QQContext.MainWindow.Window | 
    Get-UiaControlByChildrenIndex  -IndexChain @(4,1,3,0,0,0,0,1) |
    Get-UiaListItem -Name $ContactName |
    Invoke-UiaControlClick |
    Invoke-UiaControlClick -DoubleClick | Out-Null
    sleep -Milliseconds 100

    #聊天窗口
    $talkWindow = Get-UiaWindow -Class 'TXGuiFoundation' -Name $ContactName

    #消息框
    $editBox = $talkWindow | 
        Get-UiaControlByChildrenIndex -IndexChain @(1,0,0,0,2,3,0) |
        Get-UiaEdit

    #发送消息按钮
    $sendButton = $talkWindow |  Get-UiaButton -Name '发送(&S)'

    #关闭窗口按钮
    $closeButton = $talkWindow | Get-UiaControlByChildrenIndex -IndexChain @(2,2)

    #发送消息窗口   
    $talkObj = [PSCustomObject]@{
        Window = $talkWindow
        EditBox = $editBox
        SendButton = $sendButton
        CloseButton = $closeButton
    }

   #发送消息方法
   $talkObj | Add-Member -MemberType ScriptMethod 'SendMessage' {
    param(
    [string]$Text
    )
    $this.EditBox |  Set-QQEditTextByCopy -Text $Text
    $this.SendButton  | Set-UiaFocus | Invoke-UiaControlClick | Out-Null
  }
  return $talkObj
}

######################
#测试代码
######################
#初始化QQ上下文
Get-QQ
#会话窗口
$talkWindow = New-QQGroupTalk -ContactName 'PowerShell交流群'
#发送消息
$talkWindow.SendMessage("PowerShell中文博客：https://www.pstips.net")