Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


Как то так, но я уверен что есть метод по проще, с записью в реестр...

Код: Выделить весь код
#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

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 00:42, 14-01-2010 | #2