Dim $flag = 0
$flag=ShellExecute("gpedit.msc", "", "", "open", @SW_MAXIMIZE)
$flag=WinWaitActive("[CLASS:MMCMainFrame]")
$flag=ControlTreeView("本地组策略编辑器","","[CLASS:SysTreeView32; INSTANCE:1]","Expand","本地计算机 策略|用户配置|管理模板")
$flag=ControlTreeView("本地组策略编辑器","","[CLASS:SysTreeView32; INSTANCE:1]","Expand","本地计算机 策略|用户配置|管理模板|桌面")
$flag=ControlTreeView("本地组策略编辑器","","[CLASS:SysTreeView32; INSTANCE:1]","Select","本地计算机 策略|用户配置|管理模板|桌面|Active Desktop")
$id=ControlListView("本地组策略编辑器","","[CLASS:SysListView32; INSTANCE:1]","FindItem","桌面墙纸",0)
$flag=ControlListView("本地组策略编辑器","","[CLASS:SysListView32; INSTANCE:1]","Select",$id)
$flag=ControlFocus("本地组策略编辑器","",12786)
$flag=Send("{ENTER}")
$flag=WinActive("桌面墙纸") ;这里无法激活
$flag=Send("!e")
$flag=Send("!a")
WinClose("桌面墙纸");这里无法关闭
ControlClick("桌面墙纸","","[NAME:buttonOK]");这里无法实现按钮点击
有没有高手在啊???跪求解答
特殊情况,无法上传截图,高手运行一下我的脚本,如何模拟关闭 桌面墙纸/对桌面墙纸控件值得修改 这些效果呢? |