<٪
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: BMP ، GIF ، JPG و PNG :::
':::: الأصلي: Junyd ::::::::::::::::::::::::::::::
: :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::: :::
'::: هذا الشيء يمكن أن يحصل على بايت من BMP و GIF و JPG و PNG Pictures :::
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
وظيفة getBytes (FLNM ، الإزاحة ، بايت)
قاتمة objfso
قاتمة objftemp
قاتمة objtextstream
قاتمة lngsize
عند استئناف الخطأ التالي
تعيين objfso = createObject (scripting.filesystemObject)
أولاً ، نحصل على ملفات
تعيين objftemp = objfso.getfile (flnm)
lngsize = objftemp.size
تعيين objftemp = لا شيء
fsoforreading = 1
تعيين OBJTEXTSTREAM = OBJFSO.OPENTEXTFILE (FLNM ، FSOFORDREAD)
إذا كان الإزاحة> 0 ثم
strbuff = objtextstream.read (إزاحة - 1)
إنهاء إذا
إذا بايت = -1 ثم احصل على كل شيء!
getBytes = objtextstream.read (lngsize) 'Readall
آخر
getBytes = objtextstream.read (بايت)
إنهاء إذا
objtextstream.close
اضبط ObjtextStream = لا شيء
تعيين OBJFSO = لا شيء
وظيفة نهاية
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::: :::
'::: فيما يلي وظيفة تحويل بايتين إلى قيمة موحدة ::::
'::: (إنديان صغير وبيج إنديان) :::
':::: :::
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
وظيفة lngconvert (strtemp)
lngconvert = clng (ASC (يسار (strtemp ، 1)) + ((ASC (يمين (strtemp ، 1)) * 256)))))
وظيفة نهاية
وظيفة lngconvert2 (strtemp)
lngconvert2 = clng (ASC (يمين (strtemp ، 1)) + ((ASC (يسار (strtemp ، 1)) * 256)))))
وظيفة نهاية
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::: :::
'::: هذه الميزة تفعل معظم العمل الحقيقي. إنه على استعداد لمحاولة :::
'::: اقرأ أي ملف :::
'::: إذا كانت صورة رسم بياني ، حدد. :::
':::: :::
'::: اجتاز: :::
'::: flnm => fileSpec of file to read ::::
'::: عرض => عرض الصورة :::
'::: الارتفاع => ارتفاع الصورة :::
'::: عمق => عمق اللون (في عدد الألوان) ::::
'::: strimageType => نوع الصورة (على سبيل المثال GIF ، BMP ، إلخ) :::
':::: :::
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
وظيفة GFXSPEX (FLNM ، العرض ، الارتفاع ، العمق ، StrimageType)
Dim Strpng
قاتمة سترجيف
Dim Strbmp
قاتمة strtype
strtype =
StrimageType = (غير معروف)
gfxspex = خطأ
strpng = chr (137) و CHR (80) و CHR (78)
Strgif = GIF
StrBMP = CHR (66) و CHR (77)
strtype = getBytes (flnm ، 0 ، 3)
إذا كان strtype = strgif ثم 'gif
StrimageType = GIF
العرض = lngconvert (getBytes (flnm ، 7 ، 2))
الارتفاع = lngconvert (getBytes (flnm ، 9 ، 2))
العمق = 2 ^ ((ASC (getBytes (flnm ، 11 ، 1)) و 7) + 1)
gfxspex = صحيح
elseif left (strtype ، 2) = strbmp ثم 'هو BMP
StrimageType = BMP