Примеры скриптов PECMD.




 

[Quote]

Отправлено: 15-Feb-2021 17:47

    avalat
  • 222
  • Longevity: 8 years 10 months
  • Posts: 406
  • REPUTATION:127

    [+] [-]
Пример просмотра пароля при удержании кнопки
win
_SUB win,W300H200,
     EDIT e,L30T40W130H30,,,0x01,,18
     EDIT e2,L30T40W130H30,,,,,18
   ITEM it,L180T40W80H30,Просмотр,
   ENVI @it.MSG=0x0201: ENVI @e2=%e%
   ENVI @it.MSG=0x0202: ENVI @e=%e%
_END

[Quote]

Отправлено: 16-Feb-2021 15:46 (after 21 hour)

    avalat
  • 222
  • Longevity: 8 years 10 months
  • Posts: 406
  • REPUTATION:127

    [+] [-]
Тренировался на BGInfo
Пригодится для примера.
Рядом со скриптом положить QRes
Что то недокончил, не помню уже что
---------------------
P.S. Подправил (убрал с панели задач, оставил в трее)
Добавил процент ОЗУ

код

ENVI^ forcelocal=1
ENVI &nc=1
FIND --pid &pd,
MSTR &I1=<1>%&pd%
MSTR &T1=<2>%&pd%
MSTR &nc=<3>%&pd%
SET &ll=-100
WAIT 250
SCRN ScrW,ScrH
calc l=%ScrW%-310
ww
_SUB ww,L-100T-100W1H1,,
call win
_end
_SUB win,L%l%T20W390H500,BGinfo+,,,#:0xC0C0C0,
MENU ,Скрыть,ENVI @win.Visible=0
MENU ,Показать,ENVI @win.Visible=1
MENU ,Выйти,exit 2
ENVI @this.FONT=11:Tahoma
FIND MEM=?,FullR
REGI $HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\ProcessorNameString,pr
REGI $HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS\BaseBoardManufacturer,mp
REGI $HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct,mpp
LABE -left L9,L1T10W350H28,%mp% %mpp%,,0xFFFFFF#0xC0C0C0,
LABE -left L9,L1T30W350H28,%pr%,,0xFFFFFF#0xC0C0C0,
PBAR cpu,L1T54W215H15,0
TIME ,500, CALL proc
CALL proc
LABE -left L10,L1T80W100H15,RAM : %FullR% Mb,,0xFFFFFF#0xC0C0C0,
LABE -left L20,L125T80W100H21,,*,0xFFFFFF#0xC0C0C0,
LABE -left L11,L1T100W300H15,- - - - - - - - - - - - - - - - - - - - - - - - - - - ,,0xFFFFFF#0xC0C0C0,
envi n=1
FDRV *ab DrvAll= *:
FORX * %DrvAll%,CurDsk,
{* FORM V= %CurDsk%
SET AllDrv= %AllDrv% %CurDsk%
FIND %CurDsk%\=?,FullS
IFEX %CurDsk%\=?,FreeS
team calc f1=%FullS%/1048576|calc f3=%FreeS%/1048576
calc #s1=((%f1%-%f3%)*100)/%f1%
team CALC m=%n%*35+82|calc mm=%n%*35+100
IFEX $%f1%>1024,TEAM CALC f2=%f1%/1024|ENVI g= Gb!ENVI g= Mb
IFEX $%f3%>1024,TEAM CALC f4=%f3%/1024|ENVI gg= Gb!ENVI gg= Mb
team MSTR f=0,6,%f2%|MSTR ff=0,6,%f4%
envi tx= LABE -left L%n%,L1T%m%W300H15,%CurDsk% %f% %g%           free %ff% %gg%,,0xFFFFFF#0xC0C0C0,
%tx%
envi p=PBAR Pbar%n%,L1T%mm%W215H10,%s1%
%p%
ifex $%s1%>90,ENVI @Pbar%n%.percent=%s1%::0x0F1CEA
calc n=%n%+1
}
HKEY Ctrl+Alt+I,KILL *force \
_END
_SUB proc
FIND --pid &pd,
MSTR &I2=<1>%&pd%
MSTR &T2=<2>%&pd%
CALC #&I21=%&I2% - %&I1%
CALC #&T21=%&T2% - %&T1%
CALC &P= 100 - 100 * %&I21% / %&T21% / %&nc% ##1
FIND $%P%=-0.0, SET P=0
IFEX $%P%<0, EXIT
IFEX $%ll%=%P%, EXIT
SET ll=%P%
ENVI @cpu=%&P%;%&P%%%
ENVI @cpu.percent=%&P%::0xEA0F29
ENVI &I1=%&I2%
ENVI &T1=%&T2%
IFEX MEMU=?,&MemU
IFEX MEMA=?,&MemA
CALC &vu= 100 - 100 * %MemU% / %MemA% ##1
ENVI @L20=busy: %&vu%%
_END
.
скачать BGInfo++


Last edited by avalat on 2021-03-03 07:18; edited 8 times in total

[Quote]

Отправлено: 23-Feb-2021 21:23 (after 7 days)

    Guest
  • REPUTATION:0

    [+] [-]
Gvint64, QRes не нужен. PeCMD может сам определять разрешение экрана.
SCRN ScrW,ScrH `Функция возвращает текущее разрешение экрана (присваивает его переменным ScrW,ScrH)

[Quote]

Отправлено: 06-Mar-2021 22:14 (after 11 days)

    avalat
  • 222
  • Longevity: 8 years 10 months
  • Posts: 406
  • REPUTATION:127

    [+] [-]
Пример бегущей строки
win
  _SUB win,W300H200,test,,
  envi n=290
  time  tt,400,team calc n=%n%-4|labe l,L%n%T50W150H24,бегущая строка,,0xFF0000,16
  _END

[Quote]

Отправлено: 30-Mar-2021 00:13 (after 23 days)

    Gvint64
  • 24573
  • Longevity: 3 years 6 months
  • Posts: 537
  • REPUTATION:60

    [+] [-]
Пример GIF BCD+GRLDR Ctrl+Alt+Z - Выход
CALL hlp
_SUB hlp,W707H346,HelpGIF,,,,, -nocap //-nosysmenu
IMAG Image1,W707H320,%CurDir%\help.gif,,,,
LABE -trans EXIT,L0T326W707H16,EXIT,EXIT 2,0x000000,14
HKEY Ctrl+Alt+Z,EXIT 2
_END

Пример - launcher Ctrl+Alt+Z - Выход
SET ::WM_MOUSEENTER =0x1000
SET ::WM_MOUSELEAVE =0x02A3
ENVI TIMETIPS=3000
CALL lnch
_SUB lnch,W290H74,Launcher,,,,, -nocap //-nosysmenu
IMAG notepad,L0T0W72H72,%curdir%\icon2\notepad.ico,EXEC %windir%\notepad.exe,#0xFF00FF,2
SET TXT=NOTEPAD++
SETHelp notepad %TXT%
IMAG paint,L72T0W72H72,%curdir%\icon2\Paint.NET.ico,EXEC %windir%\system32\mspaint.exe,#0xFF00FF,2
SET TXT=Paint.NET
SETHelp paint %TXT%
IMAG explorer,L144T0W72H72,%curdir%\icon2\Explorer.ico,EXEC %windir%\explorer.exe,#0xFF00FF,2
SET TXT=EXPLORER++
SETHelp explorer %TXT%
IMAG excl,L216T0W72H72,%curdir%\icon2\trtl.gif,EXIT 2,#0xFF00FF,2
SET TXT=EXIT_Launcher
SETHelp excl %TXT%
HKEY Ctrl+Alt+Z,EXIT 2
_END
_SUB SETHelp
SET &_cmd=ENVI @%~1.MSG=%&WM_MOUSEENTER%:TEAM WAIT %_delay% |ENVI @TIPS_VAL.Val=?TIMETIPS|ENVI @@Cur=?CurX;CurY|TIPS ,%TXT%,%TIMETIPS%,1,@AL%CurX%T%CurY%
%&_cmd%
SET &_cmd=ENVI @%~1.MSG=%&WM_MOUSELEAVE%:TEAM ENVI @&wStatus=|TIPS -
%&_cmd%
_END


Last edited by Gvint64 on 2021-03-30 23:18; edited 3 times in total

[Quote]

Отправлено: 24-May-2021 12:43 (after 1 month 25 days)

    avalat
  • 222
  • Longevity: 8 years 10 months
  • Posts: 406
  • REPUTATION:127

    [+] [-]
Пример простенького менеджера разделов (на основе китайского скрипта из PECMD)
 dy

[Quote]

Отправлено: 25-May-2021 21:18 (after 1 day 8 hours)

    avalat
  • 222
  • Longevity: 8 years 10 months
  • Posts: 406
  • REPUTATION:127

    [+] [-]
Пример настройки нужного значения колёсиком мыши или стрелками клавиатуры
win
_SUB win,W450H130
pbar pp,L10T30W420H35,,
envi @pp.percent=0xDEFBAC
SLID* s,L11T65W419H0,0:100:0,CALL ss,0x20
_END
_SUB ss
labe ,L10T5W300H26,%s% %,,,18
ENVI @pp.percent=%s%:0xDEFBAC:0xBA32E6
_END

[Quote]

Отправлено: 16-Jul-2021 17:19 (after 1 month 21 day)

    Guest
  • REPUTATION:0

    [+] [-]

Всплывающие подсказки (cделал минимальную дeмку на базе скрипта, выложенного sergeysvirid)

SET ::WM_MOUSEENTER=0x1000
SET ::WM_MOUSELEAVE=0x02A3
CALL @WIN1 %*
_SUB WIN1,W260H120,Подсказки,,,,,
LABE -3D -left Dest0,L10T15W230H20,Всплывающие подсказки,,0x006600##0x00ffff#b0b0b0,14
ITEM ITEM1,L10T48W85H30,ITEM1
ITEM ITEM2,L170T48W70H30,ITEM2
SET TXT2=Это подсказка для первой кнопки ITEM1
SETHelp ITEM1
SET TXT2=А тут подсказка для ITEM2
SETHelp ITEM2
SET TXT2=Подсказка о тексте
SETHelp Dest0
_END
_SUB SETHelp
SET &_cmd=ENVI @%~1.MSG=%&WM_MOUSEENTER%:TEAM WAIT 300|ENVI @@Cur=?CurX;CurY|CALC #CurY=%CurY%-15|TIPS ,%TXT2%,5000,,@L%CurX%T%CurY%
%&_cmd%
SET &_cmd=ENVI @%~1.MSG=%&WM_MOUSELEAVE%:TEAM ENVI @&wStatus=|TIPS -
%&_cmd%
_END
//Примечание: CALC #CurY=%CurY%-15 - рассчёт координат немного выше курсора); TIPS ,%TXT2%,5000... 5000мс - время отображения подсказки 5сек

[Quote]

Отправлено: 13-Nov-2021 22:50 (after 3 months 28 days)

    wert
  • 23213
  • Longevity: 4 years
  • Posts: 87
  • REPUTATION:2

    [+] [-]
привет ребята вот скрипт
DISP W1920 H1080 B32 F60
//IMAG
GROU Gr4,L28T290W630H200,Ccылки на сайт портнеров ,,0xB2170A,12,
IMAG paint,L32T310W162H82,%curdir%\icon2\logo.png,EXEC %windir%\system32\mspaint.exe,#0xB2170A,2
IMAG paint,L222T330W132H42,%curdir%\icon2\streles.jpg,EXEC %windir%\system32\mspaint.exe,#0xB2170A,2
IMAG paint,L402T410W152H62,%curdir%\icon2\kisel.png,EXEC %windir%\system32\mspaint.exe,#0xB2170A,2
IMAG paint,L402T330W122H42,%curdir%\icon2\nelegal.png,EXEC %windir%\system32\mspaint.exe,#0xB2170A,2
IMAG paint,L200T410W152H62,%curdir%\icon2\softpilot.png,EXEC %windir%\system32\mspaint.exe,#0xB2170A,2
IMAG paint,L32T400W122H62,%curdir%\icon2\software.png,EXEC %windir%\system32\mspaint.exe,#0xB2170A,2
IMAG paint,L582T330W32H24,%curdir%\icon2\торент.png,EXEC %windir%\system32\mspaint.exe,#0xB2170A,2
IMAG paint,L582T420W32H24,%curdir%\icon2\торент1.png,EXEC %windir%\system32\mspaint.exe,#0xB2170A,2
_END
как прикрутить адрес портнеров

[Quote]

Отправлено: 14-Nov-2021 07:10 (after 8 hours)

    avalat
  • 222
  • Longevity: 8 years 10 months
  • Posts: 406
  • REPUTATION:127

    [+] [-]
wert, Если партнёров, то к примеру так
EXEC$ https://usbtor.ru/

[Quote]

Отправлено: 21-Feb-2022 21:52 (after 3 months 7 days)

    Gvint64
  • 24573
  • Longevity: 3 years 6 months
  • Posts: 537
  • REPUTATION:60

    [+] [-]
Может кому пригодится. Пример монтирования-размонтирования с выбором папки диска Х:
CALL Dsk1
_SUB Dsk1,W135H85,,,,-#,,-top
LABE -center bt1,L0T5W130H25,MOUNT DISK X,TEAM CALL SelFol|EXEC  subst.exe X: %FOL%,0xffffff#0x000000,14:Consolas
LABE -center bt2,L0T30W130H25,UMOUNT DISK X,EXEC subst.exe X: /D,0xffffff#0x000000,14:Consolas
LABE -center bt3,L0T55W130H25,E X I T,EXIT 2,0xffffff#0x000000,14:Consolas
_END
_SUB SelFol
BROW FOL,*,PLEASE SELECT FOLDER DIRECTORY
_END


Last edited by Gvint64 on 2022-03-02 07:44; edited 1 time in total

[Quote]

Отправлено: 21-Feb-2022 23:10 (after 1 hour 18 minutes)

    Guest
  • REPUTATION:0

    [+] [-]
Gvint64, в PECMD есть прямая команда монтирования папки: SUBJ X:,D:\MyTools //монтировать папку D:\MyTools как диск X:
Правда, наличие в синтаксисе команды SUBJ запятой будет "сбивать" с толку команду LABE. Поэтому вначале присвоим переменной %&te% начало команды с запятой ( ENVI &&te=SUBJ X:, ), а потом просто используем эту переменную.
CALL Dsk1
_SUB Dsk1,W135H85,,,,-#,,-top
ENVI &&te=SUBJ X:,
LABE -center bt1,L0T5W130H25,MOUNT DISK X,TEAM CALL SelFol|%&te%%FOL%,0xffffff#0x000000,14:Consolas
LABE -center bt2,L0T30W130H25,UNMOUNT DISK X,SUBJ *X:,0xffffff#0x000000,14:Consolas
LABE -center bt3,L0T55W130H25,E X I T,EXIT 2,0xffffff#0x000000,14:Consolas
_END
_SUB SelFol
BROW FOL,*,PLEASE SELECT FOLDER DIRECTORY
_END

[Quote]

Отправлено: 21-Feb-2022 23:13 (after 3 minutes)

    Gvint64
  • 24573
  • Longevity: 3 years 6 months
  • Posts: 537
  • REPUTATION:60

    [+] [-]
conty9, aa У меня оба варианта - выложил этот - без разницы и так и так работает. Ещё и батник с выбором буквы диска:
@echo off
color 0f
title mountdisk
cd /d %~dp0
>nul mode 30,4
set bt=X
:m0
cls
echo.   1.MOUNT FOLDER - DISK (X)
echo.   2.UMOUNT DISK
echo.   3.SEL LETTER - DEFAULT X:
:m1
set /P mu=">  1 or 2 or 3: " || goto m1
if %mu%==1 goto m2
if %mu%==2 goto m3
if %mu%==3 goto m4
goto m0
:m2
>nul chcp 1251
for /f "usebackq delims=" %%b in (
    `@"%systemroot%\system32\mshta.exe" "javascript:var objShellApp = new ActiveXObject('Shell.Application');var Folder = objShellApp.BrowseForFolder(0, 'SELECT FOLDER',1, 'root,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}');try {new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(Folder.Self.Path)};catch (e){};close();" ^
    1^|more`
) do set folder=%%b
subst %bt%: "%folder%"
goto m0
:m3
subst %bt%: /D
exit
:m4
cls
set /p bt="SEL LETTER: " || goto m4
goto m0



Last edited by Gvint64 on 2022-02-21 23:27; edited 2 times in total

[Quote]

Отправлено: 21-Feb-2022 23:23 (after 9 minutes)

    Guest
  • REPUTATION:0

    [+] [-]
Gvint64, и да, и нет. Твой вариант, во-первых, задействует ситемную утилиту subst.exe, которая, к примеру, часто отсутствует в WinPE. А во-вторых, не всегда будет работать под х64. В общем, если можно обойтись без запуска внешних утилит - лучше обойтись!
Кстати, можно вообще не присваивать переменной начало команды SUBJ, а просто перенести всю команду в подпрограмму выбора папки. И присваивать имена кнопкам (bt1/bt2/bt3), если мы не собираемся с ними ничего делать (скрывать, деактивировать, перемещать) - не нужно (экономия памяти на переменных).
CALL Dsk1
_SUB Dsk1,W135H85,,,,-#,,-top
ENVI &&te=
LABE -center ,L0T5W130H25,MOUNT DISK X,CALL SetFol,0xffffff#0x000000,14:Consolas
LABE -center ,L0T30W130H25,UNMOUNT DISK X,SUBJ *X:,0xffffff#0x000000,14:Consolas
LABE -center ,L0T55W130H25,E X I T,EXIT 2,0xffffff#0x000000,14:Consolas
_END
_SUB SetFol
TEAM BROW &&te,*,PLEASE SELECT FOLDER DIRECTORY|SUBJ X:,%&te%
_END


Last edited by Guest on 2022-02-21 23:38; edited 1 time in total

[Quote]

Отправлено: 21-Feb-2022 23:27 (after 4 minutes)

    Gvint64
  • 24573
  • Longevity: 3 years 6 months
  • Posts: 537
  • REPUTATION:60

    [+] [-]
93065В общем, если можно обойтись без запуска внешних утилит - лучше обойтись!
Согласен.

DiskX

ENVI &&ds=X
CALL Dsk1
_SUB Dsk1,W157H127,,,,-#,, -top
ENVI @Dsk1.Font=9:Tahoma
ENVI &&te=
Grou ,L3T0W153H125,Select Disk,,0x000000#0x32cd32
RADI ,L5T20W49H25,DiskX,ENVI &&ds=X,1
RADI ,L55T20W49H25,DiskB,ENVI &&ds=B,0
RADI ,L105T20W49H25,DiskY,ENVI &&ds=Y,0
LABE ,L3T50W152H25,MOUNT DISK,CALL SetFol,0x000000#0x32cd32##0x998877,14:Tahoma //цвет: букв, фона, выделения
LABE ,L3T75W152H25,UMOUNT DISK,SUBJ *%&ds%:,0x000000#0x32cd32##0x998877,14:Tahoma
LABE ,L3T100W152H25,E X I T,EXIT 2,0x000000#0x32cd32##0x998877,14:Tahoma
_END
_SUB SetFol
TEAM BROW &&te,*,PLEASE SELECT FOLDER DIRECTORY|SUBJ %&ds%:,%&te%
IFEX %&te%,EXEC explorer.exe %&ds%:
_END
Выбор папки и добавил выбор буквы диска X,Y,B


Last edited by Gvint64 on 2023-08-31 14:13; edited 22 times in total

Page 2 of 6


Display posts:    

Current time is: 08-Dec 19:57

All times are UTC + 3


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum