本帖最后由 wsfda 于 2010-7-18 11:11 编辑
DirCreate ("C:\Test")
FileInstall("QQ2010.exe","C:\Test\",1)
Dim $make1,$make2,$make3,$make4,$make5
$make1 = "腾讯QQ2010 安装向导"
$make2 = "欢迎使用腾讯QQ2010"
$make3 = "请选择自定义安装选项与快捷方式选项"
$make4 = "请选择安装路径"
Run("C:\Test\QQ2010")
WinWait($make1,$make2)
WinActivate($make1,$make2)
WinWaitActive($make1,$make2)
ControlClick($make1,$make2,"Button1")
ControlClick($make1,$make2,"Button3")
WinWait($make1,$make3)
WinActivate($make1,$make3)
WinWaitActive($make1,$make3)
ControlClick($make1,$make3,"Button9")
ControlClick($make1,$make3,"Button10")
Sleep(100)
ControlClick($make1,$make3,"Button2")
WinWait($make1,$make4)
WinActivate($make1,$make4)
WinWaitActive($make1,$make4)
ControlClick($make1,$make4,"Edit1")
Send("{BACKSPACE 27}")
Send("C:\QQ2010\")
Send("!i")
TrayTip("正在安装","QQ正在安装请不要动鼠标或者键盘",5,2)
WinWait($make1,"安装完成")
WinActivate($make1,"安装完成")
WinWaitActive($make1,"安装完成")
ControlClick($make1,"安装完成","Button6")
ControlClick($make1,"安装完成","Button8")
ControlClick($make1,"安装完成","Button9")
ControlClick($make1,"安装完成","Button7")
ControlClick($make1,"安装完成","Button2")
Sleep(100)
DirRemove("C:\Test", 1)
以上完成后,却无法删除C:\Test
请问是什么原因,应该如何做,谢谢大家,也感谢论坛给我这个机会提问 |