Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Закладки » Сценарии для Windows

Модерирует : KLASS, IFkO

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225

Открыть новую тему     Написать ответ в эту тему

KLASS



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Старые и смежные темы: по CMD и в Программах | по PowerShell | В помощь системному администратору | Прикладное программирование

PowerShell
Версии | Ассоциация и подпись сценариев
Сценарий для ассоциации файлов PowerShell и запуска неподписанных скриптов.
 
Прочее
Расширение возможностей
Функции
Write-Color
Output-DebugString
Провайдеры
Готовые скрипты
Полезные ссылки | Будет ли репозиторий PowerShell на ru-board?
Книги в PDF
Cheat Sheets
 

Cmd
Для перекодирования кириллицы 866<—>1251 пользуйтесь онлайн сервисом Перекодировщик кириллицы
 
Готовые решения и частые вопросы
 
Описания работы команд и символов участниками темы:
setlocal enabledelayedexpansion и переменные окружения
символы & и && в командной строке
Переменная %0
 
Полезные ссылки и утилиты

WSH (VBScript, JScript)
Программирование "удобняшек" на VBScript

Примечания:
• Большие куски кода заключайте в тэг [ more ]
• Чтобы не копировались концевые пробелы из форума, жмите на ссылку "Редактировать" в посте, и уже из редактора копируйте код без пробелов иначе сценарий может работать неправильно. Также для удаления концевых пробелов пользуйтесь скриптом от Nagual, или VBS-Скрипт-Модулем от ViSiToR.
• Сторонние консольные утилиты можно использовать только в виде готового решения и только в рамках сценариев. Никаких обсуждений и обучений работе с утилитами не предусмотрено и прямо запрещено правилами топика.
Шапка и около-темные вопросы |

Всего записей: 11122 | Зарегистр. 12-10-2001 | Отправлено: 13:40 17-02-2018 | Исправлено: YuS 2, 08:24 19-06-2021
pressF



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот такой рабочий вариант у меня получился, к сожалению из-за Get-ChildItem отрабатывает по всем файлам в папке. Хочется чтобы  и по отдельности было.
 

Код:
 
Windows Registry Editor Version 5.00
 
[HKEY_CURRENT_USER\Software\Classes\*\shell\Get SHA512]
@="Get file hash SHA-512"
 
[HKEY_CURRENT_USER\Software\Classes\*\shell\Get SHA512\command]
@="powershell -WindowStyle Minimized -Command Get-ChildItem -Recurse -File | Select-Object Name,Length,@{N='SHA512';E={(Get-FileHash -LiteralPath $_.FullName -Algorithm SHA512).Hash.tolower()}} | Sort-Object -Property Name,Length | Format-List | clip"
 

 
Как мне в нём изменить формат вывода чтобы он изменился с такого
 

Код:
 
Name   : a1.pdf
Length : 2391299
SHA512 : 4bb9d00637d1af11b8c51ef23b7ece28075a564848dcc1032e042bb1cca6373ea70742f003b3e70b7fdd1e1808d4bf77f089adfe5cfca9
         3ab0f498fb1f358acd
 
Name   : b1.pdf
Length : 2574804
SHA512 : 03092823a8a9bc32d4dbc7612a6c3eeca5dac54827dcb48890f5f827c7202a765ff2528ea0f4a90a6c3338c8669590042c567af8f4b933
         42fc156934a6a43535
 

 
на такой
 

Код:
Name: a1.pdf
Length: 2391299
SHA512: 4bb9d00637d1af11b8c51ef23b7ece28075a564848dcc1032e042bb1cca6373ea70742f003b3e70b7fdd1e1808d4bf77f089adfe5cfca93ab0f498fb1f358acd
 
Name: b1.pdf
Length: 2574804
SHA512: 03092823a8a9bc32d4dbc7612a6c3eeca5dac54827dcb48890f5f827c7202a765ff2528ea0f4a90a6c3338c8669590042c567af8f4b93342fc156934a6a43535

 
+В нём отсутствует подстановка размера в нужном виде. Ищу решение!!
+С кодировкой пока не разобрался. В документаций сказано UTF8 по умолчанию. Почему иероглифы то тогда?!
 
Как мне изменить названия Name, Length на русские Имя и Размер, а так же заменить SHA512 на Хэш-сумма (SHA512)???
Как сделать чтобы несколько окон не открывались одновременно а операция выполнялась в одном потоке? Такое возможно?

Всего записей: 1121 | Зарегистр. 29-03-2023 | Отправлено: 05:57 09-07-2023 | Исправлено: pressF, 11:29 09-07-2023
pressF



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
чтобы для одного файла в папке считал пришлось такой вариант добавить, теперь 2 пункта в меню
 

Код:
 
Windows Registry Editor Version 5.00
 
[HKEY_CURRENT_USER\Software\Classes\*\shell\Get SHA512]
@="Get File Hash"
 
[HKEY_CURRENT_USER\Software\Classes\*\shell\Get SHA512\command]
@="powershell -WindowStyle Minimized -Command Get-Item -LiteralPath '%1' | Select-Object Name,Length,@{N='SHA512';E={(Get-FileHash -LiteralPath $_.FullName -Algorithm SHA512).Hash.ToLower()}} | Sort-Object -Property Name,Length | Format-List | clip"
 

Всего записей: 1121 | Зарегистр. 29-03-2023 | Отправлено: 11:48 09-07-2023
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
pressF, ChatGPT?
Не стоит использовать clip — это консольная, вместо неё Set-Clipboard.
Для задания ширины строк — Out-String.
Не стоит использовать в ветке HKEY_CURRENT_USER\Software\Classes\*\shell\ рекурсивно команду Get-ChildItem -Recurse, для папки есть ветка HKEY_CLASSES_ROOT\Directory и параметр %V.
пример для вложенного меню с SHA1 для клика пкм на файле, для клика пкм в папке по пустому месту, для клика пкм на папке
 
 

Всего записей: 3521 | Зарегистр. 16-08-2012 | Отправлено: 00:16 10-07-2023
pressF



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
iNNOKENTIY21

Цитата:
ChatGPT?

Нет. Весь айсберг был загуглен по ключевикам
В ТГ вчера вместе разобрали всё...
Через SendTo меню надо чтобы и одиночные файлы и выделенные обрабатывались. По другому никак. Ну или спец. ps утилиту как мост подключать.

Всего записей: 1121 | Зарегистр. 29-03-2023 | Отправлено: 05:53 10-07-2023
BorlandIMHO

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
pressF

Цитата:
Через SendTo меню надо чтобы и одиночные файлы и выделенные обрабатывались.


Код:
$args|foreach{...}
обработает произвольное количество аргументов. Если надо обрабатывать как файлы по именам, так и файлы внутри поименованных папок - для файлов каждой папки придётся звать gci+ещё один foreach  {...}, "вложенный".
Конструкция, правда, будет громоздкая...
И скрипт придётся в файле сохранять...

----------
http://www.imho.ws

Всего записей: 2403 | Зарегистр. 12-10-2006 | Отправлено: 23:48 10-07-2023 | Исправлено: BorlandIMHO, 23:59 10-07-2023
pressF



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
не понимаю почему это не работает в контекстном меню но работает в PS ISE (начало строки до get-item уберите и подставьте путь до файла чтобы в редакторе запустить)
"powershell -WindowStyle Minimized -Command Get-Item -LiteralPath '%1' | Select-Object Name,Length,@{N="Size";E={"$($_.length/1MB) MiB, $($_.length/1000000) Mb"}},@{N='SHA512';E={(Get-FileHash -LiteralPath $_.FullName -Algorithm SHA512).Hash.ToLower()}} | Sort-Object -Property Name,Length | Format-List | clip"
 
3 суток потратил на такую простую задачу
завтра спрошу на stackoverflow
иссякло моё терпение надо сразу было

Всего записей: 1121 | Зарегистр. 29-03-2023 | Отправлено: 22:52 11-07-2023 | Исправлено: pressF, 22:55 11-07-2023
LevT



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
pressF
 
из хелпа
 
    If the value of Command is a script block, the script block must be enclosed
    in braces ({}). You can specify a script block only when running PowerShell.exe
    in Windows PowerShell. The results of the script block are returned to the
    parent shell as deserialized XML objects, not live objects.

Всего записей: 17168 | Зарегистр. 14-10-2001 | Отправлено: 00:07 12-07-2023
Simple Code

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Думал выкладывать или нет, может кому пригодится. Интересно было решить данную задачку, с выбором нескольких элементов через контекстное меню. Требования NET 4.7.2.
Приложение в качестве связующего звена между выбором нескольких файлов или папок в пользовательских контекстных меню проводника Windows и отправкой всех выбранных файлов в различные скрипты или сторонние инструменты.  
Демонстрация
Скачать
 
Выбранные файлы хранятся в переменных:
для cmd: !$Files! (обязательно отложенное раскрытие).
для powershell: $Files
 
P/s/ Утилита в ранней стадии тестирования. Пытался сделать максимально простое использование. Пока что так, корявенько, но работает, а может и нет

Всего записей: 172 | Зарегистр. 19-11-2022 | Отправлено: 13:38 13-07-2023
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Simple Code, а как бы исходники увидеть?

Всего записей: 3521 | Зарегистр. 16-08-2012 | Отправлено: 22:22 13-07-2023
BorlandIMHO

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
pressF

Цитата:
Конструкция, правда, будет громоздкая...
И скрипт придётся в файле сохранять...
 

Криво-косо, обрабатываются только файлы {"допилить" для папок можно, но особого смысла не вижу} и в не очень больших количествах (ограничения на длину командной строки).
 
1. cmd-файл по адресу %USERPROFILE%\AppData\Roaming\Microsoft\Windows\SendTo с именем "Hash to clipboard.cmd"
Код:
pwsh -File "c:\Scripts\SHA512_clip.ps1" %*

2. Пош-скрипт "c:\Scripts\SHA512_clip.ps1" {Может, в принципе, лежать где угодно, но чем короче полное имя тем лучше: больше остаётся для обрабатываемых файлов}
Код:
$Result=@()
foreach ($arg in $Args) {$Result+=$(get-item -LiteralPath $arg | Select-Object Name,Length,@{N='Size';E={"$($_.Length/1MB) Mib, $($_.Length/1000000) Mb"}},@{N='SHA512';E={(Get-FileHash -LiteralPath $_.FullName -Algorithm SHA512).Hash.ToLower()}})}
$Result | Sort-Object -Property Name,Length | Format-List | Out-string | Set-Clipboard
 

 
Выделяете файлы для обработки, из контекстного меню Отправить->Hash to Clipboard
 
Отлаживалось на пош 7, но вроде там нет ничего, что не заработало бы на 5.1....
 
(Добавлено)
Да, работает на 5.1. (на самом деле - начиная с 3.0)
Заодно аптемезиравал SHA512_clip.ps1:

Код:
$Args.ForEach({get-item -LiteralPath $_ | Select-Object Name,Length,@{N='Size';E={"$($_.Length/1MB) Mib, $($_.Length/1000000) Mb"}},@{N='SHA512';E={(Get-FileHash -LiteralPath $_.FullName -Algorithm SHA512).Hash.ToLower()}}})  | Sort-Object -Property Name,Length | Format-List | Out-string | Set-Clipboard


----------
http://www.imho.ws

Всего записей: 2403 | Зарегистр. 12-10-2006 | Отправлено: 09:28 19-07-2023 | Исправлено: BorlandIMHO, 11:18 19-07-2023
toadmr

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Приветствую!
Хочу сделать удобную штуку на PowerShell PODE
Нашел образец здесь
 
Набросал скрипт и шаблон, но оно не работает и у меня уже, походу, взгляд замылился...
 
Скрипт:
Подробнее...
 
Файл шаблона:
[code]Подробнее...
 
Помогите разобраться, плиз.

Всего записей: 21 | Зарегистр. 12-04-2023 | Отправлено: 17:59 03-08-2023
ExDimanya



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BorlandIMHO
Цитата:
Заодно аптемезиравал SHA512_clip.ps1:
Чего сделал?

----------
Клон полезняшек от Ratiborus
Телеграм
Sic transit gloria mundi

Всего записей: 12765 | Зарегистр. 19-04-2018 | Отправлено: 18:19 03-08-2023
BorlandIMHO

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ExDimanya

Цитата:
Чего сделал?

Провёл практически ничего не дающую оптимизацию. Теоретически - код без нескольких лишних операций и одной лишней переменной работает чуть быстрее. На практике - выигрыш если и будет, то на уровне погрешности измерения. Ну и, как побочный эффект - оптимизированный код сложнее для чтения/понимания человеком. Хотя делает, в конечном итоге, ровно то же самое...

----------
http://www.imho.ws

Всего записей: 2403 | Зарегистр. 12-10-2006 | Отправлено: 00:04 04-08-2023
iNNOKENTIY21



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Set-NetAdapterPnPCapabilities.ps1
 
“Разрешать вывод компьютера из ждущего режима, сетевой картой, только с помощью «магического пакета».”  

Код:
Get-NetAdapter -Physical |  & 'К:\Скрипту путь\Set-NetAdapterPnPCapabilities.ps1' -Value 256 -Verbose

 
“Отключить способность мыши пробуждать компьютер”

Код:

$mouse = (POWERCFG /DEVICEQUERY wake_armed | Select-String -Pattern 'мышь|mouse').Line
 
if ($mouse) { $mouse | ForEach-Object -Process { POWERCFG /DEVICEDISABLEWAKE $PSItem } }
 

 
“Установка тайм-аутов для отключения устройств” Set-PowerTimeout.ps1
 
Таймеры пробуждения, текущая схема электропитания.
При питании от сети, отключить:

Код:
POWERCFG /SETACVALUEINDEX SCHEME_CURRENT SUB_SLEEP RTCWAKE 0

При питании от батареи, отключить:

Код:
POWERCFG /SETDCVALUEINDEX SCHEME_CURRENT SUB_SLEEP RTCWAKE 0


Всего записей: 3521 | Зарегистр. 16-08-2012 | Отправлено: 13:17 04-08-2023 | Исправлено: iNNOKENTIY21, 13:27 04-08-2023
toadmr

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У меня возник такой вопрос
Хочу сделать функцию для в PowerShell, для Windows форм и встал вопрос, как задать имя переменной в функции из передаваемого значения для этой функции.
 
Например:

Код:
 
function Test-Func ($VarName, $FormType){
    $VarName = New-Object System.Windows.Forms.$FormType
    ....    
}
 

Test-Func -FormType 'Label' -VarName 'Label'
 
Как мне $VarName сделать уникальным в каждом случае?
Типа так?

Код:
 
function Test-Func ($VarName, $FormType){
    ${$VarName} = New-Object System.Windows.Forms.$FormType
    ....
}
 

Подскажите, плиз
 
Вопрос отпал, именно так и надо делать )

Код:
 
function Test-Func ($VarName, $FormType){
    ${$VarName} = New-Object System.Windows.Forms.$FormType
    ....
}
 

Всего записей: 21 | Зарегистр. 12-04-2023 | Отправлено: 11:17 11-08-2023 | Исправлено: toadmr, 11:41 11-08-2023
Unitaz



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Граждане поможите кто чем может .
Как в батнике переменной ID (число) присвоить значение ключа реестра  
 
 
например значение ключа
[HKEY_LOCAL_MACHINE\SOFTWARE\DA\V\WorkStation\0]
"id"=dword:00000001

Всего записей: 2291 | Зарегистр. 28-06-2002 | Отправлено: 11:25 11-08-2023 | Исправлено: Unitaz, 11:46 11-08-2023
BorlandIMHO

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Unitaz

Цитата:
Как в батнике переменной ID (число) присвоить значение ключа реестра


Код:
for /F "usebackq tokens=3" %%A in (`reg query HKLM\SOFTWARE\DA\V\WorkStation\0 /v id`) do set ID=%%A

Тонкость: в реестре 16-чное значение (0x00000001), переменная ID получит текстовое значение "0x1". Если же использовать {set /A ID=%%A}, то ID получит 10-чное числовое значение "1".

----------
http://www.imho.ws

Всего записей: 2403 | Зарегистр. 12-10-2006 | Отправлено: 09:22 14-08-2023
toadmr

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопрос по GUI
Есть форма, на которой расположены текстовое поле и кнопка
Как сделать, чтобы при нажатии на кнопку, текстовое поле очищалось?

Код:
 
# Рисуем форму
Add-Type -Assembly System.Windows.Forms
$MainForm = New-Object System.Windows.Forms.Form
$MainForm.Text ='Форма'
$MainForm.Width = 500
$MainForm.Height = 400
$Mainform.StartPosition = 'CenterScreen'
$MainForm.AutoSize = $true
 
# Текстовое поле
$TextBox = New-Object System.Windows.Forms.TextBox
$TextBox.Location  = New-Object System.Drawing.Point(10,75)
$textBox.Size = New-Object System.Drawing.Size(460,50)
$TextBox.Font = New-Object System.Drawing.Font("Lucida Console",12,[System.Drawing.FontStyle]::Regular)
$MainForm.Controls.add($TextBox)
 
# Кнопка
$button = New-Object System.Windows.Forms.Button
$button.Text = 'Добавить'
$button.Location = New-Object System.Drawing.Point(200,175)
$button.Size = New-Object System.Drawing.Size(80,28)
$mainform.Controls.Add($button)
$button.Add_Click({'Здесь некоторый код'})
 
$mainform.TopMost = $true
# Запускаем форму
$mainform.ShowDialog()
 

Всего записей: 21 | Зарегистр. 12-04-2023 | Отправлено: 17:10 14-08-2023 | Исправлено: toadmr, 17:12 14-08-2023
BorlandIMHO

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
toadmr

Цитата:
Как сделать, чтобы при нажатии на кнопку, текстовое поле очищалось?

Очевидно - при нажатии на кнопку вызвать метод Clear() объекта TextBox?..

----------
http://www.imho.ws

Всего записей: 2403 | Зарегистр. 12-10-2006 | Отправлено: 17:46 14-08-2023
toadmr

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BorlandIMHO
Спасибо!
Не пинайте, я только начал использовать ГУИ )

Всего записей: 21 | Зарегистр. 12-04-2023 | Отправлено: 09:19 15-08-2023
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225

Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Закладки » Сценарии для Windows


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru