نسخة الكود كما يلي:
<٪
'//////////////////////////////22222222207
'//
'//1.c:/windows/system32/cmd.exe
'// انسخ المسار الذي يوجد فيه هذا الملف
'//
'//2.Change C: /program/winrar/rar.exe
'// انسخ المسار الذي يوجد فيه هذا الملف وإعادة تسميته إلى winrar.exe
'//
'//////////////////////////////22222222207
'//
'// compresspath (byvals)
'// مسار إلى ملف مضغوط | سلسلة متغير
'//
'// decompresspath (byvals)
'// فك ضغط المجلد من الملف | سلسلة المتغير
'//
'//ضغط
'// ضغط عبر الإنترنت
'//
'// فك الضغط
'// إلغاء الضغط عبر الإنترنت
'//
'// powerbynever-online
'//
'//email:bluedestiny budapat/126.com
'//
'//////////////////////////////22222222207
OptionExplicit
classCompress_DeCompress_Files
Privateversion ، حقوق الطبع والنشر
PrivateOwshshell ، Ofso
PrivatesCompressPath ، SdeCompressPath
privatesubclass_initialize
الإصدار = "compress_decompress_filesbuilder20051015"
حقوق الطبع والنشر = "powerbymiracle (bluedestiny)"
setofso = server.createObject ("scripting.filesystemObject")
setowshshell = server.createBject ("wscript.shell")
Writeln (الإصدار+"<br>"+حقوق الطبع والنشر)
ينتهي
privatesubclass_terminate
ifosoBject (owshshell) thensetowshshell = لا شيء
ifosoBject (OFSO) thensetofso = لا شيء
ينتهي
PrivateFunctionPhysicalPath (Byvals)
PhysicalPath = server.mappath (s)
الوظيفية
privatesubvalidatefile (byvals)
ifofso.filexists (s) thenexitsub
ifofso.folderexists (s) thenexitsub
CallerR "ملف (مجلد) غير موثوق!"
ينتهي
privatesubcreatefolder (byvals)
ifofso.folderexists (s) thenexitsub
OFSO.CREATEFOLDER (S)
ينتهي
privatesubwriteln (Byvals)
استجابة. write "<p>"+s+"</p>"+vbcrlf
ينتهي
pertesubcallerr (Byvals)
Writeln "<p> <b> خطأ: </b> </p>"+s
استجابة
ينتهي
privatesubcallsucc (byvals)
Writeln "<p> <b> النجاح: </b> </p>"+s
ينتهي
publicsubcompress
validatefile (scusspresspath)
OWSHSHELL.RUN ("Winrara"+ScirmressPath+""+SdeCompressPath & "")