找回密码
 加入
搜索
查看: 7319|回复: 5

[AU3基础] 如何实现对某个程序的自动运行,并在程序中自动填写

[复制链接]
发表于 2013-10-12 11:19:59 | 显示全部楼层 |阅读模式
比如,如何实现对附件小程序的自动运行,自动填入程序界面中的信息

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2013-10-12 15:38:16 | 显示全部楼层

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
发表于 2013-10-12 15:41:20 | 显示全部楼层
以上程序已在vm虚拟机xp环境测试 OK
 楼主| 发表于 2013-10-16 16:30:09 | 显示全部楼层
好好学习下
非常感谢
 楼主| 发表于 2013-10-16 16:46:40 | 显示全部楼层
另外问个问题,如果我手动运行一遍该程序,能否实现对操作过程的记录,再实现自动运行该程序
发表于 2013-10-16 18:05:36 | 显示全部楼层
谢谢! 好好学习
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-24 09:46 , Processed in 0.076538 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表