[Quote]

    avalat
  • 222
  • Longevity: 6 years 1 month
  • Posts: 176
  • REPUTATION:50

    [+] [-]
Пример просмотра пароля при удержании кнопки
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]

    avalat
  • 222
  • Longevity: 6 years 1 month
  • Posts: 176
  • REPUTATION:50

    [+] [-]
Тренировался на 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


Last edited by avalat on Yesterday 10:47; edited 6 times in total

[Quote]

    dimo70
  • 17296
  • Longevity: 3 years 3 months
  • Posts: 1967
  • REPUTATION:27

    [+] [-]
  • Location: BG
avalat, работает нормально
Возможно добавить сколько пользует рам в реальной времени?

[Quote]

    avalat
  • 222
  • Longevity: 6 years 1 month
  • Posts: 176
  • REPUTATION:50

    [+] [-]
dimo70, Добавил процент ОЗУ

[Quote]

    dimo70
  • 17296
  • Longevity: 3 years 3 months
  • Posts: 1967
  • REPUTATION:27

    [+] [-]
  • Location: BG
avalat, в Хемомовских ядрах интересно будет ли работать нормально? В принципе полезная инфа еще - материнка, видеокарта, boot type- Legacy/Uefi, только не знаю можно ли добавить...

[Quote]

    xnik
  • 19473
  • Longevity: 2 years 4 months
  • Posts: 154
  • REPUTATION:0

    [+] [-]
  • Location: СССР
Да можно добавить еще производитель и модель материнской платы
HKLM\HARDWARE\DESCRIPTION\System\BIOS\BaseBoardManufacturer
HKLM\HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct

[Quote]

    korsak7
  • 107
  • Longevity: 6 years 2 months
  • Posts: 910
  • REPUTATION:57

    [+] [-]
Робяты а зачем всё это вам нужно постоянно видеть на экране ?
Дамы и господа, для того, чтобы помочь вам скоротать время полета,
на борту нашего лайнера имеются библиотека, кинозал, три бара,
ресторан, бассейн и два теннисных корта. А теперь я попрошу вас
пристегнуть ремни безопасности, потому что сейчас вместе со всей этой
фигней мы попытаемся взлететь!

[Quote]

    Gvint64
  • 24573
  • Longevity: 9 months 22 days
  • Posts: 173
  • REPUTATION:13

    [+] [-]
[qpost=undefined]
Да можно добавить еще производитель и модель материнской платы
Код:
HKLM\HARDWARE\DESCRIPTION\System\BIOS\BaseBoardManufacturer
HKLM\HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct

[Quote]

    dimo70
  • 17296
  • Longevity: 3 years 3 months
  • Posts: 1967
  • REPUTATION:27

    [+] [-]
  • Location: BG
Дамы и господа, для того, чтобы помочь вам скоротать время полета,
на борту нашего лайнера имеются библиотека, кинозал, три бара,
ресторан, бассейн и два теннисных корта. А теперь я попрошу вас
пристегнуть ремни безопасности, потому что сейчас вместе со всей этой
фигней мы попытаемся взлететь!
Очень понравилось ag

[Quote]

    Gvint64
  • 24573
  • Longevity: 9 months 22 days
  • Posts: 173
  • REPUTATION:13

    [+] [-]
korsak7, dimo70, aa
«Хлеба и зрелищ!»

[Quote]

    dimo70
  • 17296
  • Longevity: 3 years 3 months
  • Posts: 1967
  • REPUTATION:27

    [+] [-]
  • Location: BG
Gvint64, в принципе korsak7 правильно заметил.
Не надо забивать кучу лишнего инфа. Хотя производитель и материнка не думаю что будут лишними.
Но надо проверить на PE как будет работать. Будет ли все ето показывать. aa

[Quote]

    Gvint64
  • 24573
  • Longevity: 9 months 22 days
  • Posts: 173
  • REPUTATION:13

    [+] [-]
dimo70, aa показывает и на пешках.

[Quote]

    dimo70
  • 17296
  • Longevity: 3 years 3 months
  • Posts: 1967
  • REPUTATION:27

    [+] [-]
  • Location: BG
Gvint64, а можно весь код выложить с моделей?

[Quote]

    Gvint64
  • 24573
  • Longevity: 9 months 22 days
  • Posts: 173
  • REPUTATION:13

    [+] [-]
dimo70, Скачать


Last edited by Gvint64 on 2021-02-24 20:26; edited 5 times in total

[Quote]

    conty9
  • 100
  • Longevity: 6 years 2 months
  • Posts: 1330
  • REPUTATION:127

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

Page 2 of 3


Display posts:    

Current time is: 03-Mar 01:38

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