Показать полную графическую версию : [решено] Помогите грамотно записать батник применение темы в Seven
a чем не подошел мой пример ? »
«Не cmd», видимо ;).
Serguei Kouzmine
12-03-2019, 23:34
лирическое отступление - cmd был придуман когда windows | deskstop | windows stations не было даже в проекте вот неумеет он ничо
во vbscript - кто умеет превести на js пожта
Dim objShell: Set objShell = WScript.CreateObject("WScript.Shell")
Dim objShellApplication: Set objShellApplication = WScript.CreateObject("shell.application")
Dim objWindows : set objWindows = objShellApplication.Windows()
Wscript.echo objWindows.Count
Dim objWindow
For cnt = 0 To objWindows.Count-1
set objWindow = objWindows.item(cnt)
LocationName = objWindow.LocationName
' NOTE double quotes
if InStr(LocationName,"Personalization") > 0 then
Wscript.echo "Closing " & objWindow.HWND
objWindow.Quit()
end if
Next
Set objShell = Nothing
Set objWindows = Nothing
Set objShellApplication = Nothing
Vanadiy777
03-05-2020, 08:17
Кто то мне подкинул автоит скрипт, который применяет любую тему при запуске его из командной строки типа:
Код:
ThemeApply.exe "New Look Dark WD"
и исходник я потерял. сейчас нужно скомпилировать для x86 системы и полный косяк. А кто и где мне его подкинул не помню. может у кого исходник этого скрипта есть? Сам exe прикрепляю »
Тоже ищу такой исходник. У Smarty такой-же механизм реализован в теме Aero Red Button Theme Installer. Но в нем работает и в х86 и в х64.
Но распаковать .ехе, чтоб вытащить конкретно скрипт не получилось... Приходится пользоваться так. (Да простит меня Сергей...)
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.