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

: Previous 1, 2, 3, 4, 5, 6, 7 Next

Displaying options
Hide Avatars Rank images Post images Smilies Signatures Show Show opened Downloadable pictures

Отправлено: 07-Jul-2022 14:15

avalat

Longevity: 10 years
Posts: 497
REPUTATION:127
[+] [-]

SergeyZV, заработало ?
Я с rutube, кажется, пробовал - не вышло...

Отправлено: 07-Jul-2022 14:25 (after 10 minutes)

SergeyZV

Longevity: 9 years
Posts: 1259
REPUTATION:34
[+] [-]

95966заработало ?

Только что качал с OK.ru.
С rutube качает, но скорость жутко плавает (понятно - качает фрагментами).

Отправлено: 09-Sep-2022 23:26 (after 2 months 2 days)

avalat

Longevity: 10 years
Posts: 497
REPUTATION:127
[+] [-]

Замена иконок у файлов EXE и папок
Из прошлогоднего... В конце кода закомментирован рестарт TC по < Alt+T >
Клик по верхней иконке - возврат стандартной иконки у ПАПКИ
Добавил - F4, Esc
В архиве неупакованный IconRe2.exe

Last edited by avalat on 2024-02-15 23:28; edited 3 times in total

Отправлено: 10-Sep-2022 17:14 (after 17 hours)

dimo70

Longevity: 7 years 3 months
Posts: 3788
REPUTATION:27
[+] [-]
Location: BG

avalat, супер получилось, спасибо!

Сразу добавляю в копилку.

_________________
Signed off for violation of forum rules

Отправлено: 30-Sep-2022 12:48 (after 19 days)

avalat

Longevity: 10 years
Posts: 497
REPUTATION:127
[+] [-]

Заинтересовался, что нового появилось в новых версиях PECMD. Растрепал новые версии, сравнил со старыми.
Начиная с хххх.85 версии добавили некую графическую поддержку.
Прошелся по командам, наткнулся пока на вот это

win
_SUB win,W225H200,ТЕСТпроба
LABE -center lab,L20T10W203H200,\n\n\n\nТЕСТпроба,
ENVI @lab.font=10:Tahoma**######450
_END

.
ENVI @l1.font=10:Tahoma**BbUuIiUuSs#Weight#Width#CharSet#Quality#Orientation#Escapement#OutPrecision#ClipPrecision
------------------------------------------------
BbUuIiUuSs - понятно, - жирный,подчеркнутый...
#Weight - ширина символа **#+6 (+3 сужает уже)
#Width - растягивает тоже,но без + **##6
#CharSet - только 2 **###2
#Quality - ? ####(?)
#Orientation - угол 60 гр. - **#####+600 (1800 перевернутый)
#Escapement - то же, но без + **######600
#OutPrecision -?
# ...
кто в курсе этого, объясните...
----------------------------------------------
Если эта забава не нужна, можно, наверное, остановиться и на 84 версии

Last edited by avalat on 2023-09-22 23:30; edited 4 times in total

Отправлено: 19-May-2023 09:17 (after 7 months 18 days)

Gvint64

Longevity: 4 years 10 months
Posts: 621
REPUTATION:72
[+] [-]

Часы

Выключить комп в заданное время:

Set tng=18:00 // время по умолчанию (hh:mm)
CALL w1
_SUB w1,W180H85,,,shell32.dll#21,,,
LABE lab,L0T0W180H35,,,0xFF0000#0xC0C0C0,22
EDIT+ m2,L100T30W90H25,,Set tng=%m2%,,0xFF0000#0xC0C0C0,16
LABE clock,L0T30W100H25,%tng%,,0x0000FF#0xC0C0C0,16
TIME tt,1000,TEAM DATE *space0 Tmg|MSTR Tmg1=12,2,%Tmg%|MSTR Tmg2=15,2,%Tmg%|MSTR Tmg3=18,2,%Tmg%|ENVI @clock=%tng%|ENVI @lab=%Tmg1%:%Tmg2%:%Tmg3%|w2
_END
_SUB w2
IFEX '%Tmg1%:%Tmg2%'='%tng%',TEAM ENVI @tt=0|SHUT
_END

SCRN SW,SH
&&Tmg=
CALC l=%SW%-250
ww
_SUB ww,L100T100W1H1,,,,,
CALL ww1
_END
CALL ww1
_SUB ww1,L%l%T50W200H50,,,,#:0xC0C0C0,
LABE lab,L1T1W200H50,,,0xFFFFFF#0xC0C0C0,32
TIME tt,1000,TEAM DATE *space0 &&Tmg|MSTR Tmg1=12,2,%&Tmg%|MSTR Tmg2=15,2,%&Tmg%|MSTR Tmg3=18,2,%&Tmg%|ENVI @lab=%Tmg1%:%Tmg2%:%Tmg3%
HKEY Shift+Alt+X,EXIT 2
_END

SCRN SW,SH
&&Tmg=
CALC l=%SW%-250
@ww
_SUB ww,W1H1,,,,,
CALL w1
_END
_SUB w1,L%l%T50W200H90,,,,#:0xC0C0C0,
LABE lab,L1T1W200H30,,,0xffffff#0xC0C0C0,22
LABE lab1,L1T30W200H30,,,0xffffff#0xC0C0C0,14
TIME tt,1000,TEAM DATE *space0 &&Tmg|MSTR Tmgd=0,4,%&Tmg%|MSTR Tmgd1=6,2,%&Tmg%|MSTR Tmgd2=9,2,%&Tmg%|MSTR Tmg1=12,2,%&Tmg%|MSTR Tmg2=15,2,%&Tmg%|MSTR Tmg3=18,2,%&Tmg%|ENVI @lab=%Tmg1%:%Tmg2%:%Tmg3%|ENVI @lab1=%Tmgd2%.%Tmgd1%.%Tmgd%
HKEY Shift+Alt+X,EXIT 2
_END

Last edited by Gvint64 on 2023-06-14 14:23; edited 23 times in total

Отправлено: 20-May-2023 16:01 (after 1 day 6 hours)

avalat

Longevity: 10 years
Posts: 497
REPUTATION:127
[+] [-]

Gvint64, Насчёт мерцания...

SET tting=15:55 // ввести время срабатывания таймера (ч:мин)
CALL w1
_SUB w1,W200H120,,,shell32.dll#93,,,
LABE lab,L1T1W200H35,,,0xFF0000,24
LABE+ clock,L50T45W100H25,%tting%,,0x0000CC,%tting%,
TIME tt,1000,TEAM DATE *space0 Tmg|MSTR Tmg1=12,2,%Tmg%|MSTR Tmg2=15,2,%Tmg%|MSTR Tmg3=18,2,%Tmg%|ENVI @lab=%Tmg1%:%Tmg2%:%Tmg3%|w2
_END
_SUB w2
IFEX '%Tmg1%:%Tmg2%'='%tting%',TEAM ENVI @tt=0|MESS ok
_END

Отправлено: 20-May-2023 16:28 (after 27 minutes)

Gvint64

Longevity: 4 years 10 months
Posts: 621
REPUTATION:72
[+] [-]

avalat,

Другое дело

А то все цифры в кучу собирались

Обновил часы.

Отправлено: 25-Jun-2023 22:21 (after 1 month 5 days)

avalat

Longevity: 10 years
Posts: 497
REPUTATION:127
[+] [-]

Пример. Выбор образа *wim или *.esd для WinNTSetup.exe
Скачать SetupNT.zip (неупакованный exe и скрипт)
--------------------------------------
Образы (для примера) находятся в корне любого диска в папке \SOURCES
Путь сразу прописывается в WinNTSetup
Имя папки можно изменить на своё (строки 7 и 16)
------------------------------------

Скрипт

FIND $%&bX64%=0,ENVI WinNT=Data\WinNTSetup_x86.exe!ENVI WinNT=Data\WinNTSetup_x64.exe
win
_SUB win,W400H400,For WinNTSetup,
ENVI i=0
FDRV *ab DrvAll= *:
FORX* %DrvAll%,CurDsk,
{FORX /S /O:-N %CurDsk%\SOURCES\*.wim,k,0,
{CALC n=%i%+1,
CALC mm=%n%*30-20,
ENVI bb=ITEM L%n%,L15T%mm%W360H25,%k%, EXEC %CurDir%\%WinNT% nt6 /source:%k%
%bb%
CALC i=%i%+1,
}}
CALC nn=%n%+1
FORX * %DrvAll%,CurDsk,
{FORX /S /O:-N %CurDsk%\SOURCES\*.esd,kk,0,
{CALC nn=%i%+1,
CALC mm=%nn%*30-20,
ENVI bb=ITEM L%nn%,L15T%mm%W360H25,%kk%, EXEC %CurDir%\%WinNT% nt6 /source:%kk%
%bb%
CALC i=%i%+1,
}}
TEAM SIZE s=%k%|SIZE ss=%kk%
IFEX [$%s%=0 & $%ss%=0],TEAM MESS=-icon WIM and ESD images not found|exit 2
CALC h=%nn%*30+50
ENVI @win.POS=::400:%h%
_END

Отправлено: 26-Jun-2023 08:47 (after 10 hours)

dimo70

Longevity: 7 years 3 months
Posts: 3788
REPUTATION:27
[+] [-]
Location: BG

avalat, спасибо, полезная вещь. Подключаю в мою сборку.

_________________
Signed off for violation of forum rules

Отправлено: 22-Aug-2023 11:39 (after 1 month 26 days)

avalat

Longevity: 10 years
Posts: 497
REPUTATION:127
[+] [-]

Перемещение объекта мышью

.
для примера - составить слово
скачать ехе

код

win
_SUB win,W350H200,Перетащите буквы,
LABE -3D,L10T10W320H3,
LABE -3D,L10T60W320H3,
LABE -3D,L10T10W3H50,
LABE -3D,L50T10W3H50,
LABE -3D,L90T10W3H50,
LABE -3D,L130T10W3H50,
LABE -3D,L170T10W3H50,
LABE -3D,L210T10W3H50,
LABE -3D,L250T10W3H50,
LABE -3D,L290T10W3H50,
LABE -3D,L330T10W3H50,
SWIN -:win1,L20T100W15H30,,
SWIN -:win2,L60T100W18H30,,
SWIN -:win3,L100T100W18H30,,
SWIN -:win4,L140T100W15H30,,
SWIN -:win5,L180T100W18H30,,
SWIN -:win6,L220T100W18H30,,
SWIN -:win7,L260T100W15H30,,
SWIN -:win8,L300T100W15H30,,
_END
_SUB win1,W20H50,,,,,,
LABE ,L0T0W20H50,К,,,25
ENVI @win1.hittest=20:50
ENVI @win1.MSG=0x0233, TEAM ENVI @win1.POS=?left1:top1|ENVI @win1.POS=::%left1%:%top1%
_END
_SUB win2,W50H50,,,,
LABE ,L0T0W50H50,Р,,,25
ENVI @win2.hittest=50:50
ENVI @win2.MSG=0x0233, TEAM ENVI @win2.POS=?left2:top2|ENVI @win2.POS=::%left2%:%top2%
_END
_SUB win3,W50H50,,,,
LABE ,L0T0W50H50,А,,,25
ENVI @win3.hittest=50:50
ENVI @win3.MSG=0x0233, TEAM ENVI @win3.POS=?left3:top3|ENVI @win3.POS=::%left3%:%top3%
_END
_SUB win4,W50H50,,,,
LABE ,L0T0W50H50,Т,,,25
ENVI @win4.hittest=50:50
ENVI @win2.MSG=0x0233, TEAM ENVI @win4.POS=?left4:top4|ENVI @win4.POS=::%left4%:%top4%
_END
_SUB win5,W50H50,,,,
LABE ,L0T0W50H50,А,,,25
ENVI @win5.hittest=50:50
ENVI @win2.MSG=0x0233, TEAM ENVI @win5.POS=?left5:top5|ENVI @win5.POS=::%left5%:%top5%
_END
_SUB win6,W50H50,,,,
LABE ,L0T0W50H50,Е,,,25
ENVI @win6.hittest=50:50
ENVI @win6.MSG=0x0233, TEAM ENVI @win6.POS=?left6:top6|ENVI @win6.POS=::%left6%:%top6%
_END
_SUB win7,W50H50,,,,
LABE ,L0T0W50H50,Х,,,25
ENVI @win7.hittest=50:50
ENVI @win7.MSG=0x0233, TEAM ENVI @win7.POS=?left7:top7|ENVI @win7.POS=::%left7%:%top7%
_END
_SUB win8,W30H30,,,,
LABE ,L0T0W50H50,Р,,,25
ENVI @win8.hittest=50:50
ENVI @win8.MSG=0x0233, TEAM ENVI @win8.POS=?left8:top8|ENVI @win8.POS=::%left8%:%top8%
_END

Отправлено: 23-Aug-2023 13:01 (after 1 day 1 hour)

avalat

Longevity: 10 years
Posts: 497
REPUTATION:127
[+] [-]

Получение значения диск : раздел другим способом

FDRV alld=*:
FORX* %alld%,&letr,
{FDIR --part &b=%letr%\
SED a=0,{[A-z\\?]},,%b%
TEAM LSTR s1=1,%a%|RSTR s2=1,%a%|ENVI aa=%s1%:%s2%
MESS-icon disk %letr% = %aa%
}

Отправлено: 30-Aug-2023 17:52 (after 7 days)

avalat

Longevity: 10 years
Posts: 497
REPUTATION:127
[+] [-]

Пример комбобокса для списка дисков
Наверное, самый короткий вариант...

win
_SUB win,W480H120,
ENVI @win.font=11:Consolas //шрифт (или подобрать другой, моноширный)
LIST comb,L20T20W430H40,,, //создаём комбобокс
FDRV alld=*: //список всех дисков в формате С: D: E: и т.д.
FORX* %alld%,&letr, //перечисляем буквы '&letr' в цикле
{FDRV -vol v,fs=%letr% //получаем метку диска (v) и файл.систему (fs)
PART -raw list drv %letr%,a //запрос данных о диске в переменную 'a'
MSTR d,p,typ=<*>%a% //из неё получаем первые три значения - номер диска (d) , раздела (р) и тип (typ)
TEAM FIND %letr%\=?,sz|CALC siz=%sz%/1G|LSTR siz=5,%siz% //получаем размер диска (siz)
TEAM LSTR len=10,%v%|STRL* a1=len|LSTR lab=%a1%,%v%|CALC v1=11-%a1%|LSTR n=%v1%, , //выравниваем текст метки (lab) на 10 символов
TEAM LSTR len2=5,%fs%|STRL* a2=len2|LSTR fs=%a2%,%fs%|CALC v2=6-%a2%|LSTR n2=%v2%, , //выравниваем текст (fs) в списке на 5 символов
ENVI @comb.Add= %letr% %d%:%p% %lab%%n% %fs%%n2% %siz% Gb %typ% //заносим всё полученное в строку комбобокса
}
ENVI @comb.Isel=1 //выделяем первую строку
_END

Last edited by avalat on 2024-03-19 18:56; edited 2 times in total

Отправлено: 01-Sep-2023 10:38 (after 1 day 16 hours)

Gvint64

Longevity: 4 years 10 months
Posts: 621
REPUTATION:72
[+] [-]

Примонтировать папку как диск SUBJ SUBST.

w1
_SUB w1,W230H125,MOUNT
ENVI @w1.Font=10:Tahoma
LIST ds,L2T5W110H40,B:|M:|N:|O:|P:|Q:|R:|S:|T:|U:|V:|W:|X:|Y:|Z:,,X:
LIST vh,L111T5W110H40,SUBJ|SUBST,,SUBJ
ITEM -def ,L2T30W220H20,ПОДКЛЮЧИТЬ ДИСК,CALL @SetFol,,
ITEM ,L2T50W220H20,ОТКЛЮЧИТЬ ДИСК,SUBJ *%ds%,,
ITEM ,L2T70W220H20,ВЫХОД,EXIT 2,,
_END
_SUB SetFol
ENVI v=ЭТА БУКВА ЗАНЯТА!
IFEX %ds%,TEAM MESS-icon+ %v%|EXIT
FIND $%vh%=SUBST,TEAM BROW &&te,*,ВЫБРАТЬ ПАПКУ,,|SUBST.exe %ds% "%&te%"
FIND $%vh%=SUBJ,TEAM BROW &&te,*,ВЫБРАТЬ ПАПКУ,,|SUBJ %ds%, %&te%
IFEX %&te%,EXEC explorer.exe %ds%
_END

Last edited by Gvint64 on 2023-09-03 20:17; edited 7 times in total

Отправлено: 01-Sep-2023 17:37 (after 6 hours)

avalat

Longevity: 10 years
Posts: 497
REPUTATION:127
[+] [-]

У меня есть такой вариант - с перетаскиванием
можно и букв добавить, на любителя...
скачать

ENVI t=ENVI @win.POS=::::4
CALL win
_SUB win,W300H164,MountFolder,,,,, -top
ENVI @win.Font=12:Tahoma
LIST* dsk,L205T20W70H25, T:| U:| V:| W:| X:| Y:| Z:,, Y:,
LABE ,L15T10W175H20,Монтировать,mount,0x000000#0xBBC9A7##0x5555FB,13 //цвет: букв, фона, выделения
LABE ,L15T37W175H20,Размонтировать,demount,0x000000#0xBBC9A7##0x5555FB,13
EDIT= ed,L6T75W281H50,,,0x228,,11
LABE ,L10T60W130H15, ----> перетащить папку,,0x89A065,10
_END
_SUB mount
IFEX %dsk%,TEAM MESS-icon1 Эта буква занята\n\n Выберите другой диск|%t%|EXIT
FIND $%ed%=,TEAM MESS-icon Не выбрана папка|%t%|EXIT
IFEX %ed%,!TEAM MESS-icon Такой папки не существует |ENVI @ed=|%t%|EXIT
TEAM FEXT f=%ed%|STRL l=%f%
IFEX $%l%>1,TEAM ENVI @ed=|MESS-icon Не выбрана папка|EXIT!TEAM SUBJ %dsk%,%ed%|%t%
EXEC explorer.exe %dsk%\
_END
_SUB demount
IFEX %dsk%,!TEAM MESS-icon Такого диска не существует|%t%
TEAM SUBJ *%dsk%|ENVI @ed=|%t%
_END

Page 5 of 7

: Previous 1, 2, 3, 4, 5, 6, 7 Next

Current time is: 16-Mar 00:19

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