Win32::MsgBox弹出框总是被压在程序主窗口下面，怎么办？

mouse.rice

1. sub error_box {
   
2. 
   
3.     use Win32;
   
4. 
   
5.     my $Message = "格式错误，重新输入";
   
6. 
   
7.     my $Result = Win32::MsgBox( $Message , 16+4 ,"输入格式判断" );
   
8. 
   
9.     ( $Result == 6) ? &INPUT_JUDGE : exit;  #结果为真则调用子函数&INPUT_JUDGE
   
10. 
    
11. }

复制代码

程序中有这么一段关于用户输入格式判断的弹出框子函数代码，程序运行后该弹出框总是被压在主程序窗口下面，不容易发现。怎么才能让它跳到主窗口前面来呢？

dsadjkasd

use Win32::GuiTest qw(FindWindowLike SetForegroundWindow);
my @windows = FindWindowLike(0, "信号", "");
        foreach(@windows){
                SetForegroundWindow($_);
                }