Bablosoft

Баг интерфейса BAS при нестандартном масштабе

Поддержка

  • NikolasN

    Скрипт на BAS засыпает при выключении экрана

    Поддержка
    0 Votes
    14 Posts
    866 Views
    NikolasN

    Может кому-то будет полезно вот код который делает бинд , юзая софты AutoHotkey и nircmd.exe на кнопках: F7 \F8\F9
    при нажатии на которых будет:
    Заставлять комп заснуть (режим "Сон"), либо снизить яркость до 0% , либо вернёт яркость до 100% , при этом (на кнопках F8\F9) открывается\закрывается на весь экран заранее сохранённый файл png черной картинки:

    ; Путь к лог-файлу (используем стандартную папку Documents) logFile := A_MyDocuments "\AutoHotkeyLog.txt" ; Полный путь к nircmd.exe в папке Downloads nirCmdPath := "C:\Users\Admin\Downloads\nircmd-x64\nircmd.exe" ; Полный путь к картинке, которую нужно открыть imagePath := "C:\Users\Admin\Downloads\black_screen.png" ; Код для F7: запуска режима сна на компьютере при этом процессы тоже засыпают F7:: Sleep 100 SendMessage, 0x112, 0xF170, 2,, Program Manager FileAppend, %A_Now%: F7 - Экран выключен`n, %logFile% return ; Код для F8: снижение яркости экрана до нуля и открытие картинки F8:: if FileExist(nirCmdPath) ; Проверяем, существует ли nircmd.exe { ; Устанавливаем яркость на 0 Run, %nirCmdPath% setbrightness 0 FileAppend, %A_Now%: F8 - Яркость снижена до нуля`n, %logFile% } else { FileAppend, %A_Now%: F8 - nircmd.exe не найден!`n, %logFile% MsgBox, 16, Ошибка, NirCmd не найден в папке Downloads. return } if FileExist(imagePath) ; Проверяем, существует ли картинка { ; Открываем картинку с помощью стандартного просмотрщика Windows Run, %imagePath% Sleep 500 ; Ждем полсекунды, чтобы приложение загрузилось Send, {F11} ; Включаем полноэкранный режим FileAppend, %A_Now%: F8 - Картинка открыта в полноэкранном режиме`n, %logFile% } else { FileAppend, %A_Now%: F8 - Картинка не найдена!`n, %logFile% MsgBox, 16, Ошибка, Картинка не найдена по пути: %imagePath%. } return ; Код для F9: повышение яркости экрана до максимума и закрытие картинки F9:: if FileExist(nirCmdPath) ; Проверяем, существует ли nircmd.exe { Run, %nirCmdPath% setbrightness 100 FileAppend, %A_Now%: F9 - Яркость увеличена до максимума`n, %logFile% } else { FileAppend, %A_Now%: F9 - nircmd.exe не найден!`n, %logFile% MsgBox, 16, Ошибка, NirCmd не найден в папке Downloads. } ; Закрываем картинку (закрывает активное окно) Sleep 500 ; Ждем, чтобы яркость обновилась Send, !{F4} ; Отправляем Alt+F4 для закрытия активного окна FileAppend, %A_Now%: F9 - Картинка закрыта`n, %logFile% return
  • F

    Вдс виснет при работе с BAS

    Поддержка
    0 Votes
    7 Posts
    685 Views
    sergerdnS

    @fastascent said in Вдс виснет при работе с BAS:

    @sergerdn В любом случае так отключать не должно.

    Должно и даже обязано, чтобы система(Windows) могла "выжить" при нехватке оперативной памяти, если дело в этом.

  • jsmosJ

    bas вылетает

    Поддержка
    -2 Votes
    7 Posts
    834 Views
    FoxF

    @jsmos Скорее всего вы используете локальные переменные в вызываемой функции

  • T

    Вылетает BAS при использовании вызова функции в несколько потоков

    Поддержка
    0 Votes
    3 Posts
    472 Views
    S

    @TheAct1on добавьте сон

  • bag162B

    Не запускается BAS

    Поддержка
    0 Votes
    7 Posts
    2055 Views
    B

    Did you find a solution for this?