关于 GetRef 函数
- 返回一个指向一函数或子过程的引用，此过程可绑定某事件。
*Set object.eventname = * GetRef( procname )
Dim StdErr
Set StdErr = WScript.StdErr
Main
Function Main()
On Error Resume Next
Dim x
x = 1/0
Catch 11,"HandleDividedByZero"
DefaultHandler
On Error GoTo 0
End Function
Function Catch(nErrCode, sErrHandler)
If Err.Number = nErrCode Then
GetRef(sErrHandler)()
Err.Clear
End If
End Function
Function DefaultHandler()
If Err.Number <> 0 Then
StdErr.WriteLine ""
StdErr.WriteLine "***エラーが発生しました***"
StdErr.WriteLine " 番号：" & Err.Number
StdErr.WriteLine " 内容：" & Err.Description
StdErr.WriteLine "*****************************"
StdErr.WriteLine ""
' Catch = Err.Number
Err.Clear
End If
End Function
Function HandleDividedByZero()
MsgBox "ゼロで除算したとき、こんな処理を実行します。"
End Function
错误代号
VBScript 语法错误 中文 | 日文
VBScript 运行时错误 中文 | 日文
