<％
'' :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: BMP、GIF、JPG、PNG :::
'' :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'' :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::
'' :::この関数は、任意の:::から指定された数のバイトを取得します
'' ::: file、offsetから始まる（ベース1）:::
'::::::
''：：： 合格した： ：：：
'' ::: flnm => filespec of file of file cone read :::
'' ::: offset =>読み始める:::
'' ::: bytes =>読むべきバイト数:::
'::::::
'' :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
関数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）