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;  #結(jié)果為真則調(diào)用子函數(shù)&INPUT_JUDGE
   
10. 
    
11. }

復(fù)制代碼

程序中有這么一段關(guān)于用戶輸入格式判斷的彈出框子函數(shù)代碼，程序運行后該彈出框總是被壓在主程序窗口下面，不容易發(fā)現(xiàn)。怎么才能讓它跳到主窗口前面來呢？

dsadjkasd

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