sng2c · December 19, 2015 00:09
diff --git a/AlertFlash.ahk b/AlertFlash.ahk
 #SingleInstance force
 #WinActivateForce           ; this may prevent task bar buttons from flashing when different windows are activated quickly one after the other


 DetectHiddenWindows, On
 Script_Hwnd := WinExist("ahk_class AutoHotkey ahk_pid " DllCall("GetCurrentProcessId"))
 DetectHiddenWindows, Off
 ; Register shell hook to detect flashing windows.
 DllCall("RegisterShellHookWindow", "uint", Script_Hwnd)
 OnMessage(DllCall("RegisterWindowMessage", "str", "SHELLHOOK"), "ShellEvent")


 ShellEvent(wParam, lParam) {
    if (wParam = 0x8006) ; HSHELL_FLASH
    {   ; lParam contains the ID of the window which flashed
        FlashWindowEx(lParam, FLASHW_STOP:=0, 0, 65535)
        WinGetTitle title, ahk_id %lParam%
 	Run c:\strawberry\perl\bin\wperl.exe send2linux.pl "'%title%'창이 깜빡입니다."
        WinGet, hwndWasFocused, ID, A       ; remember which window originally had the focus
        BlockInput, On                      ; we can't stop keystrokes from being lost, but we can stop them from going to the wrong application
        WinActivate, ahk_id %lParam%
        WinActivate, ahk_id %hwndWasFocused%
        BlockInput, Off
    }
 }

 ; thanks to SKAN    http://www.autohotkey.com/forum/post-280244.html#280244
 ;
 ; dwFlags can be a bitwise combination of:
 ;   FLASHW_ALL := 3        ; Flash both the window caption and taskbar button. This is  equivalent to setting FLASHW_CAPTION|FLASHW_TRAY flags.
 ;   FLASHW_CAPTION := 1    ; Flash the window caption.
 ;   FLASHW_STOP := 0       ; Stop flashing. The system restores the window to its orig. state.
 ;   FLASHW_TIMER := 4      ; Flash continuously, until the FLASHW_STOP flag is set.
 ;   FLASHW_TIMERNOFG := 12 ; Flash continuously until the window comes to foreground.
 ;   FLASHW_TRAY := 2       ; Flash the taskbar button.
 FlashWindowEx( hWnd=0, dwFlags=0, uCount=0, dwTimeout=0 ) {
    Static FW="0123456789ABCDEF01234" ; FLASHWINFO Structure
    NumPut(20,FW), NumPut(hWnd,FW,4), NumPut(dwFlags,FW,8), NumPut(uCount,FW,12), NumPut(dwTimeout,FW,16)
    Return DllCall( "FlashWindowEx", UInt,&FW )
 }
diff --git a/AREADME.md b/AREADME.md
diff --git a/notify_recv.pl b/notify_recv.pl
 #!/usr/bin/env perl
 use 5.018;
 use Mojolicious::Lite;

 get '/' => sub {
  my $self = shift;
  my $title = $self->param('title');
  my $desc = $self->param('desc');
  `notify-send "$title" "$desc"`;
  say $title;
  $self->render('index');
 };

 app->start;
 __DATA__

 @@ index.html.ep
 % layout 'default';
 % title 'Welcome';
 OK

 @@ layouts/default.html.ep
 <!DOCTYPE html>
 <html>
  <head><title><%= title %></title></head>
  <body><%= content %></body>
 </html>
diff --git a/send2linux.pl b/send2linux.pl
 use 5.016;
 use LWP::Simple;
 use Encode;
 my $title = $ARGV[0];
 $title = Encode::decode('cp949',$title);
 get 'http://10.0.2.2:3000?title='.$title; #여기 IP를 ipconfig 의 결과에 나온 게이트웨이로 맞춘다.
	#SingleInstance force
	#WinActivateForce ; this may prevent task bar buttons from flashing when different windows are activated quickly one after the other


	DetectHiddenWindows, On
	Script_Hwnd := WinExist("ahk_class AutoHotkey ahk_pid " DllCall("GetCurrentProcessId"))
	DetectHiddenWindows, Off
	; Register shell hook to detect flashing windows.
	DllCall("RegisterShellHookWindow", "uint", Script_Hwnd)
	OnMessage(DllCall("RegisterWindowMessage", "str", "SHELLHOOK"), "ShellEvent")


	ShellEvent(wParam, lParam) {
	if (wParam = 0x8006) ; HSHELL_FLASH
	{ ; lParam contains the ID of the window which flashed
	FlashWindowEx(lParam, FLASHW_STOP:=0, 0, 65535)
	WinGetTitle title, ahk_id %lParam%
	Run c:\strawberry\perl\bin\wperl.exe send2linux.pl "'%title%'창이 깜빡입니다."
	WinGet, hwndWasFocused, ID, A ; remember which window originally had the focus
	BlockInput, On ; we can't stop keystrokes from being lost, but we can stop them from going to the wrong application
	WinActivate, ahk_id %lParam%
	WinActivate, ahk_id %hwndWasFocused%
	BlockInput, Off
	}
	}

	; thanks to SKAN http://www.autohotkey.com/forum/post-280244.html#280244
	;
	; dwFlags can be a bitwise combination of:
	; FLASHW_ALL := 3 ; Flash both the window caption and taskbar button. This is equivalent to setting FLASHW_CAPTION\|FLASHW_TRAY flags.
	; FLASHW_CAPTION := 1 ; Flash the window caption.
	; FLASHW_STOP := 0 ; Stop flashing. The system restores the window to its orig. state.
	; FLASHW_TIMER := 4 ; Flash continuously, until the FLASHW_STOP flag is set.
	; FLASHW_TIMERNOFG := 12 ; Flash continuously until the window comes to foreground.
	; FLASHW_TRAY := 2 ; Flash the taskbar button.
	FlashWindowEx( hWnd=0, dwFlags=0, uCount=0, dwTimeout=0 ) {
	Static FW="0123456789ABCDEF01234" ; FLASHWINFO Structure
	NumPut(20,FW), NumPut(hWnd,FW,4), NumPut(dwFlags,FW,8), NumPut(uCount,FW,12), NumPut(dwTimeout,FW,16)
	Return DllCall( "FlashWindowEx", UInt,&FW )
	}
	#!/usr/bin/env perl
	use 5.018;
	use Mojolicious::Lite;

	get '/' => sub {
	my $self = shift;
	my $title = $self->param('title');
	my $desc = $self->param('desc');
	`notify-send "$title" "$desc"`;
	say $title;
	$self->render('index');
	};

	app->start;
	__DATA__

	@@ index.html.ep
	% layout 'default';
	% title 'Welcome';
	OK

	@@ layouts/default.html.ep
	<!DOCTYPE html>
	<html>
	<head><title><%= title %></title></head>
	<body><%= content %></body>
	</html>
	use 5.016;
	use LWP::Simple;
	use Encode;
	my $title = $ARGV[0];
	$title = Encode::decode('cp949',$title);
	get 'http://10.0.2.2:3000?title='.$title; #여기 IP를 ipconfig 의 결과에 나온 게이트웨이로 맞춘다.