суббота, 23 декабря 2023 г.
Portable
4 топ сайта с портативными программами
Дистрибутив linukc
Emmabuntus, универсальный дистрибутив GNU/Linux.
Этот дистрибутив был разработан для облегчения восстановления компьютеров, подаренных гуманитарным ассоциациям, в частности сообществам Эммауса (отсюда и его название), и для содействия открытию GNU / Linux новичками, а также для продления срока службы оборудования для ограничения отходов. вызвано чрезмерным потреблением сырья.
Эммабунтус используется для повторного использования компьютеров многочисленными ассоциациями во Франции и Африке.
понедельник, 18 декабря 2023 г.
Пароль на папку
Открываем эту папку и создаем в ней текстовый документ: щелкаем правой клавишей мыши-создать-текстовый документ.
После этого открываем созданный текстовый документ и вставляем в него заранее скопированный скрипт (файл с этим скриптом вы можете скачать в моём Telegram-канале).
@ECHO OFF
title Folder Private
if EXIST "HTG Locker" goto UNLOCK
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Private "HTG Locker"
attrib +h +s "HTG Locker"
echo Folder locked
goto End
: UNLOCK
echo Enter password to unlock folder
set/p "pass=>" if NOT %pass%== 12345 goto FAIL
attrib -h -s "HTG Locker"
ren "HTG Locker" Private | echo Folder Unlocked successfully
goto
End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Private
Ищем строку if NOT %pass%== 12345 goto FAIL, и вводим свой пароль, вместо 12345.
Нажимаем Файл-Сохранить как....
Пишем Имя файла: locker.bat, выбираем тип файла: Все файлы и нажимаем сохранить.
Щелкаем два раза по файлу locker и у нас появится папка Private. В этой папке будут хранится наши личные файлы, которые мы хотим зашифровать паролем.
Теперь копируем в папку Private наши файлы, которые хотим зашифровать, а после добавления файлов ещё раз нажмите два раза на файл locker.
Появится окно с вопросом, хотим ли мы зашифровать нашу папку. Подтверждаем: пишем букву "Y" и нажимаем "Enter"
Файл locker вы можете перенести в любое место на компьютере и с помощью него вы всегда сможете получить доступ к своим зашифрованным файлам!
воскресенье, 3 декабря 2023 г.
Утилиты для usb флешек
✅Ventoy
Создание загрузочных флешек с образами дисков в формате ISO/WIM/IMG/EFI. Можно сказать, революционная программа, которая может сделает из флешки универсальный инструмент.
Скачать https://blogosoft.ru/72323
Rufus
Ещё одна более популярная, чем предыдущая, (но не заслуженно) программа для создания загрузочных флешек. Со своими фишками – умеет скачивать последние чистые образы Windows, и способна создать флешку с Windows 11 без ограничений по железу.
Скачать https://blogosoft.ru/71473
✅USB Drive Factory Reset Tool
Простая, бесплатная, безопасная программа для очистки и восстановления USB накопителей. Если ваша флешка «глюканула» (причина не физическая), то программа попытается её восстановить. Когда программа определит флешку, жмём кнопку «Reset USB Drive & Restore Full Capacity» и дожидаемся окончания процесса.
Очистка и восстановление флешки программой USB Drive Factory Reset Tool
Скачать https://blogosoft.ru/73009
✅AxoFlashTest
Программа для восстановления реального объема SD-карт и флешек. Подробная инструкция по ссылке скачать, ниже.
Восстановить флешку до заводского состояния AxoFlashTest
Скачать https://blogosoft.ru/21465
✅Check Flash
Программа производит полный тест флешек и карт памяти, проверяет работоспособность и пригодность для эксплуатации. Помимо тестов работоспособности может измерить скорость чтения и записи флешки. Важно! При тесте записи, все данные удаляются, сделайте резервную копию, если нужно.
Скачать https://blogosoft.ru/37286
✅USB Secure Erase
Все знают, кто не знает, рассказываю – если файлы удалить с флешки, то их можно восстановить специальными программами. Если вам нужно продать, или отдать флешку, то нужно быть уверенным, что никто не захочет посмотреть, что же было на флешке раньше. Программа USB Secure Erase
Форматирует флешку таким образом, что восстановить файлы не получиться.
Полная очистка флешки USB Secure Erase
Скачать https://blogosoft.ru/73011
✅Bootable USB Test
Когда вы создадите загрузочную флешку, вам пригодится инструмент, который поможет её проверить, не перезагружая компьютер. Программа является виртуальной машиной для запуска загрузочных флешек.
Проверка загрузочной флешки Bootable USB Test
Скачать https://blogosoft.ru/70639
✅Ratool
Утилита предназначена для блокировки USB портов. Блокировка работает только если подключать накопители, другие USB устройства (мышки, клавиатуры, веб камеры и др.) будут работать.
Ratool, блокирует usb порты
В параметрах много интересных настроек, даже блокировка старых дискет ).
Скачать https://blogosoft.ru/70558
четверг, 4 мая 2023 г.
Макрос - перечень папок
'---------------------------------------------------------------------------------------
' Module : Module1
' Автор : EducatedFool (Игорь) Дата: 24.12.2011
' Разработка макросов для Excel, Word, CorelDRAW. Быстро, профессионально, недорого.
' http://ExcelVBA.ru/ ICQ: 5836318 Skype: ExcelVBA.ru
' Реквизиты для оплаты работы: http://ExcelVBA.ru/payments
'---------------------------------------------------------------------------------------
Option Compare Text
Sub ЗагрузкаСпискаПодпапок()
On Error Resume Next: Application.ScreenUpdating = False
FolderPath$ = Trim([c1]) ' путь к папке - из ячейки С1
If Right(FolderPath$, 1) <> "\" Then FolderPath$ = FolderPath$ & "\"
Set FSO = CreateObject("Scripting.FileSystemObject") ' создаём экземпляр FileSystemObject
Set curfold = FSO.GetFolder(FolderPath$)
' выводим информацию о главной папке в ячейку E1
[e1] = "Файлов: " & curfold.Files.Count & "; папок: " & curfold.SubFolders.Count
Dim ra As Range
For Each folder In curfold.SubFolders ' перебираем все подпапки в папке FolderPath
f1 = folder.Name ' название первой подпапки
' выводим информацию в строку состояния
Application.StatusBar = "Обрабатывается папка " & f1: DoEvents
For Each subfolder In folder.SubFolders ' перебираем все подпапки в папке curfold
n = n + 1: DoEvents: f2 = subfolder.Name ' название вложенной подпапки
info = "Файлов: " & subfolder.Files.Count & "; папок: " & subfolder.SubFolders.Count
Size = subfolder.Size ' размер папки
' диапазон для вставки информации об очередной папке
Set ra = Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 5)
ra.Value = Array(n, f1, f2, info, Size) ' заполняем ячейки данными
' добавляем гиперссылки в 2 ячейки
ra.Hyperlinks.Add ra.Cells(2), folder.Path, "", _
"Открыть папку " & f1 & vbNewLine & " в директории " & FolderPath$
ra.Hyperlinks.Add ra.Cells(3), subfolder.Path, "", _
"Открыть подпапку " & f2 & vbNewLine & " в папке " & f1
Next subfolder
Next folder
Set FSO = Nothing
Application.StatusBar = False ' очистка строки состояния Excel
End Sub
Sub Очистка()
On Error Resume Next
Dim ra As Range: Set ra = Range([A3], Range("A" & Rows.Count).End(IIf(Len(Range("A" & Rows.Count)), xlDown, xlUp))).Resize(, 5)
If ra.Row > 2 Then ra.ClearContents
End Sub