http://advent.perl.kr/2011/2011-12-10.html

honey님이 작성한거 잘 이용하면 됐었는데,

네이트온 5.0에는 원격 수락 단축키가 없어졌네..........

일단은 메시지 창이 default 크기라는 가정 하에... 해당 사이즈기준  특정 위치 클릭...

use strict;

use warnings;

use Win32::GuiTest qw(:ALL);

while (1) {

    sleep 2; # 2초마다 한번씩 윈도우 창을 검색합니다.

    for my $window (FindWindowLike()) {

        my $str = sprintf("0x%08X", $window);

        $str .= ", '" .  GetWindowText($window) . "', " . GetClassName($window);

        if($str =~ /김병주/){  # 원격을 걸 수있는 사람을 설정

            

my ($x,$y, $z, $a) = GetWindowRect($window);

  print "x:" . $x . ", y:" . $y . ", z:" . $z . ", a:" . $a .  "\n";

SetForegroundWindow($window); # 찾은 윈도우에 포커스를 맞춥니다.

sleep 1;

MouseMoveAbsPix($x+280, $y+360);

SendMouse("{LEFTCLICK}");

            #SendKeys("%c"); # 원격제어 수락 단축키 Alt+C 를 뜻합니다.

sleep 2;

            print "수락되었습니다 :)"."\n";

        }

    }

}