「送る」に入れるスクリプトダンプ : 【VBScript】

インストール場所が必要なので、仮に以下の場所へ作成したとします

C:\Program Files\laylaClass\tool

dump_w.vbs と dump_c.vbs は両方とも、上記ディレクトリに作成します


※ 「送る」は C:\Documents and Settings\ユーザー\SendTo です
dump_w.vbs
行番号付きテキストエリアでソースを表示します
このままの表示で印刷しますテキストとしてダウンロードします
01.Set WshShell = CreateObject( "WScript.Shell" )  
02.Set Fso = CreateObject( "Scripting.FileSystemObject" )
03. 
04.strCurPath = WScript.ScriptFullName
05.Set obj = Fso.GetFile( strCurPath )
06.Set obj = obj.ParentFolder
07.strCurPath = obj.Path
08. 
09.Call WshShell.Run( "cmd /c cscript.exe """ & _
10.    strCurPath & "\dump_c.vbs"" """ & WScript.Arguments(0) & """ | more & pause" )  
dump_c.vbs
行番号付きテキストエリアでソースを表示します
このままの表示で印刷しますテキストとしてダウンロードします
001.' ****************************************************
002.' ファイルを１６進数でダンプします
003.' ****************************************************
004.Dim Fs,Stream
005.Dim InFile
006.Dim Kana
007.Dim KjFlg
008.Kana = Array( _
009."｡","｢","｣","､","･","ｦ","ｧ","ｨ","ｩ","ｪ","ｫ","ｬ","ｭ","ｮ","ｯ", _
010."ｰ","ｱ","ｲ","ｳ","ｴ","ｵ","ｶ","ｷ","ｸ","ｹ","ｺ","ｻ","ｼ","ｽ","ｾ","ｿ", _
011."ﾀ","ﾁ","ﾂ","ﾃ","ﾄ","ﾅ","ﾆ","ﾇ","ﾈ","ﾉ","ﾊ","ﾋ","ﾌ","ﾍ","ﾎ","ﾏ", _
012."ﾐ","ﾑ","ﾒ","ﾓ","ﾔ","ﾕ","ﾖ","ﾗ","ﾘ","ﾙ","ﾚ","ﾛ","ﾜ","ﾝ","ﾞ","ﾟ" )
013. 
014.Set Fs = CreateObject( "Scripting.FileSystemObject" )
015.Set Stream = CreateObject("ADODB.Stream")
016. 
017.InFile = WScript.Arguments(0)
018. 
019.Dim LineBuffer,DispBuffer,CWork,nCnt,strBuff,i,j
020. 
021.if not Fs.FileExists( InFile ) then
022.    Wscript.Echo "ファイルが存在しません"
023.    Wscript.Quit
024.end if
025. 
026.' ------------------------------------------------------
027.' Stream のオープン
028.Stream.Open
029.  
030.' ------------------------------------------------------
031.' Stream タイプの指定
032.Stream.Type = 1     ' StreamTypeEnum の adTypeBinary
033.  
034.' ------------------------------------------------------
035.' 既存ファイルの内容を Stream に読み込む
036.Stream.LoadFromFile InFile
037.  
038.' ------------------------------------------------------
039.' バイナリ型の Stream オブジェクトからを読み取って加工
040.Bcnt = 0
041.nCnt = 0
042.KjFlg = ""
043. 
044.Do while not Stream.EOS
045. 
046.    if ( nCnt MOD 16 ) = 0 then
047.        Wscript.Echo "          0  1  2  3  4  5  6  7" _
048.        & "  8  9  A  B  C  D  E  F"
049.        Wscript.Echo "--------------------------------" _
050.        & "------------------------------------------"
051.    end if
052. 
053.    ' 16 バイトの読込
054.    LineBuffer = Stream.Read(16)
055. 
056.    strBuff = ""
057.    For i = 1 to LenB( LineBuffer )
058.        CWork = MidB(LineBuffer,i,1)
059.        Cwork = AscB(Cwork)
060.        Cwork = Hex(Cwork)
061.        Cwork = Ucase(Cwork)
062.        Cwork = Right( "0" & Cwork, 2 )
063.        DispBuffer = DispBuffer & Cwork & " "
064.        strBuff = strBuff & CharConv( Cwork )
065.    Next
066. 
067.    Wscript.Echo _
068.        Right( _
069.            "00000000" & Ucase(Hex( nCnt * 16 )), 8 _
070.        ) & " " & _
071.        Left(DispBuffer & String(49," "), 49 ) & strBuff
072.    DispBuffer = ""
073. 
074.    nCnt = nCnt + 1
075.  
076.Loop
077.  
078.' ------------------------------------------------------
079.' Stream を閉じる
080.Stream.Close
081. 
082.Set Stream = Nothing
083.Stream = Empty
084.Set Fs = Nothing
085.Fs = Empty
086. 
087.' ****************************************************
088.' 生データのテキスト
089.' ****************************************************
090.function CharConv( HexCode )
091. 
092.    Dim nCode
093. 
094.    nCode = Cint( "&H" & HexCode )
095. 
096.    if KjFlg = "" then
097.        if &H81 <= nCode and nCode <= &H84 or _
098.            &H88 <= nCode and nCode <= &H9f or _
099.            &HE0 <= nCode and nCode <= &HEA then
100.            KjFlg = HexCode
101.            CharConv = ""
102.            Exit Function
103.        end if
104.    else
105.        if HexCode <> "00" then
106.            KjFlg = KjFlg & HexCode
107.            CharConv = Chr( Cint( "&H" & KjFlg ) )
108.        else
109.            CharConv = ".."
110.        end if
111.        KjFlg = ""
112.        Exit Function
113.    end if
114. 
115.    if 0 <= nCode and nCode <= &H1F then
116.        CharConv = "."
117.    end if
118.    if &H20 <= nCode and nCode <= &H7E then
119.        CharConv = Chr(nCode)
120.    end if
121.    if &H7F <= nCode and nCode <= &HA0 then
122.        CharConv = "."
123.    end if
124.    if &HA1 <= nCode and nCode <= &HDF then
125.        CharConv = Kana(nCode-&HA1)
126.    end if
127.    if &HE0 <= nCode and nCode <= &HFF then
128.        CharConv = "."
129.    end if
130. 
131.end function


送るに作成するショートカット



↓ショートカットからの呼び出し