<％
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: bmp、gif、jpg、png :::
'::::オリジナル：Junyd ::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::： ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::
':::このことは、BMP、GIF、JPG、PNGの写真からバイトを取得できます:::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
関数getBytes（flnm、offset、bytes）
dim objfso
dim objftemp
dim objtextStream
dim lngsize
エラーの再開時に次に再開します
objfso = createObject（scripting.filesystemObject）を設定します
'最初に、ファイルサイズを取得します
objftemp = objfso.getfile（flnm）を設定します
lngsize = objftemp.size
objftemp = Nothingを設定します
fsoforreading = 1
objtextStream = objfso.opentextfile（flnm、fsoforreading）を設定します
オフセット> 0の場合
strbuff = objtextStream.read（offset -1）
ifを終了します
バイト= -1の場合、すべてを取得します！
getBytes = objtextStream.read（lngsize） 'readall
それ以外
getBytes = objtextStream.read（バイト）
ifを終了します
objtextStream.close
objtextStream = Nothingを設定します
objfso =何も設定しません
エンド関数
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::
':::次のことは、2つのバイトを統一値に変換する機能です:::
':::（小さなエンディアンとビッグエンディアン）:::
':::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
関数lngconvert（strtemp）
lngconvert = clng（asc（左（strtemp、1）） +（（asc（right（strtemp、1）） * 256）））））
エンド関数
関数lngconvert2（strtemp）
lngconvert2 = clng（asc（right（strtemp、1）） +（（asc（left（strtemp、1）） * 256）））））
エンド関数
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
':::::::
':::この機能は実際の作業のほとんどを実行します。それは喜んで試してみてください:::
':::任意のファイルを読む:::
':::それがグラフの画像である場合、識別します。 :::
':::::::
'：：： 合格した： ：：：
'::: flnm => filespec of file of file cone read :::
'::: width =>画像の幅:::
'::: height =>画像の高さ:::
':::深さ=>色深さ（色の数）:::
'::: strimageType =>画像のタイプ（GIF、BMPなど）:::
':::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
関数gfxspex（flnm、幅、高さ、深さ、strimageType）
dim strpng
Dim Strgif
dim strbmp
Dim Strtype
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です
strimageType = gif
width = lngconvert（getBytes（flnm、7、2））
height = lngConvert（getBytes（flnm、9、2））
深さ= 2 ^（（asc（getbytes（flnm、11、1））および7） + 1）
gfxspex = true
elseif left（strtype、2）= strbmp then 'はbmpです
StrimageType = BMP