首先,下载模块,需要用到模块来解压;
下载地址为:
http://pan.baidu.com/s/1jGvhtx8然后,输入密码自动解压的代码:
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.如果真 (通用对话框1.打开 ())
编辑框_文件名.内容 = 通用对话框1.文件名
.如果真结束
.子程序 _按钮_解压_被单击
.局部变量 密码, 文本型
密码 = 编辑框_密码.内容
调试输出 (编辑框_文件名.内容)
ta7_rar解压 (编辑框_文件名.内容, 取运行目录 (), “C:\Program Files\WinRAR\WinRAR.exe”, 密码, 假)