Как то так, но я уверен что есть метод по проще, с записью в реестр...
Код:
#include <GUITab.au3>
#include <GUIComboBoxEx.au3>
#include <Color.au3>
Opt("WinWaitDelay", 1)
Global $sTitle = "Свойства: Экран"
Global $sTitle2 = "Дополнительное оформление"
Global $ToolTips_nFont = "Microsoft Sans Serif"
Global $ToolTips_nFontSize = "14"
Global $ToolTips_BackColor = 0xD7D700 ;Kind of Yellow
If Not WinExists($sTitle) Then
Run('rundll32 shell32, Control_RunDLL desk.cpl,,')
WinWait($sTitle)
EndIf
WinActivate($sTitle)
WinWaitActive($sTitle)
$hTab = ControlGetHandle($sTitle, "", "SysTabControl321")
_GUICtrlTab_ClickTab($hTab, 3)
WinWait($sTitle, 'Default pane')
ControlClick($sTitle, 'Default pane', 'Button2')
WinWait($sTitle2)
WinActivate($sTitle2)
WinWaitActive($sTitle2)
$hCombo = ControlGetHandle($sTitle2, "", "ComboBox1")
;Настройка Всплывающая подсказка
$iIndex = _GUICtrlComboBoxEx_FindStringExact($hCombo, "Всплывающая подсказка")
_GUICtrlComboBoxEx_SetCurSel($hCombo, $iIndex)
; ControlSend-ы нужны чтоб сделать активными соответствующее поле, пока без этого не выходит
ControlSend($sTitle2, "", "ComboBox1", "{DOWN}")
ControlSend($sTitle2, "", "ComboBox1", "{UP}")
ControlSetText($sTitle2, "", "Edit2", $ToolTips_nFont)
ControlSetText($sTitle2, "", "Edit3", $ToolTips_nFontSize)
ControlClick($sTitle2, '', 'Button1')
WinWait('[CLASS:#32770]', 'Друго&й...')
ControlClick('[CLASS:#32770]', 'Друго&й...', 'Button1')
WinWait('[CLASS:#32770;TITLE:Цвет]')
$nRed = _ColorGetRed($ToolTips_BackColor)
$nGreen = _ColorGetGreen($ToolTips_BackColor)
$nBlue = _ColorGetBlue($ToolTips_BackColor)
ControlSetText('[CLASS:#32770;TITLE:Цвет]', '', 'Edit4', $nRed)
ControlSetText('[CLASS:#32770;TITLE:Цвет]', '', 'Edit5', $nGreen)
ControlSetText('[CLASS:#32770;TITLE:Цвет]', '', 'Edit6', $nBlue)
ControlClick('[CLASS:#32770;TITLE:Цвет]', '', 'Button2')
#cs
; сохранить и закрыть
ControlClick($sTitle2, '', 'Button6')
WinWaitClose($sTitle2)
ControlClick($sTitle, '', 'Button3')
WinWaitClose($sTitle)
#ce