Как написать скрипт в блокноте для клика мышкой?

Question

[KorMi]

Как через блокнот написать скрипт, позволяющий запускать эмуляцию клика левой кнопки мыши. Допустим я нажал F1 и клик происходит в том месте, где я оставил курсор с интервалом 10 секунд.
А по хорошему, нажемал на кнопки "редактировать", "активировать", "cntr+shift+N"?
У меня офисный ПК и сторонние программы не даёт установить.

Comments

[Сергей delphinpro]

написать-то скрипт можно и в блокноте. Скрипт - это просто текст.
А вот чтобы он был выполнен, нужна какая-то среда исполнения – для джаваскрипт это браузер или nodejs.

[Александр]

с помощью javascript скорее всего никак. нужно писать скрипт на powershell и привязывать его в клавише F1

[Ankhena]

Может, просто взять готовый MouseRobot или типа того?

[KorMi]

Сергей delphinpro, а как в браузере тогда выполнить? Может сохранить документ как bat? Проблема в том, что нет кода

[KorMi]

Ankhena, скачивать ПК не даёт, так как стоит фильтр

[KorMi]

Александр, powershell сторонняя программа? Если да, то увы, скачивать ничего не дает

[KorMi]

Ankhena, если это сторонняя программа, то увы(

[Александр]

KorMi, нет, не сторонняя.https://learn.microsoft.com/en-us/training/modules...

[Александр]

KorMi, на русском https://learn.microsoft.com/ru-ru/training/modules...

Answer 1

[sharpsss]

Погугли что такое батник если я правильно понял - это то что тебе нужно

Comments

[KorMi]

Смотрел. Толку мало, нужно код писать. Я пытался написать, но, ничего не выходит

Answer 2

[Макс]

Скрипт на Python библиотека PyAutoGUI.
Работает только в активном окне!

import time
import pyautogui

# Задаем начальные значения координат
x, y = pyautogui.position()

while True:
    # Ждем нажатия клавиши F1
    while not pyautogui.press('f1'):
        pass

    # Эмулируем клик левой кнопки мыши по сохраненным координатам
    pyautogui.click(x, y)

    # Ждем 10 секунд перед следующим кликом
    time.sleep(10)

эмулировать последовательность действий "редактировать", "активировать", "cntr+shift+N"

import time
import pyautogui

while True:
    # Ждем нажатия клавиши F1
    while not pyautogui.press('f1'):
        pass

    # Выполняем последовательность действий
    pyautogui.press('esc')  # Отменяем выделение предыдущего элемента, если оно было
    pyautogui.press('f2')  # Кликаем на кнопку "Редактировать"
    pyautogui.press('enter')  # Подтверждаем выбор
    pyautogui.press('tab', presses=2)  # Переходим на кнопку "Активировать" и кликаем
    pyautogui.press('enter')  # Подтверждаем выбор
    pyautogui.hotkey('ctrl', 'shift', 'n')  # Нажимаем комбинацию клавиш Ctrl+Shift+N

    # Ждем 10 секунд перед следующим кликом
    time.sleep(10)

Comments

[KorMi]

Спасибо огромное, но, питона на ПК нет и я не знаю куда входить и последовательность действий так как это офисный ПК(

[KorMi]

KorMi, вот как это выглядит

[Макс]

KorMi, этот код выполняется через командную строку в виндовс.

[Макс]

KorMi,

Set WshShell = WScript.CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")

' Задаем начальные значения координат
x = 100
y = 100

Do While True
    ' Ждем нажатия клавиши F1
    Do While WshShell.AppActivate("Your Application Title") <> True
        WScript.Sleep 100
    Loop

    ' Эмулируем клик левой кнопки мыши по сохраненным координатам
    objShell.Namespace(0).MoveSelection x, y

    ' Ждем 10 секунд перед следующим кликом
    WScript.Sleep 10000
Loop

без установки питона,
Сохраните код в блокноте с расширением .vbs
далее Win + R, введите "cmd" и нажмите Enter
с помощью команды cd. Например, если скрипт сохранен в каталоге "C:\Scripts", введите cd C:\Scripts.
запустите скрипт cscript myscript.vbs и нажмите Enter

скрипт будет выполняться в бесконечном цикле, поэтому нужно будет завершить его вручную, нажав сочетание клавиш Ctrl + C в командной строке

[KorMi]

Макс, ошибку выдает, стопка 6 символ 4, предполагает наличие whille, но нет окончания типо

[KorMi]

Макс,

[Макс]

KorMi, вместо Do While True замените на While True

Set WshShell = WScript.CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")

' Задаем начальные значения координат
x = 100
y = 100

While True
    ' Ждем нажатия клавиши F1
    Do While WshShell.AppActivate("Your Application Title") <> True
        WScript.Sleep 100
    Loop

    ' Эмулируем клик левой кнопки мыши по сохраненным координатам
    objShell.Namespace(0).MoveSelection x, y

    ' Ждем 10 секунд перед следующим кликом
    WScript.Sleep 10000
Loop

учтите, что процесс будет выполняться до тех пор, пока вы его не остановите.

Answer 3

[Надим]

Вам надо смотреть в сторону PowerShell скриптов:
https://yandex.ru/search/?text=powershell+%D0%BA%D...
К сожалению, здесь я помочь не смогу, просто говорю куда копать.