<٪
'' ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::: 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 = لا شيء
وظيفة نهاية
'' ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' ::: :::
'' ::: وظائف لتحويل اثنين من البايت إلى قيمة رقمية (طويلة) ::::
'' ::: (كل من endian و big-endian) ::::
'' ::: :::
'' ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
وظيفة 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 ::::
'' ::: width => عرض الصورة :::
'' ::: QUINT => ارتفاع الصورة :::
'' ::: depth => عمق اللون (في عدد الألوان) ::::
'' ::: 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)