![]() |
执行 NetBox 内置的命令行解释器
Shell.Command
Shell.Commane 将执行 NetBox 内置的命令行解释器。在 NetBox 执行时,如果没有发现 main.box 和 main.nbl,则将自动进入 Shell.Command 执行命令行解释器。
NetBox 内置的命令行解释器的执行流程与下面的代码相同:
Set Console = Shell.Console Set SubArgs = CreateObject("NetBox.Arguments") Do While True Console.Write "#" strCommand = Console.ReadLine If LCase(strCommand) = "exit" Then Exit Do SubArgs.CommandLine = strCommand If SubArgs.Count > 0 Then strExecFile = SubArgs(0) If LCase(Right(strExecFile, 4)) <> ".box" Then strExecFile = strExecFile + ".box" End If Set Script = CreateObject("NetBox.Script") e = Script.Load(strExecFile) If e = 0 Then Script.SetGlobalObjects Script.AddNameItem "Arguments", SubArgs e = Script.Run End If If e = 404 Then Console.WriteLine "Bad Command" ElseIf e <> 0 Then Set error = Script.GetLastError Console.WriteLine error.Category Console.WriteLine "Error Number: " & Hex(error.Number) Console.WriteLine "File: " & error.File Console.WriteLine "Line: " & error.Line Console.WriteLine error.Description & vbCRLF Set error = Nothing End If Set Script = Nothing End If Loop