Bablosoft

Рекапча на запросах через bas

Поддержка

  • NikolasN

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

    Поддержка
    0 Votes
    14 Posts
    1279 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
  • WasTabonW

    Как получать проверять TCP соединения через Bas?

    Поддержка
    0 Votes
    1 Posts
    439 Views
    No one has replied
  • L

    Кодирование кириллицы BAS

    Поддержка
    0 Votes
    3 Posts
    985 Views
    L

    Спасибо большое! Очень помогли!

  • bag162B

    API BAS

    Поддержка
    0 Votes
    4 Posts
    2365 Views
    FoxF

    @bag162 said in API BAS:

    Всем привет. Возник такой вопрос. Есть ли офф. API BAS?
    Мне необходимо создавать новых пользователей и добавлять им скрипты.
    Искал много где, не нашёл.

    Апи лицензии планируется обновить, но не известно когда. Если есть необходимость сейчас создавать много пользователей или многим давать скрипт, можете загрузить пользователей из файла

  • T

    сервера для BAS

    Поддержка
    0 Votes
    26 Posts
    9903 Views
    ZenodrotZ

    @venom777 said in сервера для BAS:

    @Zenodrot это уже тестить надо) но если спам по почте или по смс не шлешь (проще сказать ничего черного) и прокси работают, то где-то в Нидерландах проблем не будет. А с абузами да еще и судя по твоим сообщениям на форуме - только на абузоустойчивый сервер за xxx$ :D

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

    поднял проксей, раскидал на форумы вебмастеров, 10к+ от соцсетей акков снял с них )
    ! никогда не юзаете пабликовые прокси )