猎英夜客 发表于 2010-10-20 20:20:37

AU3怎样写用RAR创建的自解压文件的解压路径?

AU3运行这个文件,然后AU3指定解压路径进行解压

lanfengc 发表于 2010-10-20 20:36:34

建议查看自动安装类的帖子。经典之作是:http://www.autoitx.com/forum.php?mod=viewthread&tid=7784&highlight=%2Blynfr8

猎英夜客 发表于 2010-10-20 21:08:53

谢谢
能帮我精简吗?觉得这样不方便

;本脚本由i-Autoit-1.01 正式版 生成 ,非常感谢您的使用,请保留此脚本声明!2010年10月20日

;--------------------------------------------------------------;脚本开始
Opt("TrayIconDebug", 1) ;0=无信息, 1=调试信息
Opt("WinTextMatchMode", 2) ;1=完全匹配, 2=快速匹配
Opt("WinTitleMatchMode", 4) ;1=开头, 2=子串, 3=完全, 4=高级
Opt("WinSearchChildren", 1) ;0=不搜索, 1=搜索子窗口
Opt("WinDetectHiddenText", 1) ;0=不检测, 1=检测
;--------------------------------------------------------------;设置脚本参数
$WinTitle_1= 'WinRAR 自解压文件'
$WinTitle_2= '输入密码'
$WinTitle_3= '确认文件替换'
$Wintxt_1= '目标文件夹(&D)'
$Wintxt_2= 'audit.wxs'
$Wintxt_3= '下列文件已经存在'
;--------------------------------------------------------------;窗口元素变量声明


$Exe = 'Wx.exe'
If ProcessExists($Exe) Then ProcessClose($Exe)
If Run($Exe) = 0 Then ShellExecute($Exe)

Do
        Sleep(10);
Until WinExists($Wintitle_1)
;WinMove($Wintitle_1, "", -1000, -1000)
;--------------------------------------------------------------;程序启动,显示界面


WinWaitActive($Wintitle_1, $Wintxt_1);
ControlSetText($Wintitle_1, $Wintxt_1, "Edit1", "d:\123");------;重置文本框控件文本

ControlClick($Wintitle_1, $Wintxt_1, "Button2");---------------;点击按钮控件: 安装


WinWaitActive($Wintitle_2, $Wintxt_2);
ControlSetText($Wintitle_2, $Wintxt_2, "Edit1", "123456");------;重置文本框控件文本

ControlClick($Wintitle_2, $Wintxt_2, "Button1");---------------;点击按钮控件: 确定


WinWaitActive($Wintitle_3, $Wintxt_3);
ControlClick($Wintitle_3, $Wintxt_3, "Button1");---------------;点击按钮控件:


ControlClick($Wintitle_3, $Wintxt_3, "Button3");---------------;点击按钮控件: 全部选是(&A)
页: [1]
查看完整版本: AU3怎样写用RAR创建的自解压文件的解压路径?