Вход
Регистрация
|
![[Цитировать]](./styles/templates/default/images/lang/ru/icon_quote.gif "Ответить с цитатой"){kind=icon}
Отправлено:
|
|
BGInfo
Краткая информация о ПК ------------- Добавил дату последнего запуска ОС и номера диск:раздел Изменил определение загрузки UEFI/BIOS через bcdedit Выход по Ctrl+Alt+I код//Bginfo (avalat@2024) ENVI^ forcelocal=1 ENVI &nc=1 FIND --pid &pd, TEAM MSTR &I1=<1>%&pd%|MSTR &T1=<2>%&pd%|MSTR &nc=<3>%&pd% SET &ll=-100 WAIT 250 SCRN ScrW,ScrH CALC l=%ScrW%-275 ww _SUB ww,L-100T-100W1H1,, CALL win _END _SUB win,L%l%T20W275H700,Bginfo,,%WINDIR%\System32\icn\infope.ico,#10 //:0x282828, ENVI @win.bkcolor = 0x252525 MENU ,Скрыть,ENVI @win.Visible=0 MENU ,Показать,ENVI @win.Visible=1 MENU - MENU ,Выход,EXIT 2 ENVI @this.FONT=8: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 ,L10T10W280H12,%mp% %mpp%,,0xFFFFFF#0x252525,8 LABE -left ,L10T27W280H12,%pr%,,0xFFFFFF#0x252525,8 PBAR cpu,L10T44W215H15,0 TIME ,500, CALL proc CALL proc LABE -left L10,L10T70W100H15,RAM : %FullR% Mb,,0xFFFFFF#0x252525, LABE -left L20,L160T70W100H21,,*,0xFFFFFF#0x252525, LABE -left L11,L10T85W220H15,- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ,,0x33FFFF#0x252525, LABE -left L99,L10T100W215H15,,,0x33FFFF#0x252525, EXEC=*cmd /c bcdedit /v > %TEMP%\test.txt READ %TEMP%\test.txt,*,tr TEAM LPOS lp=winload.,1,%tr%|MSTR ls=%lp%,11,%tr% FILE %TEMP%\test.txt FIND $%ls%=winload.efi,ENVI tp=Unified EFI!ENVI tp=Legacy BIOS IFEX Y:\disk.ver,TEAM READ Y:\disk.ver,1,&te|ENVI @L99=SoftPack: %&te% / RU!ENVI @L99= ENVI n=1 FDRV *ab DrvAll= *: FORX * %DrvAll%,CurDsk, {* FORM V= %CurDsk% SET AllDrv= %AllDrv% %CurDsk% TEAM FIND %CurDsk%\=?,f1|IFEX %CurDsk%\=?,f2 CALC #s1=((%f1%-%f2%)*100)/%f1% IFEX $%f1%<1G,TEAM CALC f1=%f1%/1M#1|ENVI g1=Mb IFEX $[%f1%>=1G & %f1%<1T],TEAM CALC f1=%f1%/1G#1|ENVI g1=Gb IFEX $%f1%>=1T,TEAM CALC f1=%f1%/1T#2|ENVI g1=Tb IFEX $%f2%<1G,TEAM CALC f2=%f2%/1M#1|ENVI g2=Mb IFEX $[%f2%>=1G & %f2%<1T],TEAM CALC f2=%f2%/1G#1|ENVI g2=Gb IFEX $%f2%>=1T,TEAM CALC f2=%f2%/1T#2|ENVI g2=Tb PART -raw list drv %CurDsk%,td MSTR p1,p2=<1><2>%td% ENVI aa=[%p1%:%p2%] IFEX $%p1%<0,ENVI aa=[ -- ] TEAM CALC m1=%n%*35+90|CALC m2=%n%*35+105 TEAM ENVI tx= LABE -left L%n%,L10T%m1%W108H15,%aa% %CurDsk% %f1% %g1%,,0xFFFFFF#0x252525,|%tx% TEAM ENVI tx= LABE -right L%n%,L108T%m1%W108H15,free %f2% %g2% ,,0xFFFFFF#0x252525,|%tx% TEAM ENVI p=PBAR Pbar%n%,L10T%m2%W215H8,%s1%|%p% IFEX $%s1%>90,ENVI @Pbar%n%.percent=%s1%::0x0F1CEA!ENVI @Pbar%n%.percent=%s1%::0x00ff00 IFEX $%f1%=0,ENVI @Pbar%n%.percent=100::0x0ffffd CALC m5=%m2%-4 FORM td,t=%CurDsk% ENVI typ=%td% %t% FIND $%td%=DRIVE_FIXED,IMAG im%n%,L236T%m5%W20H20,#15 FIND $%td%=DRIVE_REMOVABLE,IMAG im%n%,L236T%m5%W20H20,#17 FIND $%td%=DRIVE_USBFLASH,IMAG im%n%,L236T%m5%W20H20,#7 FIND $%td%=DRIVE_USBDISK,IMAG im%n%,L236T%m5%W20H20,#8 IFEX $%t%<=0,IMAG im%n%,L236T%m5%W20H20,#12 FIND $%td%=DRIVE_CDROM,IMAG im%n%,L236T%m5%W20H20,#11 FIND $%td%=DRIVE_RAMDISK,IMAG im%n%,L236T%m5%W20H20,#10 CALC n=%n%+1 } ver CALC wi=%m2%+35 ENVI @win.pos=:::%wi% bio HKEY Ctrl+Alt+I,TEAM KILL @ww|KILL \ _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%::0xff ENVI &I1=%&I2% ENVI &T1=%&T2% IFEX MEMU=?,&MemU IFEX MEMA=?,&MemA CALC &vu= 100 - 100 * %MemU% / %MemA% ##1 ENVI @L20=busy: %&vu%% _END _SUB ver CALC m4=%n%*35+90 LABE -left L11,L10T%m4%W220H15,- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ,,0x33FFFF#0x252525, CALC m=%n%*35+85 CALC m2=%m% ENVI q=1 FORX \Windows\System32\cmd.exe,cm,0, {ENVI ?v=FVER,%cm% LSTR r=2,%cm% LSTR sp=3,%v% LSTR sp2=6,%v% MSTR -delims:. c=<3>%v% FIND $%sp%=5.0,ENVI vv=Windows XP FIND $%sp%=6.0,ENVI vv=Windows Vista FIND $%sp%=6.1,ENVI vv=Windows 7 FIND $%sp%=6.2,ENVI vv=Windows 8 FIND $%sp%=6.3,ENVI vv=Windows 8.1 FIND $%sp2%=10.0.1,ENVI vv=Windows 10 FIND $%sp2%=10.0.2,ENVI vv=Windows 11 ENVI ?bit=PEBIT,%r%\Windows\System32 CALC m2=%q%*20+%m% SITE ?-local ,WriteT,=FTIME,%r%\Windows\bootstat.dat MSTR v1,v2,v3,v4,v5=<3><2><1><4><5>%WriteT% ENVI vr=%v1%.%v2%.%v3% %v4%:%v5% FIND $%r%=X:,TEAM DATE *space0 dat|MSTR d1,d2,d3,d4,d5=<3><2><1><4><5>%dat%|envi vr=%d1%.%d2%.%d3% %d4%:%d5% ENVI lb=labe -left lab%q%,L10T%m2%W227H20,%r% %vv% %c% (%bit%) %vr%,,0x20FF20#0x252525, %lb% CALC q=%q%+1 } CALC q=%q%+1 } _END _SUB bio CALC m6=15+%m2% LABE -left L11,L10T%m6%W220H15,- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ,,0x33FFFF#0x252525, CALC m7=15+%m6% labe -left ,L10T%m7%W210H20,Boot Firmware Type: %tp%,,0x66FFFF#0x252525, CALC wi2=%wi%+25 ENVI @win.pos=:::%wi2% _END  .скачать Bginfo Последний раз редактировалось: avalat (2024-02-25 17:48), всего редактировалось 23 раз(а) |
|
Пример 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  Последний раз редактировалось: Gvint64 (2021-03-30 23:18), всего редактировалось 3 раз(а) |
|
Пример простенького менеджера разделов (на основе китайского скрипта из PECMD)
|
|
conty9,
 У меня оба варианта - выложил этот - без разницы и так и так работает. Ещё и батник с выбором буквы диска:@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 Последний раз редактировалось: Gvint64 (2022-02-21 23:27), всего редактировалось 2 раз(а) |
Страница 2 из 7
Текущее время: 18-Дек 04:48
Часовой пояс: UTC + 3
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах Вы не можете прикреплять файлы к сообщениям Вы можете скачивать файлы |