#!/usr/bin/perl

use warnings;
use Win32::GUI;

use constant WM_CLOSE          => 16;
   
sub monitor {
    my $handle = Win32::GUI::FindWindow('', '中断远程桌面连接');
    Win32::GUI::SendMessage($handle, WM_CLOSE, 0, 0);
}

sub monitor1 {
    my $handle = Win32::GUI::FindWindow('', '断开 Windows 会话');
    Win32::GUI::SendMessage($handle, WM_CLOSE, 0, 0);
}


while(1){
    &monitor;
    &monitor1;
    sleep(2);
}


在进行SHIFT后门扫描时，如果对方3389未开启，MSTSC超时后会提示“中断远程桌面连接”，这时需要点击确定才能退出MSTSC，以上PERL脚本可以自动实现这步骤。在其他FUZZ过程中，这个也很有用。