<％
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::: bmp、gif、jpg、png :::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::
':::この関数は、任意の:::から指定されたバイト数を取得します
':::ファイル、オフセットから始まる（ベース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）））））
エンド関数
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
'::::::
':::この関数は実際の作業のほとんどを実行します。それは試みます:::
'::: extensionに関係なく、任意のファイルを読むには、:::
':::グラフィカルな画像かどうかを識別します。 :::
'::::::
'：：： 合格した： ：：：
'::: 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です