Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Opera Presto - плагины, панели, кнопки и т.д. (часть 5)

Модерирует : gyra, Maz

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

helbvtynec

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
' 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

Всего записей: 414 | Зарегистр. 19-03-2008 | Отправлено: 17:51 02-06-2018 | Исправлено: helbvtynec, 17:54 02-06-2018
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Opera Presto - плагины, панели, кнопки и т.д. (часть 5)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru