Extractor
Сообщения: 1422
Благодарности: 821
|
Профиль
|
Отправить PM
| Цитировать
tweakos,
1. Как-то нехорошо перезаписывать принудительно ADM-файлы. Ведь не факт, что у конечного пользователя будет например IE версии 7 и WMP версии 11, как это сейчас в Вашей системе.
2. Не понял смысла в таком издевательстве над системой при выключении:
Код:  BlockInput(1)
Run("down.exe")
Run("net stop SmartLinkService", @SystemDir, @SW_HIDE)
Run("net stop dhcp", @SystemDir, @SW_HIDE)
Run("net stop dnscache", @SystemDir, @SW_HIDE)
Run("net stop mnmsrvc", @SystemDir, @SW_HIDE)
Run("net stop vmdmpmsn", @SystemDir, @SW_HIDE)
Run("net stop rsvp", @SystemDir, @SW_HIDE)
Run("net stop Telnet", @SystemDir, @SW_HIDE)
Run("net stop Windows Audio", @SystemDir, @SW_HIDE)
Run("net stop Windows CardSpace", @SystemDir, @SW_HIDE)
Run("net stop wuauserv", @SystemDir, @SW_HIDE)
Run("net stop dot3svc", @SystemDir, @SW_HIDE)
Run("net stop napagent", @SystemDir, @SW_HIDE)
Run("net stop wzcsvc", @SystemDir, @SW_HIDE)
Run("net stop sharedacces", @SystemDir, @SW_HIDE)
Run("net stop seclogon", @SystemDir, @SW_HIDE)
Run("net stop rasauto", @SystemDir, @SW_HIDE)
Run("net stop dmserver", @SystemDir, @SW_HIDE)
Run("net stop spooler", @SystemDir, @SW_HIDE)
Run("net stop rasman", @SystemDir, @SW_HIDE)
Run("net stop protectedstorage", @SystemDir, @SW_HIDE)
Run("net stop winmgmt", @SystemDir, @SW_HIDE)
Run("net stop trkwks", @SystemDir, @SW_HIDE)
Run("net stop browser", @SystemDir, @SW_HIDE)
Run("net stop shellhwdetection", @SystemDir, @SW_HIDE)
Run("net stop shedule", @SystemDir, @SW_HIDE)
Run("net stop eventsystem", @SystemDir, @SW_HIDE)
Run("net stop srservice", @SystemDir, @SW_HIDE)
Run("net stop stisvc", @SystemDir, @SW_HIDE)
Run("net stop ssdpsrv", @SystemDir, @SW_HIDE)
Run("net stop ersvc", @SystemDir, @SW_HIDE)
Run("net stop nla", @SystemDir, @SW_HIDE)
Run("net stop policyagent", @SystemDir, @SW_HIDE)
Run("net stop cryptsvc", @SystemDir, @SW_HIDE)
Run("net stop tapisrv", @SystemDir, @SW_HIDE)
Run("net stop themes", @SystemDir, @SW_HIDE)
Run("net stop sens", @SystemDir, @SW_HIDE)
Run("net stop upnphost", @SystemDir, @SW_HIDE)
Sleep("10000")
ProcessClose("down.exe")
ИМХО не стоит ради красивой анимашки делать так.
|
