如何在Perl自动化中关闭应用程序窗口？

Question

I have an automation which opens many applications. I want to close all the opened windows at the end of the execution. I know I can use SendKeys(%F4); But I Don't want to use send keys function. Is there any other way closing an window.??

If any please let me know...

Thanks in advance... :)

Answer 1

Use the following code.

MenuSelect("&Close", 0, GetSystemMenu(HWND, FALSE));

Which gets the default(System) menu which one can get by clicking the top left of the title bar, and makes the select operation on close.

Answer 2

单击此处显示CloseWindow $ HWND向窗口发送关闭信号。