如何实现对某个程序的自动运行,并在程序中自动填写
比如,如何实现对附件小程序的自动运行,自动填入程序界面中的信息Run("DP_Shredder.exe"); ;启动需要收控制的程序
While True ;循环判断受控程序的窗口是否已激活
Sleep(500); ;适当延时以免机器卡或看不清操作
If WinActive("DPShredder") = 0 Then
WinActivate("DPShredder"); ;如果目标窗口没有激活则激活它
Else
ExitLoop ;如果是激活的 退出循环 可以进行后续的操作了
EndIF
Wend
;之类的控件Id ,请用窗口信息工具抓取 控件Id
ControlSetText("DPShredder", "", "", "d:\"); ;向路径框里填路径
Sleep(500);
ControlClick("DPShredder", "", "", "left"); ;点击Start按钮
While True ;循环等待 程序 对硬盘扇区 清除数据后 弹出 消息框
Sleep(1000);
If WinGetTitle("") = "Information" Then ;消息框出现了 点OK按钮
ControlClick("Information", "", "", "left");
ExitLoop
EndIf
Wend
以上程序已在vm虚拟机xp环境测试 OK 好好学习下
非常感谢 另外问个问题,如果我手动运行一遍该程序,能否实现对操作过程的记录,再实现自动运行该程序 谢谢! 好好学习
页:
[1]