NetBox 2.7 使用手册

GetLastError 方法

取得 Script 对象的最后运行时间错误

语法

screrr = Script.GetLastError
 

参数

ScriptError
返回 Script 对象的错误信息对象

Script
一个实例化的 Script 对象

注释

使用 Script.GetLastError 可以取得 Script 对象最后的错误信息,包括语法错误、运行错误等。返回信息存放在一个 ScriptError 对象中。

示例

下面的代码执行 err.box,如果执行过程中出现错误,则输出错误结果:

Set Script = CreateObject("NetBox.Script")
e = Script.Load("Err.box")
If e = 0 Then
    Script.SetGlobalObjects

    e = Script.Run
End If

If e = 404 Then
    Shell.Console.WriteLine "Bad Command"
ElseIf e <> 0 Then
    Set error = Script.GetLastError
    Shell.Console.WriteLine error.Category
    Shell.Console.WriteLine "Error Number: " & Hex(error.Number)
    Shell.Console.WriteLine "File: " & error.File
    Shell.Console.WriteLine "Line: " & error.Line
    Shell.Console.WriteLine error.Description & vbCRLF
    Set error = Nothing
End If

Set Script = nothing

err.box 的代码如下:

a = "asd" + 100

Sub OnScriptError
    Shell.Console.WriteLine "OnScriptError"
End Sub

Sub OnScriptEnd
    Shell.Console.WriteLine "OnScriptEnd"
End Sub

运行结果在控制台输出下面的信息:

OnScriptError
Microsoft VBScript runtime error
Error Number: 800A000D
File: \err.box
Line: 1
Type mismatch: '[string: "asd"]'

应用于

Script 对象 | ScriptObject 对象
版权所有: 2003- 网络盒子