実行時にQTPのフィールドをハイライトしながらスナップショットまたはスクリーンショットを撮る

Question

QTPで実行中にそのフィールドを強調表示しながら、フィールドのスクリーンショットを撮ろうとしています。

systemUtil.Run "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "--ignore-certificate-errors -incognito " & "www.google.com" 

Browser("Google").Page("Google").WebEdit("Search").highlight 

While Browser("Google").Page("Google").WebEdit("Search").highlight = True 
Browser("Google").Page("Google").WebEdit("Search").CaptureBitmap("C:\Google.bmp") 
Wend 

ありがとうございます、いずれのリードも私に役立ちます。

Answer 1

Highlightとの両方のメソッドは同期しています。これは、関数がハイライト操作/ビットマップキャプチャを終了した時点で終了することを意味します。ハイライトの点滅をキャプチャするには、実行が終了してから一定時間画面をキャプチャする独自の関数を作成する必要がありますが、これはおそらくマルチスレッドを必要とし、VBScriptには適していません。

もう1つのことは、テスト実行のムービーをキャプチャするようUFTに指示することです。ハイライトされたオブジェクトが含まれます（手動でクリップ内の場所を見つけてキャプチャする必要があります）。

ツール - >オプション - > GUIテスト - >スクリーンキャプチャ - >結果のムービーを保存。