;第一个
Opt("WinTitleMatchMode", 2)
Run("control.exe desk.cpl")
While True
Sleep(500)
If WinExists("显示") Then ExitLoop
WEnd
WinActivate("显示")
Sleep(500)
While True
ControlCommand("", "", "[CLASS:SysTabControl32; INSTANCE:1]", "TabRight", "")
Sleep(500)
If 4 = ControlCommand("", "", "[CLASS:SysTabControl32; INSTANCE:1]", "CurrentTab", "") Then ExitLoop
WEnd
ControlClick("显示", "", "[CLASS:Button; INSTANCE:2]")
Sleep(500)
While True
Sleep(500)
If WinExists("高级外观") Then ExitLoop
WEnd
ControlCommand("高级外观", "", "[CLASS:ComboBox; INSTANCE:1]", "SelectString", "消息框")
Sleep(500)
ControlCommand("高级外观", "", "[CLASS:ComboBox; INSTANCE:2]", "SelectString", "微软雅黑")
Sleep(500)
ControlClick("高级外观", "", "[CLASS:Button; INSTANCE:6]")
Sleep(500)
WinActivate("显示")
While True
Sleep(500)
If WinExists("显示") Then ExitLoop
WEnd
ControlClick("显示", "", "[CLASS:Button; INSTANCE:3]")
|