<٪
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: BMP ، GIF ، JPG و PNG :::
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: هذه الوظيفة تحصل على عدد محدد من البايتات من أي ::::
'::: File ، بدءًا من الإزاحة (القاعدة 1) :::
'::: :::
'::: اجتاز: :::
'::: flnm => fileSpec of file to read ::::
'::: Offset => تعويض عند بدء القراءة :::
'::: bytes => كم عدد البايتات للقراءة :::
'::: :::
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
وظيفة 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)))))
وظيفة نهاية
: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: :::
'::: هذه الوظيفة تفعل معظم العمل الحقيقي. ستحاول :::
'::: لقراءة أي ملف ، بغض النظر عن الامتداد ، و will ::::
'::: تحديد ما إذا كانت صورة رسومية. :::
'::: :::
'::: اجتاز: :::
'::: 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