simplix — 27.06.2010 22:32:56

В связи с нехваткой времени, а также чтобы сделать все свои проекты независимыми от меня, в этой теме постепенно будут публиковаться (после некоторой доработки) имеющиеся исходники. Практически все они написаны на NSIS, как наиболее простом и удобном для освоения языке.

Однако всё это выкладывается как есть без любых гарантий, также не будет никаких объяснений на вопросы типа "почему так, а не иначе", "как переделать так, чтобы было вот так" или "как реализовать то, что мне нужно" - у NSIS есть подробнейшая справка с массой примеров, а также шайтан-машина - изучайте и осваивайте.

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


С октября 2018 исходники удалены в связи с сильным устареванием.

MBTY — 30.07.2011 22:38:23

simplix
Хочется из Mycustom вырезать кусок кода, отвечающий за установку xp rights
Вроде бы это ЭТОТ кусок (раскрыть):


Код:

Pop $0
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "139:TCP" "139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "445:TCP" "445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "137:UDP" "137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "138:UDP" "138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "139:TCP" "139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "445:TCP" "445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "137:UDP" "137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "138:UDP" "138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
IfFileExists "$SYSDIR\syssetup.dll" 0 +11
Rename "$SYSDIR\syssetup.dll" "$SYSDIR\syssetup.dll.bak"
IfErrors +8
File "/oname=$PLUGINSDIR\syssetup.pat" syssetup.pat
vpatch::vpatchfile "$PLUGINSDIR\syssetup.pat" "$SYSDIR\syssetup.dll.bak" "$SYSDIR\syssetup.dll"
Pop $R0
StrCpy $R0 $R0 2
StrCmp $R0 "OK" +2
Rename "$SYSDIR\syssetup.dll.bak" "$SYSDIR\syssetup.dll"
Delete /rebootok "$SYSDIR\syssetup.dll.bak"
ClearErrors


Я прав?

simplix — 06.08.2011 06:18:51

MBTY


Код:

nsExec::Exec "net user Guest /active:yes"
Pop $0
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "139:TCP" "139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "445:TCP" "445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "137:UDP" "137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "138:UDP" "138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "139:TCP" "139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "445:TCP" "445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "137:UDP" "137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "138:UDP" "138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
MBTY — 03.11.2011 22:50:47

simplix, исходник MyCustom свежий?

Waterclo — 04.11.2011 01:37:49

MBTY
Не, исходник старый - сейчас Unlocker из MyCustom уехал в отдельный файл, а може чё и добавилось. Точно не скажу, но похоже часть скрипта, относящегося к XPrights - команда

nsExec::Exec "net user Guest /active:yes"

чего-то ещё запускает из MYCUSTOM упаковки, тут нужен свежий исходник. Учётка Гостя и модель доступа по 20.12.2008 добавлялась/скрывалась с помощью NTRights, а проблемы в домене получались примерно как здесь и возни хватило, видать из-за нестыковки гостевой модели и настроек сервера, к-рый был далече. В связи с этим возникает фактор собственного лохотронства от спешки - перед переустановкой системы надо внимательно изучить настройки в Групповых политиках, чтоб не чесать затыльник и не терять время в последствии.
Вот лучше бы оно запускалось по требованию, чтоб в случае необходимости оставались стандартные настройки оригинального дистрибутива и вылазило бы сообщение с пояснением, что установка Гостя может создать проблемы, при работе в домене из-за настроек сервера (M$ Active Directory c интерактивным доступом, например) или ослабить безопасность домашнего компьютера не входящего в состав сети или домена.
В принципе - посмотреть изменения, к-рые скрипт вносит в систему можно с помощью Regshot-а, если запустить MYCUSTOM.EXE на абсолютно чистой системе. Порты в реестре открываются так:
Скрытый текст (раскрыть):


Код:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
"139:TCP"="139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
"445:TCP"="445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
"137:UDP"="137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
"138:UDP"="138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List]
"139:TCP"="139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
"445:TCP"="445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
"137:UDP"="137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
"138:UDP"="138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"


А вот остальное посмотреть не в силах - нет пока чистой системы.

sov44 — 26.08.2012 15:10:19

хотелось бы взглянуть на исходник AntiDust

matrix — 23.09.2013 10:46:17

simplix
Если Вас не затруднит, выложите, пожалуйста, последний исходник MyCustom.exe. Тот, который  в сборке GRTMPVOL_RU_20.02.13.iso.

korsak — 13.03.2014 05:24:47

sov44 сообщает:

хотелось бы взглянуть на исходник AntiDust

поддерживаю

onis — 14.03.2014 00:16:52

Подскажите пожалуйста что я не так делаю. Хочу сам собрать vcredist для своей сборки
вырезал код


Код:

!define PRODUCT_NAME "vcredist"
!define PRODUCT_VERSION "14.03.14"
!define PRODUCT_PUBLISHER "onis, LLC."


SetCompressor /SOLID lzma
SetCompressorDictSize 170
SilentInstall silent

Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
Icon vcredist.ico
OutFile vcredist.exe
!include FileFunc.nsh
!insertmacro RefreshShellIcons
Section Main
System::Call 'kernel32::CreateMutexA(i 0, i 0, t "DllsFullSIM") i .r1 ?e'
Pop $R0
StrCmp $R0 0 +2
Quit
SetOutPath "$TEMP\vcredist"
File /r DllsFull\vcredist\*
ExecWait '"$SYSDIR\msiexec.exe" /i "$OUTDIR\2005\vcredist.msi" /qn' $0
StrCmp $0 0 0 +6
WriteRegDWORD HKLM "SOFTWARE\Microsoft\DevDiv\atl80sp1\Servicing\9.0\kb973923\1033" "Install" 0x00000001
WriteRegStr HKLM "SOFTWARE\Microsoft\DevDiv\atl80sp1\Servicing\9.0\kb973923\1033" "InstallerType" "MSI"
WriteRegDWORD HKLM "SOFTWARE\Microsoft\DevDiv\atl80sp1\Servicing\9.0\kb973923\1033" "SP" 0x00000001
WriteRegDWORD HKLM "SOFTWARE\Microsoft\DevDiv\atl80sp1\Servicing\9.0\kb973923\1033" "SPIndex" 0x00000001
WriteRegStr HKLM "SOFTWARE\Microsoft\DevDiv\atl80sp1\Servicing\9.0\kb973923\1033" "SPName" "SP1"
ExecWait '"$SYSDIR\msiexec.exe" /i "$OUTDIR\2008\vc_red.msi" /qn' $0
StrCmp $0 0 0 +6
WriteRegDWORD HKLM "SOFTWARE\Microsoft\DevDiv\atl90sp1\Servicing\9.0\kb973924\1033" "Install" 0x00000001
WriteRegStr HKLM "SOFTWARE\Microsoft\DevDiv\atl90sp1\Servicing\9.0\kb973924\1033" "InstallerType" "MSI"
WriteRegDWORD HKLM "SOFTWARE\Microsoft\DevDiv\atl90sp1\Servicing\9.0\kb973924\1033" "SP" 0x00000001
WriteRegDWORD HKLM "SOFTWARE\Microsoft\DevDiv\atl90sp1\Servicing\9.0\kb973924\1033" "SPIndex" 0x00000001
WriteRegStr HKLM "SOFTWARE\Microsoft\DevDiv\atl90sp1\Servicing\9.0\kb973924\1033" "SPName" "SP1"
ExecWait '"$SYSDIR\msiexec.exe" /i "$OUTDIR\2010\vc_red.msi" /qn'
SetOutPath "$SYSDIR"
RMDir /r /rebootok "$TEMP\vcredist"
${RefreshShellIcons}
SectionEnd

компеляция проходит нормально но не ставиться

popt2t — 18.09.2014 10:20:59

simplix, не могли бы Вы актуализировать исходники Flash и Google Chrome? Спасибо!!!

onis — 13.07.2020 15:07:00

Здравствуйте хочу сделать обновление AHCI MassStorage  под свои нужды может у кого то есть исходник этого проекта скиньте в личку ссылку на облоко. Спасибо больше