' sendkeys.vbs (by helb) ' Шлет указанные клавиши активному окну. Каждый аргумент — последовательность клавиш в формате функции SendKeys с паузой между ними. ' Аргументы вида \положительное число\ считаются задержкой в миллисекундах, используемой в этом месте вместо умолчания ' ' +^%~[]{}() заключать в фигурные скобки: {} ' BACKSPACE {BACKSPACE}, {BS}, or {BKSP} ' DEL or DELETE {DELETE} or {DEL} ' INS or INSERT {INSERT} or {INS} ' ENTER {ENTER} or ~ ' HELP {HELP} ' {ESC}{BREAK}{NUMLOCK}{CAPSLOCK}{SCROLLLOCK}{UP}{DOWN}{LEFT}{RIGHT}{HOME}{END}{PGDN}{PGUP}{TAB}{PRTSC} ' {F1}-{F16} ' SHIFT + ' CTRL ^ ' ALT % cnt = WScript.Arguments.length if cnt < 1 then WScript.Quit 'wscript.echo("lines=" & cnt) with WScript.CreateObject("WScript.Shell") for i = 0 to cnt-1 delay = checkDelay(WScript.Arguments(i)) if delay > -1 then WScript.sleep delay else .SendKeys WScript.Arguments(i) WScript.sleep 100 end if next end with function checkDelay(s) checkDelay = -1 if Left(s, 1) = "\" and Right(s, 1) = "\" then val = Mid(s, 2, Len(s)-2) if IsNumeric(val) and CStr(CLng(val)) = val and val >= 0 then checkDelay = CLng(val) end if end function |