zip_deflate压缩工具

如果需要多线程请在这里初始化com库
局_JScript.创建 (“scriptcontrol”, )
局_JScript.写属性 (“Language”, “JScript”)
局_JScript.数值方法 (“AddCode”, #JS) ' 此处填入为JS常量
局_result ＝ 局_JScript.通用方法 (“Eval”, “Getzipinfo('” ＋ Data ＋ “')”).取文本 () ' 此处的表达式如果比较复杂建议使用常量,或者改用Run方法