Использование Alt Tab и ожидание, пока окно станет активным

Question

Я пишу скрипт для использования в DiaDem. Скрипт использует WshShell для копирования некоторых данных в буфер обмена. Затем Alt TAB, затем вставьте. Прямо сейчас у меня есть функция ожидания. Иногда это не удается. Я хочу, чтобы окно ожидания стало активным, прежде чем вставлять.

Я пробовал WinWait, но он не работает правильно.

Sub SetClip(sContents)
  Dim WshShell: Set WshShell = CreateObject("WScript.Shell")
  WshShell.Run "cmd.exe /c echo " & sContents & " | clip", 0, TRUE
  WshShell.SendKeys "%{TAB}",True
  Call Pause(.1) 'This is my current method of waiting on the window.
  WshShell.SendKeys "^v"
  WshShell.Run "cmd.exe /c echo off | clip", 0, TRUE 'clear clipboard
  Set WshShell = nothing
End Sub

Мне не удалось получить код, который я пытался работать. Код написан в среде сценариев DiaDem.