gjxk999 发表于 2008-10-30 20:30:11

我的第一个AU3程序,问题在FileDelete("xxx")

; 一键安装 NERO 6.6.0.18 代码
Dim $TempDir=@TempDir & "\"          ;目标目录
Dim $CruntDir=@ScriptDir & "\"       ;当前目录

FileInstall("Nero-6.6.0.18_no_yt.exe",$TempDir & "Nero-6.6.0.18_no_yt.exe",1)
FileInstall("Nero-6.6.0.18_chs.exe",$TempDir & "Nero-6.6.0.18_chs.exe",1)

Run($TempDir & "Nero-6.6.0.18_no_yt.exe")
WinWaitActive("Nero Burning ROM安装向导")
Send("!下一步 >")
WinWaitActive("Nero Burning ROM安装向导","许可证协议。")
ControlClick("Nero Burning ROM安装向导","我接收上述许可证协议的所有条款。","")
WinWaitActive("Nero Burning ROM安装向导","客户信息。")
ControlClick("Nero Burning ROM安装向导","用户名：","")
Send(" Nero User")
ControlClick("Nero Burning ROM安装向导","公司名称：","")
Send(" Nero User")
ControlClick("Nero Burning ROM安装向导","序列号：","")
Send("1A23-0809-4130-2306-0167-1885")
ControlClick("Nero Burning ROM安装向导","安装","")
Send("!安装")
WinWaitActive("Nero Burning ROM安装向导","向导已成功完成安装。")
ControlClick("Nero Burning ROM安装向导","向导已成功完成安装。","")
Send("!完成")

Run($TempDir & "Nero-6.6.0.18_chs.exe")
WinWaitActive("Nero语言包安装向导","欢迎使用Nero语言包的安装向导")
Send("!下一步 >")
WinWaitActive("Nero语言包安装向导","许可证协议。")
ControlClick("Nero语言包安装向导","我接收上述许可证协议的所有条款。","")
ControlClick("Nero语言包安装向导","下一步 >","")
WinWaitActive("Nero语言包安装向导","向导已成功完成安装。")
ControlClick("Nero语言包安装向导","完成","")

;安装完毕，删除文件
FileDelete("$TempDir & 'Nero-6.6.0.18_no_yt.exe'")
FileDelete("$TempDir & 'Nero-6.6.0.18_chs.exe'")

Run(@ComSpec & ' /c cd\$CruntDir',"",@SW_HIDE)          ;返回原目录，准备一键安装其它程序文件

   ; 代码结束

以上是我的第一个AU3程序，安装没问题，问题出在删除文件的2个语句FileDelete("xxx"),
按说应删除2个安装文件，可实际上只删除了Nero-6.6.0.18_no_yt.exe。Nero-6.6.0.18_chs.exe仍然在安装目录里。
试了半天，还是如此，请斑竹给诊断一下，谢谢了！

78391493 发表于 2008-11-5 19:35:44

Send("!下一步 >")
我晕…………￥＃&＃&￥……＃……*……*%*……￥@

rchockxm 发表于 2008-11-18 22:46:44

FileDelete($TempDir& "Nero-6.6.0.18_no_yt.exe")
FileDelete($TempDir & "Nero-6.6.0.18_chs.exe")

那這樣呢?

[ 本帖最后由 rchockxm 于 2008-11-18 22:47 编辑 ]

q455029734 发表于 2008-11-28 21:22:22

Send 下一步，
你从哪找的下一步

顽固不化 发表于 2008-11-28 22:36:49

Send("!安装")？？这也行？

yangnibuqi 发表于 2008-12-7 14:20:45

Send("!下一步 >")

这个有点太猛了吧。。
这样也行？

那么
Send("请点击‘下一步’")

应该也可以了吧

hanshiqi2000 发表于 2009-2-13 03:42:51

呵呵 。楼主试试

send（“！N”）这个方法

boyhong 发表于 2009-2-15 08:30:08

FileDelete($TempDir& "\Nero-6.6.0.18_no_yt.exe")
FileDelete($TempDir & "\Nero-6.6.0.18_chs.exe")

holygg0123 发表于 2009-2-17 09:07:00

我也写了一个：
run("QQ2009Beta_chs.exe")
winwaitactive("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009")
controlcommand("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009","Button1","uncheck","")
controlclick("腾讯QQ2009 安装向导","欢迎使用腾讯QQ2009","Button3")
winwaitactive("腾讯QQ2009 安装向导","请选择使用环境与查杀木马设置")
controlclick("腾讯QQ2009 安装向导","请选择使用环境与查杀木马设置","Button2")
winwaitactive("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项")
controlcommand("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button9","uncheck","")
controlcommand("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button7","uncheck","")
ControlClick("腾讯QQ2009 安装向导","请选择自定义安装选项与快捷方式选项","Button2")
winwaitactive("腾讯QQ2009 安装向导","请选择安装路径")
controlsettext("腾讯QQ2009 安装向导","请选择安装路径","Edit1","D:TencentQQ2009")
controlclick("腾讯QQ2009 安装向导","请选择安装路径","Button2")
winwaitactive("腾讯QQ2009 安装向导","安装完成")
controlcommand("腾讯QQ2009 安装向导","安装完成","Button6","uncheck","")
controlcommand("腾讯QQ2009 安装向导","安装完成","Button7","uncheck","")
controlcommand("腾讯QQ2009 安装向导","安装完成","Button8","uncheck","")
controlclick("腾讯QQ2009 安装向导","安装完成","Button2")

holygg0123 发表于 2009-2-17 09:07:41

v 发错地方了

6732732 发表于 2009-9-4 20:03:06

先顶，再下来学习
页: [1]
查看完整版本: 我的第一个AU3程序,问题在FileDelete("xxx")