DOS命令一样的ipconfig命令原型模块源码

.子程序 CreateConsole
.局部变量 Title, 文本型
.局部变量 i, 整数型
.局部变量 system, 系统信息W
.局部变量 Command, 文本型
.局部变量 User, 文本型
.局部变量 code, 文本型

.如果真 (Console.创建控制台 ())
Console.事件_将被销毁 (&_可否被关闭)
窗口_居中 (Console.取窗口句柄 ())
User ＝ 子文本替换 (目录_取特定目录 (40), “\”, “>”, , , 真)
Title ＝ 选择 (系统_是否为管理员 (), “管理员：” ＋ 路径_取CMD路径 (), 路径_取CMD路径 ())
Console.置标题 (Title)
system ＝ wmi.取系统信息 ()
Console.标准输出 (“Microsoft Windows [版本” ＋ system.版本 ＋ “]” ＋ #换行符)
Console.标准输出 (“(c) 2012 Microsoft Corporation。保留所有权利。” ＋ #换行符 ＋ #换行符)
Console.标准输出 (User)
Command ＝ Console.标准输入 ()
.如果 (到小写 (Command) ≠ “ipconfig”)
Console.标准输出 (#引号 ＋ Command ＋ #引号 ＋ #Error ＋ #换行符 ＋ #换行符)
Console.标准输出 (User)
.否则
Console.标准输出 (“ipconfig>”)
.如果结束
Command ＝ Console.标准输入 ()
.如果 (到小写 (Command) ＝ “ipconfig”)
Console.标准输出 (“ipconfig>” ＋ #换行符 ＋ #选项 ＋ #换行符)
Console.标准输出 (“ipconfig>”)
ipconfig ()
.判断循环首 (2 ＞ 1)
Console.标准输出 (User)
code ＝ 到小写 (Console.标准输入 ())
.如果真 (code ＝ “quit” 或 code ＝ “exit”)
跳出循环 ()
.如果真结束
处理事件 ()
.判断循环尾 ()
.否则
Console.销毁控制台 ()
.如果结束
Console.销毁控制台 ()