AkelPad

Code: Select all

<job id="sfx"><comment>

!!!  Сохраните этот текст как файл с раширением .wsf и запустите  !!!

</comment><object id="a" progid="Shell.Application" />
<object id="f" progid="Scripting.FileSystemObject" />
<object id="s" progid="ADODB.Stream" />
<object id="x" progid="MSXML2.DOMDocument" />
<script type="text/jscript" language="JScript">
var c=getResource('b'),d=f.getBaseName(/filename="(.+)"/.exec(c)[1]),
r=x.createElement('root'),y=0,
z=f.getSpecialFolder(2)+'\\'+f.getBaseName(f.getTempName())+'.zip';
r.text=c.replace(/^\s*(.+\s+){4}/,''),r.dataType='bin.base64';
s.type=1,s.open(),s.write(r.nodeTypedValue),s.saveToFile(z),s.close();
if(f.fileExists(z)){while(f.folderExists(d+(y?' '+y:'')))y++;
f.createFolder(d+(y?' '+y:''));
for(var i=0;i<a.nameSpace(z).items().count;i++){
a.nameSpace(f.getAbsolutePathName(d+(y?' '+y:''))).copyHere(
a.nameSpace(z).items().item(i),0);}f.deleteFile(z);}
</script><resource id="b">

MIME-Version: 1.0
Content-Type: application/octet-stream; name="QSearch.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="QSearch.zip"

UEsDBBQAAAAIALSYCEH1FVsSOgAAAMYAAAAJAAAAMTAwMmIuaWNvY2BgBEIBASYwvYGBgUEM
iDWAWACIFYAYJE5r8P8/Aj9gZ2B4/x3C/mPPwPB7PwSD2P9BdD2qehAGAFBLAwQUAAAACABz
jAhBFWi//iwAAADGAAAACQAAADEwMDJhLmljb2NgYARCAQEmML2BgYFBDIg1gFgAiBWAGCRO
a/D/Pyo+wMzAcP83KkZXg4wBUEsBAhQAFAAAAAgAtJgIQfUVWxI6AAAAxgAAAAkAAAAAAAAA
AAAgAAAAAAAAADEwMDJiLmljb1BLAQIUABQAAAAIAHOMCEEVaL/+LAAAAMYAAAAJAAAAAAAA
AAAAIAAAAGEAAAAxMDAyYS5pY29QSwUGAAAAAAIAAgBuAAAAtAAAAAAA

</resource></job>