Toplu iş dosyası doğrudan çalışır, ancak Başlangıçta çalışmaz

Aşağıdaki parti kodu doğrudan çalıştırıldığında mükemmel çalışır (Tercihler penceresini açar, Windows 7 Temasını arka plan olarak ayarlar, sonra Tercihler penceresini kapatır) ancak Başlangıç klasöründe başlatıldığında, Tercih penceresinin iki örneğini oluşturur (bunlardan biri yüklenemediğini gösterir) ) ve her iki örneği de silmez). Varyasyonlar denendi ancak hiçbir şey istenen sonuca ulaşmadı.

control /name Microsoft.Personalization
start C:\Windows\Resources\Themes\aero.theme
timeout 2

set temp_vbs="%TEMP%\%~nx0.tmp0.vbs"
(
    echo Dim objShell
    echo Set objShell = CreateObject("WScript.Shell"^)
    echo If objShell.AppActivate("Personalization"^) = True Then
    echo    objShell.SendKeys("%%{F4}"^)
    echo End If
) > %temp_vbs%
cscript %temp_vbs% /

del %temp_vbs%

windows-7

— NL42
kaynak

Düzgün çalışabilmesi için kot gerektiriyor mu?

— Twisty Impersonator

Bu durumda bile çalışacak mıydı?

— NL42

Bu kod değişikliği, ikinci tercihler penceresini ortadan kaldırır ancak görünen pencereyi silmez.

— NL42

echo off kontrol / isim Microsoft.Personalization zaman aşımı 2 set temp_vbs = "% TEMP% \% ~ nx0.tmp0.vbs" c: \ windows \ resources \ themes \ aero.theme'i başlat WScript.Shell "^) echo Eğer objShell.AppActivate (" Kişiselleştirme "^) = Doğru Sonra echo objShell.SendKeys (" %% {F4} "^) yankıysa Sonu) & gt; % temp_vbs% cscript% temp_vbs% / del% temp_vbs% taskkill / f "WindowTitle eq Kişiselleştirme"

— NL42

Kodda kopyaladım ve satır beslemesini ortadan kaldırıyor.

— NL42