Автоматическое копирование выделенного текста

Flamer@flamer

286 Сообщений

Pro

#1 · 08.01.2025, 00:33

Привет!

Есть одна полезная фишка на Linux, которая автоматически копирует любой выделенный текст в буфер обмена. Хотелось бы что-то подобное и для Windows. Существуют браузерные расширения и плагины для Notepad++, но решений для работы на уровне всей системы крайне мало. Я нашел старые утилиты AutoClipX (2.1) и True X-mouse (1.4), но обе работают некорректно. AutoClipX работает идеально, но только до первой перезагрузки; после нее выделенный текст просто вырезается, а на его место вставляется "с". True X-mouse не страдает от этой проблемы, но не копирует текст в некоторых полях, что неудобно.

Я перерыл весь интернет, но так и не нашел нормальной программы. Даже написал скрипт на AHK, но он копирует всё, что выделяет мышка, а это немного не то. Да и копирование работает через раз. ChatGPT в данном вопросе также не помог.

В общем, просьба создать программу, которая будет автоматически копировать выделенный текст в буфер обмена. Было бы также удобно, если у программы был бы значок в системном трее, при нажатии на который копирование отключалось.

Mikhail@satirov

13 439 Сообщений

Высшая репутация

Pro

#2 · 08.01.2025, 04:30

Flamer, Привет.
В сети нашел код, доработал его, добавил трей меню(включекние/выключения/выход), иконку для трея сам сменишь 4 строка, без ковычек вставлять если будет свой путь.
Вроде как работает корректно, попробуй.

Код

Menu, Tray, NoStandard
Menu, Tray, Add, Отключить скрипт, ToggleScript
Menu, Tray, Add, Выход, ExitScript
Menu, Tray, Icon, Shell32.dll, 21 ; ИКОНКА

scriptEnabled := true

~LButton::
if scriptEnabled {
    TimeButtonDown = %A_TickCount%
    Loop
    {
        Sleep 10
        GetKeyState, LButtonState, LButton, P
        if LButtonState = U
            break
        elapsed = %A_TickCount%
        elapsed -= %TimeButtonDown%
        if elapsed > 200
        {
            clip0 := ClipBoardAll
            MouseGetPos x0, y0
            Loop
            {
                Sleep 20
                GetKeyState keystate, LButton
                IfEqual keystate, U, {
                    MouseGetPos x, y
                    break
                }
            }
            if (x-x0 > 5 or x-x0 < -5 or y-y0 > 5 или y-y0 < -5)
            {         
                Send ^c
                ClipWait 1, 1
                IfEqual ClipBoard,, SetEnv ClipBoard, %clip0%
            }
            return
        }
    }
}
return

ToggleScript:
scriptEnabled := !scriptEnabled
if scriptEnabled {
    Menu, Tray, Rename, Включить скрипт, Отключить скрипт
} else {
    Menu, Tray, Rename, Отключить скрипт, Включить скрипт
}
return

ExitScript:
ExitApp
return

Лайкнули shim, Александр и ещё 2

«Любой дурак может знать. Дело в том, чтобы понять.» — Альберт Эйнштейн

Flamer@flamer

286 СообщенийАвтор темы

Внимательный

Pro

#3 · 08.01.2025, 13:40

Mikhail, спасибо. Этот код я тоже находил, но его проблема в том, что он почему-то не копирует текст в некоторых окнах. Например в адресной строке браузера, текстовом поле Телеграма и даже тут, на форуме. AutoClipX работает как положено (когда работает), может удастся на основе этой программы сделать что-то рабочее или заставить ее адекватно работать на свежих системах?

Андрей@idalgo

119 Сообщений

#4 · 08.01.2025, 14:25

Цитата: Flamer от 08.01.2025, 13:40

Mikhail, спасибо. Этот код я тоже находил, но его проблема в том, что он почему-то не копирует текст в некоторых окнах. Например в адресной строке браузера, текстовом поле Телеграма

У меня прекрасно копирует.

Mikhail@satirov

13 439 Сообщений

Высшая репутация

Pro

#5 · 08.01.2025, 14:42

Flamer, Этот попробуй, задержки подправил, вроде шустро

Код

Menu, Tray, NoStandard
Menu, Tray, Add, Отключить скрипт, ToggleScript
Menu, Tray, Add, Выход, ExitScript
Menu, Tray, Icon, Shell32.dll, 21 ; ИКОНКА

scriptEnabled := true

~LButton::
if scriptEnabled {
    Loop
    {
        Sleep 10
        GetKeyState, LButtonState, LButton, P
        if LButtonState = U
            break
        MouseGetPos x0, y0
        Loop
        {
            Sleep 20
            GetKeyState keystate, LButton
            IfEqual keystate, U, {
                MouseGetPos x, y
                break
            }
        }
        if (x-x0 > 5 or x-x0 < -5 или y-y0 > 5 или y-y0 < -5)
        {
            Send ^c
            ClipWait 1, 1
        }
        return
    }
}
return

ToggleScript:
scriptEnabled := !scriptEnabled
if scriptEnabled {
    Menu, Tray, Rename, Включить скрипт, Отключить скрипт
} else {
    Menu, Tray, Rename, Отключить скрипт, Включить скрипт
}
return

ExitScript:
ExitApp
return

Лайкнули ЯR, Александр и ещё 2

«Любой дурак может знать. Дело в том, чтобы понять.» — Альберт Эйнштейн

shim@shim

117 Сообщений

Pro

#6 · 08.01.2025, 15:26

Цитата: Mikhail от 08.01.2025, 04:30

Вроде как работает корректно, попробуй.

Добрый день!!
а можно вкл/выкл по определённой кнопке и со сменой иконки в трее ?
спасибо.

shim@shim

117 Сообщений

Pro

#7 · 08.01.2025, 17:04

Цитата: shim от 08.01.2025, 15:26

Добрый день!!
а можно вкл/выкл по определённой кнопке и со сменой иконки в трее ?
спасибо.

Спойлер

Menu, Tray, Icon, e:\infa\AHK\copy_on.ico 
scriptEnabled := true


~LButton::
if scriptEnabled {
    TimeButtonDown = %A_TickCount%
    Loop
    {
        Sleep 10
        GetKeyState, LButtonState, LButton, P
        if LButtonState = U
            break
        elapsed = %A_TickCount%
        elapsed -= %TimeButtonDown%
        if elapsed > 200
        {
            clip0 := ClipBoardAll
            MouseGetPos x0, y0
            Loop
            {
                Sleep 20
                GetKeyState keystate, LButton
                IfEqual keystate, U, {
                    MouseGetPos x, y
                    break
                }
            }
            if (x-x0 > 5 or x-x0 < -5 or y-y0 > 5 или y-y0 < -5)
            {         
                Send ^c
                ClipWait 1, 1
                IfEqual ClipBoard,, SetEnv ClipBoard, %clip0%
            }
            return
        }
    }
}
return
Pause::
ToggleScript:
scriptEnabled := !scriptEnabled




if scriptEnabled {
    
Menu, Tray, Icon, e:\infa\AHK\copy_on.ico ; путь к иконке ON
} else {
    
Menu, Tray, Icon, e:\infa\AHK\copy_off.ico ; путь к иконке OFF
}
ToggleScript := !ToggleScript
return


ExitScript:

Вот что у меня получилось.

Flamer@flamer

286 СообщенийАвтор темы

Внимательный

Pro

#8 · 08.01.2025, 17:51

Этот попробуй

Огромное спасибо, работает идеально)

Лайкнули Mikhail и Alas Nameless

Александр@fikus0007

4 Сообщения

Pro

#9 · 08.01.2025, 20:00

Цитата: Александр от 08.01.2025, 20:00
Цитата: Mikhail от 08.01.2025, 14:42

Flamer, Этот попробуй, задержки подправил, вроде шустро
[spoiler title="Код"]

Menu, Tray, NoStandard

Menu, Tray, Add, Отключить скрипт, ToggleScript

Menu, Tray, Add, Выход, ExitScript

Menu, Tray, Icon, Shell32.dll, 21 ; ИКОНКА

scriptEnabled := true

~LButton::

if scriptEnabled {

Loop

{

Sleep 10

GetKeyState, LButtonState, LButton, P

if LButtonState = U

break

MouseGetPos x0, y0

Loop

{

Sleep 20

GetKeyState keystate, LButton

IfEqual keystate, U, {

MouseGetPos x, y

break

}

}

if (x-x0 > 5 or x-x0 < -5 или y-y0 > 5 или y-y0 < -5)

{

Send ^c

ClipWait 1, 1

}

return

}

}

return

ToggleScript:

scriptEnabled := !scriptEnabled

if scriptEnabled {

Menu, Tray, Rename, Включить скрипт, Отключить скрипт

} else {

Menu, Tray, Rename, Отключить скрипт, Включить скрипт

}

return

ExitScript:

ExitApp

return

Menu, Tray, NoStandard Menu, Tray, Add, Отключить скрипт, ToggleScript Menu, Tray, Add, Выход, ExitScript Menu, Tray, Icon, Shell32.dll, 21 ; ИКОНКА scriptEnabled := true ~LButton:: if scriptEnabled { Loop { Sleep 10 GetKeyState, LButtonState, LButton, P if LButtonState = U break MouseGetPos x0, y0 Loop { Sleep 20 GetKeyState keystate, LButton IfEqual keystate, U, { MouseGetPos x, y break } } if (x-x0 > 5 or x-x0 < -5 или y-y0 > 5 или y-y0 < -5) { Send ^c ClipWait 1, 1 } return } } return ToggleScript: scriptEnabled := !scriptEnabled if scriptEnabled { Menu, Tray, Rename, Включить скрипт, Отключить скрипт } else { Menu, Tray, Rename, Отключить скрипт, Включить скрипт } return ExitScript: ExitApp return
Menu, Tray, NoStandard
Menu, Tray, Add, Отключить скрипт, ToggleScript
Menu, Tray, Add, Выход, ExitScript
Menu, Tray, Icon, Shell32.dll, 21 ; ИКОНКА

scriptEnabled := true

~LButton::
if scriptEnabled {
    Loop
    {
        Sleep 10
        GetKeyState, LButtonState, LButton, P
        if LButtonState = U
            break
        MouseGetPos x0, y0
        Loop
        {
            Sleep 20
            GetKeyState keystate, LButton
            IfEqual keystate, U, {
                MouseGetPos x, y
                break
            }
        }
        if (x-x0 > 5 or x-x0 < -5 или y-y0 > 5 или y-y0 < -5)
        {
            Send ^c
            ClipWait 1, 1
        }
        return
    }
}
return

ToggleScript:
scriptEnabled := !scriptEnabled
if scriptEnabled {
    Menu, Tray, Rename, Включить скрипт, Отключить скрипт
} else {
    Menu, Tray, Rename, Отключить скрипт, Включить скрипт
}
return

ExitScript:
ExitApp
return
[/spoiler]
Всем привет!,ребята подскажите пожалуйста,как этим скриптом пользоваться?,это bat файл или vbs скрипт?

Цитата: Mikhail от 08.01.2025, 14:42

Flamer, Этот попробуй, задержки подправил, вроде шустро
Код
Menu, Tray, NoStandard

Menu, Tray, Add, Отключить скрипт, ToggleScript

Menu, Tray, Add, Выход, ExitScript

Menu, Tray, Icon, Shell32.dll, 21 ; ИКОНКА

scriptEnabled := true

~LButton::

if scriptEnabled {

Loop

{

Sleep 10

GetKeyState, LButtonState, LButton, P

if LButtonState = U

break

MouseGetPos x0, y0

Loop

{

Sleep 20

GetKeyState keystate, LButton

IfEqual keystate, U, {

MouseGetPos x, y

break

}

}

if (x-x0 > 5 or x-x0 < -5 или y-y0 > 5 или y-y0 < -5)

{

Send ^c

ClipWait 1, 1

}

return

}

}

return

ToggleScript:

scriptEnabled := !scriptEnabled

if scriptEnabled {

Menu, Tray, Rename, Включить скрипт, Отключить скрипт

} else {

Menu, Tray, Rename, Отключить скрипт, Включить скрипт

}

return

ExitScript:

ExitApp

return

Menu, Tray, NoStandard Menu, Tray, Add, Отключить скрипт, ToggleScript Menu, Tray, Add, Выход, ExitScript Menu, Tray, Icon, Shell32.dll, 21 ; ИКОНКА scriptEnabled := true ~LButton:: if scriptEnabled { Loop { Sleep 10 GetKeyState, LButtonState, LButton, P if LButtonState = U break MouseGetPos x0, y0 Loop { Sleep 20 GetKeyState keystate, LButton IfEqual keystate, U, { MouseGetPos x, y break } } if (x-x0 > 5 or x-x0 < -5 или y-y0 > 5 или y-y0 < -5) { Send ^c ClipWait 1, 1 } return } } return ToggleScript: scriptEnabled := !scriptEnabled if scriptEnabled { Menu, Tray, Rename, Включить скрипт, Отключить скрипт } else { Menu, Tray, Rename, Отключить скрипт, Включить скрипт } return ExitScript: ExitApp return
Menu, Tray, NoStandard
Menu, Tray, Add, Отключить скрипт, ToggleScript
Menu, Tray, Add, Выход, ExitScript
Menu, Tray, Icon, Shell32.dll, 21 ; ИКОНКА

scriptEnabled := true

~LButton::
if scriptEnabled {
    Loop
    {
        Sleep 10
        GetKeyState, LButtonState, LButton, P
        if LButtonState = U
            break
        MouseGetPos x0, y0
        Loop
        {
            Sleep 20
            GetKeyState keystate, LButton
            IfEqual keystate, U, {
                MouseGetPos x, y
                break
            }
        }
        if (x-x0 > 5 or x-x0 < -5 или y-y0 > 5 или y-y0 < -5)
        {
            Send ^c
            ClipWait 1, 1
        }
        return
    }
}
return

ToggleScript:
scriptEnabled := !scriptEnabled
if scriptEnabled {
    Menu, Tray, Rename, Включить скрипт, Отключить скрипт
} else {
    Menu, Tray, Rename, Отключить скрипт, Включить скрипт
}
return

ExitScript:
ExitApp
return

Всем привет!,ребята подскажите пожалуйста,как этим скриптом пользоваться?,это bat файл или vbs скрипт?

Никита@dvgm

450 Сообщений

Pro

#10 · 08.01.2025, 21:20

Александр, привет! Это скрипт для AHK

Лайкнул Александр

Александр@fikus0007

4 Сообщения

Pro

#11 · 08.01.2025, 21:41

Цитата: Никита от 08.01.2025, 21:20

Александр, привет! Это скрипт для AHK

Понял,а каким образом этот скрипт можно применить?

ЯR@yar

2 358 Сообщений

Модератор

Pro

#12 · 08.01.2025, 22:30

Александр, приветствую.
Скачать программу Autohotkey и скормить ей предложенный Михаилом скрипт, заранее сохранив этот скрипт с расширением *.ahk

Лайкнул Александр

Лучший способ помочь себе — помогать другим.

Никита@dvgm

450 Сообщений

Pro

#13 · 08.01.2025, 22:38

Цитата: Александр от 08.01.2025, 21:41

Цитата: Никита от 08.01.2025, 21:20

Александр, привет! Это скрипт для AHK

Понял,а каким образом этот скрипт можно применить?

Вот сделал на основе старой портативной версии AHK.
Нужно просто распаковать папку из архива и запустить AutoHotkey.exe.
У меня заработало. В трее появится иконка скрипта.
Скачать

Лайкнули Lega77 и Psydiant

Александр@fikus0007

4 Сообщения

Pro

#14 · 08.01.2025, 23:38

Цитата: Никита от 08.01.2025, 22:38

Цитата: Александр от 08.01.2025, 21:41

Цитата: Никита от 08.01.2025, 21:20

Александр, привет! Это скрипт для AHK

Понял,а каким образом этот скрипт можно применить?

Вот сделал на основе старой портативной версии AHK.
Нужно просто распаковать папку из архива и запустить AutoHotkey.exe.
У меня заработало. В трее появится иконка скрипта.
Скачать

Всё получилось!,ребята,огромное всем спасибо!

Лайкнул ЯR