<％
':::::::::::::::::::: :::::::::：::::::::::::：:::::::::::::::::::
':::::::::::::::::::: :::::::::：::::::::::::：:::::::::::::::::::
'::: BMP，GIF，JPG和PNG ::::
':::::::::::::::::::: :::::::::：::::::::::::：:::::::::::::::::::
':::::::::::::::::::: :::::::::：::::::::::::：:::::::::::::::::::
'::::::::
':::此功能从任何:::获取指定数量的字节
'::: file，从偏移开始（基数1）::::
'::::::::
':::通过：:::
'::: flnm => filespec 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，fsoforreding）
如果偏移> 0，则
strbuff = objtextstream.read（offset -1）
如果结束
如果字节= -1，请全部获取！
getBytes = objtextstream.read（lngsize）'readall
别的
getBytes = objtextstream.read（bytes）
如果结束
objTextStream.Close
设置objTextStream =没有
设置objfso =没有
结束功能
':::::::::::::::::::: :::::::::：::::::::::::：:::::::::::::::::::
'::::::::
':::函数将两个字节转换为数字值（long）::::::
':::（ Little-Endian和Big-Endian）:::::
'::::::::
':::::::::::::::::::: :::::::::：::::::::::::：:::::::::::::::::::
功能lngconvert（strtemp）
lngconvert = clng（asc（left（strtemp，1））） +（（ASC（右（strtemp，1）） * 256））））））））
结束功能
函数lngconvert2（strtemp）
lngconvert2 = clng（asc（右（strtemp，1））） +（（asc（左（strtemp，1）） * 256））））））））
结束功能
':::::::::::::::::::: :::::::::：::::::::::::：:::::::::::::::::::
'::::::::
':::此功能可以完成大部分实际工作。它将尝试:::
':::读取任何文件，无论扩展如何，will :::::
':::确定它是否是图形图像。 :::
'::::::::
':::通过：:::
'::: flnm => filespec to read ::::
'::: width =>图像的宽度::::
':::高度=>图像高度::::
'::: depth =>颜色深度（颜色数量）:::
'::: strimagetype =>图像类型（例如GIF，BMP等）::::::
'::::::::
':::::::::::::::::::: :::::::::：::::::::::::：:::::::::::::::::::
功能GFXSPEX（FLNM，宽度，高度，深度，刻板型）
昏暗的strpng
昏暗的strgif
DIM STRBMP
昏暗的strype
strtype =
strimagetype =（未知）
gfxspex = false
strpng = chr（137）＆chr（80）＆chr（78）
strgif = gif
strbMp = chr（66）＆chr（77）
strtype = getBytes（flnm，0，3）
如果strtype = strgif，则是gif