errs.vbs --- WSH エラー解読プログラム by BD&ASS
【ソフト名】errs.vbs
【検索キー】WSH, #UTY, VBScript
【著作権者】BD&ASS (null), SGL00064
【動作環境】Windows 95
【分 類】フリーウェア(その他のツール)
【開発環境】テキストエディタ(^^;;
【備 考】
えー。詳細は下のコメントを参照のこと。
Windows98ではちゃんとエラーが読めるのでこのツールを使う必要はありません。
VBScript
' Wsh Error message checker for Windows 95
' by SGL00064@nifty.com
'
' 説明:Win95だとWSHのエラーメッセージが化け化けという問題がある。
' 本プログラムでは、エラー番号を入力すると対応するメッセージを
' 表示するものである
'
Option Explicit
On Error Resume Next
Dim appname, ee, bh, ec
appname = "WSH Error messager"
ee = "&h"
Do
ee = InputBox("Error番号を入力" & vbCrLf &_
"16進の場合、行頭に" & Chr(&h22) & "&h" & Chr(&h22) &_
"を付けること", appname, ee)
If ee <> "" Then
If Left(ee, 1) = "&" Then bh = True Else bh = False
Err.Raise(ee)
If bh Then ec = "&h" & Hex(CLng(ee)) Else ec = CStr(ee)
Call MsgBox(Err.Description,, "Code: " & ec & " - " & appname)
Err.Clear
End If
Loop While ee <> ""
ダウンロードはできません。上を適当にCopy & Pasteしてerrs.vbsで保存してください。