LShift=0xA0;    // Код виртуальной клавиши для левого Shift.
ws=WScript;
wrap=ws.CreateObject("DynamicWrapper");
wrap.Register("user32.dll", "mouse_event", "i=uuuuu", "f=s");
wrap.Register("user32.dll", "GetAsyncKeyState", "i=l", "f=s", "r=t");
while(true) {
  wrap.mouse_event(1, 10, 0, 0, 0);         // 10 пикселов вправо.
  ws.Sleep(1000);
  if(wrap.GetAsyncKeyState(LShift)) break;  // Проверка, было ли нажатие.
  wrap.mouse_event(1, -10, 0, 0, 0);       // Влево.
  ws.Sleep(1000);
  if(wrap.GetAsyncKeyState(LShift)) break;
}