Single Post |
Topic: Для скриптописателей. Только. |
Author |
Message |
Serge Yolkin
|
Posted: Sun Feb 24, 2013 22:05 Post subject: |
|
|
Переписал утилитку для создания файлов/ папок (типа, F7). Та, что была в этой ветке (на первой странице), глючит под восьмёркой. Особенно - интерфейс. Вообще, метатег Code: | <meta http-equiv="MSThemeCompatible" content="Yes" /> | небезобидный, как оказалось. Хотя, и у него есть свои плюсы. Ещё изменил логику работы счётчика. Постарался убрать кое-какие недочёты. Возможно, добавил глюков. Вроде, тестил, но за все возможные варианты при ипользовании счётчика не поручусь. Code: | <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="New095.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="New095.zip"
UEsDBBQAAAAIAEaaWELvXipTOBkAADlWAAAKAAAATmV3MDk1Lmh0YcxceXMbx5X/O6rydxjB
jjAQgcHBQxZAUKWDKnt9xGXJsVOikhpgGsRYg5nZmQFBEqZLh72JVy6rEju1VVvJer1Hkqr9
h5ZFWxelqnwC4Cv4k+x7r7tnegYASSV2bMokgJ7Xr9/Vr3/9uuHl4xd+dv7yL95Y1bpRz9He
eOvcqy+f13Klcvnt+fPl8oXLF7R3Xrr82qta1ahol6LAbkfl8urrueeOabluFPn1cnkwGBiD
ecML1suX3yxvIp8qdhRvSyH1MqzIyq08d2yZxtnsOW7YnMKhevr0ad6REzPTWlmO7MhhK6Mv
Rk9G34zujXbHN8cff3v9T8tl/gBk0ZZ7LDI15Fdi/9y3N5q5854bMTcqXd7yWU5r80/NXMQ2
ozLyb2jtrhmELGq+dfli6cWcVp7B6J3SW2dL572eb0Z2y1F5vbzaTPqF7cD2Iy2C4cQo7/Km
nOaY7nrfXIf2f7rEm6iLpg3sqKuHzOkUhgEL7W122dMXlpaKtYVaodHzNvBzrVIpViuVQmOH
hilzpnzMbmTWTd937DbI5rnEVPn8utmDMV9ng9I7L/+c5ehxywssFoCEXdvlLTbo08z99NJW
GLHem54X/bQc0vv5Wrlj+YHtgvMcRxBbzdxLl8/6vvjouiw4J1i6Hm/smZt2D5Q5148iZB23
2+7UdtDIcxzlM3NYG+VXmmx33WEvu2Fkum3QaYuF/MEGC0KirBinF3mT9Ee05TDVHe0wFHY/
OWx7jhfUXXNjq9EBb9ZdL+iZjlZd8DfL1UV/Uzsb2KbT6JnBuu3WKw3ftCwQAd7tCCtaW8OW
2b62Hnh91ypxfs+vVler519UaIrPW+3i834Hfl343Sw+H1pD8GvQcbxBvWtbFnMlOVllKIas
gQwV+AevqefAYHvIfVgPPce2tCpQQifPc7OE1hQJz7+IMqYo610UCCQFKa0u/LqT/VpOn03v
1NVOgmKWqqSw7hZzQEnRy7I3uERZ0RXOQDP0vdBG19fNFtD0I/nMH3aZvd6N6tWl2CI8ToYD
24q69cUKtKeMh26sVmJqoxUIwWAC9cLYXNDOFQDpMBZKAz5Qy3MsQQJOnDRJSj1yMxkQLbAt
ha0txMNzit7QYZ2oPj+ffWAJ2zvwG4GVwMa9ei1DJB3UIycFfIgMTbTir4S+6dIfkKU9nPAg
jCaMtlRRelti+N4w8vz64kLmkctFry4tqQ9k2EqFURzhkGl0OAQGjNXDvxDKZHHMfPWqqglp
SnJkW10ZQq7nsjQ9mY6EVDt1h5Yd+o65xXvIyVfaqvO8E89tihXMFCXTsdfd+rv9MLI7W43t
ku1abLM+n7BMwtHsR57S3gcD+l05iZGjtqjaGCk09MwQZDCjOvmwoUSwMj5qEnd0hGLzldjA
sCgonB3IxX4/ItPKd5F8B4bmIpW4D9Mdferki2kck6L11SDoybCcV7u7ZHXy1ItKs5yW1VSI
RVpLhKPIWKpUiylCOyXxQvqhr8qYeqRG/zDO2pgLuGkt1vYCWhzrMJVZ4NhJFMFckUInLP22
sAtPbdxtqmuIYFO6fGEib0NvmaKUto7ageKkoiYrkU2Hg64dsRIo02YQvoPA9GOCLl9P/G3K
XErctAGbsCCmw4js8ecYx27a/b6blbyqRNhpVeRNocaC4udQ6rYQ8wSEgisvorcywTd4g0sh
X5UhxxOGsLqIo3o9wlFd5vi5leUyPMxQdRSqdj8I4I3WgcTMAqD3icbvxIhs1bIjEyAasPKn
sosUdogMEqghERkwJVDZzJ11orlKTvPcNsCpawSYQmOdRasOQwbhua3L5joiLD1PsyxfuFK5
arS7rH2NWc18FPRZviHZAmMikp8ELglMyxYIB39cwmt2ECVNnusHns+CaAvQqosQsmPqAAYT
CjliDkdMmgFbsIteux/GLWa7zcLwGtsCsJTQlRMJaeLwvxXwIr6mMbc2ejrahd+H41viuTAa
mDs2X9pgLsTdJYDNMA3/LuNlJRl/AJI8GD2qL5ftKVKklVJdWv3uXCqdmnKm4sTpzquC8xLv
qF6p5hRvSH9UhaWNaDOOnpTxp+hY+6F1rM3UsTZNx5rUETYIU3VMBZii6Px3p+jfoub8TDXn
czMm1rzQa/wbiN8vR48gqPeXWysG7OSWy62VI2m98MNqvTBT64VZWi/M1LrnHFntxR9W7cWZ
ai/OUntxhtqDsHNkrZd+WK2XZmq9NEvrpRlab9v+kbU+9cNqfWqm1qdmaX1qhtZBNNvX0yCK
q0AUFFM7ocESCh8BpGgMAI4XKFiFAJCLWsD+LgDZmd4xnZCh/J7bQempEY2CbdOAUppZO7dy
pX11st3KrRiTrZuzWU5TzlKUs8wIlYts0JHj9FgvvleU8TD6bPSZMfrD6A/G6NPRp0pgdKxM
Bl4BUoAHo12wOLGYwRDYCIbAOs0wvXKt/PKIHP88+rPg+MXoizTHakbE342vj/ZGj8d3Dmb5
DvykGVUyjD6Fsf48g0nbMUPwfCvIxSL+B6jxGEbeH+0qfNUwh30yetBa+fbfPngWvr8e3R/f
AO73OUa8j8opQ/iuQWXCyxDHzXw+rcT/pgaaFjOOGjPMsXuwIwqmAneKSCe3MvpPmIIIFfdg
GoJQ+Dr+uH4ASv1+sos1Nbu09Xw+nV4E84nEAq7aG988KtL+B+ugZZSYEP4pxPkTyIRg/B+p
CqXDVIAIgn0GBPePVIFfHabAU/DAPZife+CLhz9SJYxDlID5+wRUeIg5+MeoQLzezlSBElNo
TVsqjwgKemoZxOtjfSeb93qQ974gV9/EhDx6qOY7ni25HMAL66203QS7SUU6Oidi1stY7Sw0
EFDo6SUn1srzCY5smE6fYTVh5QTrhX7j2+ufLZf5s1m0VUlbPYyyJilrh1HOS8r5wygXJOXC
YZSLknLxMMolSbl0GOUpSXnqMMoXJeWLh1GelpSnM5QQW+RPeOzCY5EQ/h0SwlOIjgfp0PvH
zKBw6gxaB8x1lNWwpsGaDuDlh88Es/SYLxyUx+Z/9PIvHCj/wmHyK4nreKmURrOrlLIoAbXa
Kqy1MykmXeY7LtFhqZRkxEmWVoblZErOJMvtXHaglK5yiG+v/wngLOoNWo+vj28jaZzq+Bvc
rSqihNs5BSSvnHBbQPMOfznQaqApL5L/DRcJ+N2Bc1v6T8plDfzzBGTFTcZDAuUIw+6i1zR4
i8D4MeGBXQ3aH6JHuUALi5WSBbbCaDPkGxF9BtgWXt7GUn+Rk9cqC4eRv0RHZEheaODfDTOg
vmbzytUiiboLcnw1vsX3JWDc2/S8VfwJPkXhR0+18Q3pKNBiF7dO8Pmr0RMU/8vxvwo1uRLt
5nCjXila9VoxrFd2uKg40FMaapdUv4meBLbjX49/KxdLsIa+oYFTyXyjRyUY6wl/T+myqFn8
qZwCYFIN/gMut8YfIEgEKW6M9opayOmACjjvYh0gHmq0WyCBrCYFKJkAuj7Bevr4BrIjwPZo
tAfvUQBUmvZTtG27T507TZcNtLOw99lg7/ys9S6keD3PgwFr7Bdth/GbHPxZvsCNEDTLOd04
eaaQ088018K5914ovKdfWbt0da5QXuck4TTOb3PWxqUuc5w8+hFpB10YRm81A4NtsrZOF0IM
RCima71qu6xQGJqG3w+7eutK9ep777Wu1K6KCyygMyQubiSu7f749ugBfAAj0P7xIbocpht6
H1puNTTgITvsUWBjMOzDvydoKtpvIutWs0Jx5neUDWdoiHOjC3YAGnnBFqdRN6UmDHCmg9n2
nBkySrLYVDAC5jtmm+nlK2vhmnH15Jp18oVyEfZv9fzojzStdsd34lOR0W6eeHdaot7CjdXp
u7RT1TqmzgpDiu3RXVD6S5yoIsxxdh4t0DUd6Pdpd/uQR02LhxXo//77rMHfhwM7aoP5C0OR
2dqgmVap+5vpzXjHjECoRitg5rWGSlrNkEab0QHUtQy17doHUM9nqLuReQD1wgR1zzmAfDFD
Pgg7B1AvZai3bf8A6lMZ6iBKeHM6fi6q+hwfSidodkdPRV5zRhwlPagPK6SLKLwTzRt5EJZv
JD2UAOQNOwzyzczB03wyQx+fPvbUwD9o9CE0i3V5RzHVTnqGtOIZoibGfUyDB6bGaYsBSm8V
Ahb1A1fIAppQTVSXwpFt42UMk9l5nsX0PIfPZ0XWQ2IyYmiEzLVeYVuhnh+uvn5hRzzOKNKe
OtWvTylMgRnv8Ze7VEXbJfUewjSfWsbCCR9ahUT8ZpMvJ4nfQiujJSw5R1SRBwowSBzOpqln
qepJqQli/AuI+gHHHICXPtRELTxeMZN0TYBA6xc3VF/0aRG6YEYsll6kskRBkco2mh3L0l8z
o67RcTwv4G8D0Mzr6YWT1Qr8FIqlhenZjffuY9J/yesHYKxiqVaYixtfs91+xCaaLzHYxFui
eWoiVBhf7DvOL5gZTPD23KirF+aq6Wau9QzG8yrjhPJQpmkZ0lmKLL7R3DBC37EjvQzQQD9T
N4a1ncLcC4VywXjXs11djQZl3hy3ChPTKQ6zuDxrtEGTiL2Jmwy9YCCcbUqHK+EE8VQtshpe
g8Xpqut59F5+jlULRgi4nunwUGSOTCgyjAwLwnSHx+MTwAw3MFOMvoZYu0tI4T7kjSShYOYQ
U46SCs29GXgrGaeTpKZbIuT3E2SdQZN1gSNhMmBJBsnTgJJboG1sNFlDcYbfNuj2jEG3pJp5
fslQZleanFkSvNiXnzZH11HgtsFN8/eJraDe9BhdJQ8QuMYu0AGBL0C1JBdbXR5EeJe8mV9u
BbC/XPZXwMNzedwKSRWBjmsnLu2hfl77mnw8sGF2DyC8ost2j3n9SJey6BAEE33xxl++sVOs
LmIumGYkO/HqDVpDuM57HF4WVVBGYZQkroEQKQq2gEHMgW8pfzt6rFyWKWpoGTQr30tybhBq
fxz9XqPEjnH5Ea6pMmFDNHQMftNpddMOo1BXUW2hMGgSXr1IFOlncdKncEFCPgcPoN1pm5Ri
g0B6M5ZXwnJS7h7h769xNeKaYJF/b/wR6LtPOH4P6XAC3aWJdVuKAoGCwGEPTQtdVOSeoIj7
dR4X+bnp+qSWcpHCUthE/aBg918heF8rXZ3j2F1iARXJqR+SnvovOe6fo70SvYO0qPDIIKqk
51oIuyqgA4yVP3HiOMzzgjSBGgJPpA3yc3rrTF5isNHu8TzsMGK7HM8XUhgE2J3p2KZeqHfs
lj6Yy6+tgc0UQebyBjQoOhXj3Ugq+IGFDH41EWiUHh6NP8EsMNqvU+4Etz3GagJs1/cwumWa
3KUSyV1a+bEXaoitIJp0HK3zsOmPPUnfe8CFftWF9SIwYVumD4wObCrDgoo/+T7zuBmtAlyB
JyBxRbdhcwtLCVazjMh7y/dZcB5WSHhOX5l4HdTVY5AZB8qsQcN+i0+M73FkCJO+4TB3PeoW
hn0j9ALIW7ZZLTQglzf7V+TDUvXqXDXpD1gIFu/YaDgtp5cVaHMMrIrp6kVc7BXPNzLP1VoG
p7AUiYHfCiEq3xvo1UoRnhZKGMi4pODTOfhQgvU58vB7Qe46WIarEUvcAQuj7+0mkDfsZdGp
Yc/NqbbGIE4+adPiWcUgcxwcADqwJTgooXCTQa8wZSdO6HZTlbuQPFW2KrHoyiSpqGsEpq+7
eCZIvrgDUwMmxD4kcAS+CZZ/KspudPKGEwTnOWRJje9nnogiHLw+d6x88rljpsMgKJ47lqcv
GgUsufQR1tfc/Nxzxyjfr2IrfuGFihQMdOYPU/krFZqSQp/av9mc3bMAvaDzmnvBXrejECSC
dUgIAxnOgnQKeC6M9HTlhBWSnlIZusgyKHuaRazqqkhKxyk5+ySNg6k00dU9mq5HZdxszuYI
QYLBcbKcBAtMDSWuntmqJ04ovQ+0YoryO9NIifo+L9G9//4E8x7BAS4dnjMcMkGqEr0/0xzh
90Zod4ho4QFBDMKMSc2aJk5c7JL4k/+IrQKrrrDamWodpnRWyoliDCQaRVJ1ko7vxKsaSrgv
63F3aRW+xzcEhFkyME8OyapNVlUAgMFdobSszSEmgNSWyMkXxnxSPZmEfUzNVIQhPicgFpde
NNwlzQlIDXb+mkAY4UmB4HHFRsB2N4FaewcjLVku6tCaPFOS/+Fw5fuSQFkiJsqZ+CPqAEoL
gfEM3gWxG7i3qhXE5qHteDgRknWW84oBcAzUQOp7fK0FLT5W/Z65Cy80wZFSTFOANRF5vt5v
Rr5TTXZE6f1+TLjACWuHEi5ywvlDCZeAMP/GK2uVxbXKUn6OCv5BYG7p1dNit59fq+QLM3qf
wt7DtbUg6qytmZDx1tYs1sFDqWpl4fSOWgRU7IA+IezVMTyfuehnPKXAmVgrUqWwMBwEgK30
PgAi6RyFwbP7RgLpGZ6ZGg7Tcgf9CbcNebiobDY5Fdug4y78Uqpzrt9qOayJGjXUpzwKfk7n
9VSpE09h75nUSWkkqw0j9bx+yEAwd3I0f1tscMUXm5r5qvzSjr+Zn8YHdsiTbCxZQUi+03h+
WrkB6KYfQL/BD59nlCGmyVmZLt0GC5r+dupjmP74DMKrEjyT6KrWGQn7/lG8kNKuOztaZhUo
ks6yfua519jW9CDAqnaWj6ySyN07bN1GX/ISPe7Idmk1/o3YKKSPs3HqPKXC9F3MZXIWHCQq
/ojFV1T0xZSRywaPe9DgvGexZrM6L+Sic3KSIT1fJVOsxlBX04leYVvZnf8RR6vWxHAXq3Ks
WEFZjsoUpPALaErulDR+N3Xw8d90VMdr8bvaX/9PS98hwNsCf32kbcAuhB+Iiu+mN2bbNFXb
mq3QklRoUR4uU32OHw7uIyrhhwQpYx6cmg5LTs9m89qpbDYld4dtLi+dBCBq4SWIHbztEP9v
DJbFzTa6PiG+CSiuaXRzyW1ycUeG0M83orx0h1BF+tw0tTYDWhMXn+7Ha8L4triHQabDo2bi
9TFSjz+Ux7G4J+Zddaxt3MSdmnp/Q9xNlBB2T6O7b5xvPCTy0dQvBMC7x4U0GewHaS3Dq7JY
QZOjaPFBt3qLQ1QhBeyUNRhDG/0egRadDpEx8Oj4a9xniuZ0GRPyQnJBlOoIybXB8a1JVXDP
yq+SfshNnLVGFu2NP8FPeKq/z2934PyjAlHsEJySdGx3jxC+qENgoMQGkEUnuoCPR0mxuoLH
55yHuEYwKdQEfr8f8yiqNS7ao6CEN8BZ98nwZKXihPy0mRFFuiREuBC7JMjDWHyMLO4N2gUZ
FMb4xVQf7+7jTucOmXwvnaTvxxc3l/uOvCzk0BcglTTGB74ovx24XHZslfZzuTvgdPRd1hmk
/8X3VuTU9FFw0nfGMJAd7Zha06lWzBk9KCSdazM6dyMT+2SmyPiW0nV+Zteec1jfhRl9B2Hn
sK6LM7pu2/5hXZdmdAXIfFjXUzMclFpkODktpEch57VZ9ComkWSsgxj8TmZrMVbYzhIul0Vk
xln5L4pOt9NTZPwhRe0+RPtNiI449dzlJx+QO9PJBtZOvjO/Twy+lpNRUukYOEWNYqCo5GJy
7GQWFsN8hRlEPjrhRA2x6pxYjxrADD0bz2VyVsKJawhrBboPNKC8nD4nSgYbyStKvDi+j7bM
ZHx0CV3twZOVeC36UsAxUPsb0XmPjClTMBcDUwx0Hn80/nj8SZxqbqpzeMRvDaXWD0ykuwYe
ONE5n1jrgPIpZeUHimj7lAdv0oKzl6QzQbAvjsD4yQ/YAc9TH9OhK0+bTwzFbJTu5FkfRCaa
5iu+MOCq+RBTv6bXKoAQE1JEB8I7WXiAu2bABGc2YfrH/+efqlHJacxtewTGc/9fztWsNAwE
4bOC7xALPZa2qYhoWilKodCeWlEoPWxr/2yblPy0vQhS0KMnxZPQR9CzN5+gvoJP4uxfdpM2
/aWCGAgkuzvZ2dmZ2Z1k8jl2PXIUOsWkfwDbikiJ4VuNQSjjzzc43+H8mIy/nqHsXgGL+CWo
q3yh2ISQaSbYFYZc2hQjK5DzHEtslQhNJ5is1YW2tmF0KsiUSHTDJVkKGYts0yPZq2oQNFYV
kZR6CW+K9DW08zXdkUrnQWjBxhhUFSfebA9BS0f9VgP/UjIHVIvcZzrIng+01TQGWb2IrDaI
VhphIAAXjNMnDAmSS6UlNDYo2MgmDGKoLS9U18oZzyKZWFGcQTKhxvjHHqeZVA9iLF6R8NVY
tciV5gVAvyiRWc57Jl0sIhCZz/gQcawf0o2W39KwSPNAu60PX3a4JHzZDBgyxsZM/BaoE28l
QjNjQMUXBOJJTuGnbpLczid6zcTnpbOaJfFrxGsuWIjU/7gQ5XPzVyLmiiP2pivRdhcUruHc
FDi2XCwWPlFcdK3wtEkIZyVpK+ojprAevYZiy9Vjn4FPQSPJNrKM9iVW0L4eqraBU8r+jVGR
3rRQB7SGVeKDW1HabBAfaIE9GYMLCzXE+3SPU4Nb09HxH/8p7bpGK4D3YIW7LGS0qNxSqw1R
twdTgcP30ffdqwLtHqH9C+wuR/QZkwe4f8LXtM/48d7uzoANMRoFAbBPRup0hRblHXD2OcN0
AqGNV4xQHZJXvLgrU4P4GtKoHlJ6ptHAl8EOSwBLyKSWIPU4Lan1apOn7ZfOztPFdImnA5XL
Ke/KwwYJG3JXbzyaSNXzB1BLAQIUABQAAAAIAEaaWELvXipTOBkAADlWAAAKAAAAAAAAAAEA
IAAAAAAAAABOZXcwOTUuaHRhUEsFBgAAAAABAAEAOAAAAGAZAAAAAA==
</resource></job> |
|
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|