Run("DP_Shredder.exe"); ;启动需要收控制的程序
While True ;循环判断受控程序的窗口是否已激活
Sleep(500); ;适当延时以免机器卡或看不清操作
If WinActive("DPShredder") = 0 Then
WinActivate("DPShredder"); ;如果目标窗口没有激活则激活它
Else
ExitLoop ;如果是激活的 退出循环 可以进行后续的操作了
EndIF
Wend
;[CLASS:TEdit;INSTANCE:1]之类的控件Id ,请用窗口信息工具抓取 控件Id
ControlSetText("DPShredder", "", "[CLASS:TEdit;INSTANCE:1]", "d:\"); ;向路径框里填路径
Sleep(500);
ControlClick("DPShredder", "", "[CLASS:TButton;INSTANCE:2]", "left"); ;点击Start按钮
While True ;循环等待 程序 对硬盘扇区 清除数据 后 弹出 消息框
Sleep(1000);
If WinGetTitle("[active]") = "Information" Then ;消息框出现了 点OK按钮
ControlClick("Information", "", "[CLASS:TButton;INSTANCE:1]", "left");
ExitLoop
EndIf
Wend
|