fadetop bing wallpaper

• 效果图:
  -

• 安装Dynamic Theme

  • https://www.microsoft.com/en-us/p/dynamic-theme/9nblggh1zbkw?activetab=pivot:overviewtab

• fadetop_wallpaper.py

  import re
  import os
  from pathlib import Path
  
  tmp_path = os.path.join(str(Path.home()), 'AppData\Local\Packages\')
  dynamic_theme_path = os.path.join(
      tmp_path,
      [i for i in os.listdir(tmp_path) if 'DynamicTheme' in i][0],
      'LocalState\Bing'
      )
  source_image_path = os.path.join(dynamic_theme_path, os.listdir(dynamic_theme_path)[-1])
  
  
  setting_xml_path = os.path.join(str(Path.home()), 'AppData\Local\FadeTop\Settings.xml')
  
  with open(setting_xml_path, 'r+') as f:
      setting_xml_str = f.read()
      f.seek(0)
      f.truncate()
      setting_xml_str = setting_xml_str.replace(
          re.search('(bg_image_file=".*?")', setting_xml_str).group(),
          'bg_image_file="{}"'.format(source_image_path)
      ).replace(
          re.search('(bg_image_enabled=".*?")', setting_xml_str).group(),
          'bg_image_enabled="1"'
      )
      f.write(setting_xml_str)
  

• fadetop_bing_wallpaper.bat

  @echo off  
  >nul 2>&1 "%SYSTEMROOT%system32cacls.exe" "%SYSTEMROOT%system32configsystem" 
   
  if '%errorlevel%' NEQ '0' (  
      goto UACPrompt  
  ) else ( goto gotAdmin )  
     
  :UACPrompt  
      echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%getadmin.vbs" 
      echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%getadmin.vbs" 
      "%temp%getadmin.vbs" 
      exit /B  
  
  :gotAdmin  
      if exist "%temp%getadmin.vbs" ( del "%temp%getadmin.vbs" )  
      pushd "%CD%" 
      CD /D "%~dp0" 
  
  :begin
  
  taskkill /im FadeTop.exe
  "Xpython.exe" "Xfadetop_bing_wallpaper.py"
  start XXXFadeTop.exe
  exit
  

  • XXX中目录有空格的用双引号包裹, 例:"Program Files (x86)"

• 将fadetop_bing_wallpaper.bat设置定时执行每天下午6点执行