/*
 Отслеживание нажатия одной из клавиш мыши с помощью
 функции GetAsyncKeyState. 
 ----------------------------------------------------------------
 Потребуется зарегистрированная библиотека scrsvc.dll
 http://forum.script-coding.com/viewtopic.php?id=8082

 Lang. JScript
 ОС WinXP, Win7

*/
 
 var oScrSvc = new ActiveXObject('ScriptService.Service');
 var oWshShell = WScript.CreateObject('WScript.Shell');
 var iAnsw;

 b_left = 0x01 		// Левая клавиша мыши
 b_right = 0x02 	// Правая клавиша мыши
 b_mid = 0x04 		// Средняя клавиша мыши
 i_index_mem = 1;

 //--------------------------------------------------------------
 oScrSvc.set_vararg(0, b_mid);
 while (1)
 {


	hRes = oScrSvc.api_call('USER32.DLL', 'GetAsyncKeyState', 1, i_index_mem);
	if (hRes==1){hRes=0;}
	if (hRes>0)
	{
		var iAnsw = oWshShell.PopUp('Нажата cредняя клавиша мыши. Продолжить?',10,'GetAsyncKeyState',4+48);
		if (iAnsw==7){break;}
	}
	WScript.Sleep(100);
 }
 //-------------------------------------------------------------- 
 WScript.Quit()