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

gjxk999

; 一键安装 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安装向导","我接收上述许可证协议的所有条款。","[class:Button;INSTANCE:2]")
WinWaitActive("Nero Burning ROM安装向导","客户信息。")
ControlClick("Nero Burning ROM安装向导","用户名：","[class:Edit;INSTANCE:1]")
Send(" Nero User")
ControlClick("Nero Burning ROM安装向导","公司名称：","[class:Edit;INSTANCE:2]")
Send(" Nero User")
ControlClick("Nero Burning ROM安装向导","序列号：","[class:Edit;INSTANCE:3]")
Send("1A23-0809-4130-2306-0167-1885")
ControlClick("Nero Burning ROM安装向导","安装","[class:Button;INSTANCE:2]")
Send("!安装")
WinWaitActive("Nero Burning ROM安装向导","向导已成功完成安装。")
ControlClick("Nero Burning ROM安装向导","向导已成功完成安装。","[class:Button;INSTANCE:3]")
Send("!完成")

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

;安装完毕，删除文件
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

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

rchockxm

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

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

顽固不化

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

yangnibuqi

Send("!下一步 >")

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

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

应该也可以了吧

hanshiqi2000

呵呵 。楼主试试

send（“！N”）这个方法

boyhong

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

holygg0123

我也写了一个：
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

v 发错地方了

6732732

先顶，再下来学习