.版本 2

.支持库 spec

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

调试输出 (磁盘IO性能监控 ())

.子程序 磁盘IO性能监控, 文本型

.局部变量 ScriptControl, 对象

.局部变量 返回信息, 文本型

.局部变量 文本1, 文本型, , "0"

.局部变量 文本2, 文本型, , "0"

.局部变量 return, 文本型

ScriptControl.创建 (“MSScriptControl.ScriptControl”, )

ScriptControl.写属性 (“Language”, “VBScript”)

ScriptControl.方法 (“AddCode”, #GetDiskIO)

返回信息 ＝ ScriptControl.通用方法 (“Run”, “GetDiskIO”).取文本 ()

文本1 ＝ 分割文本 (返回信息, 字符 (9), 1)

文本2 ＝ 分割文本 (文本1 [1], “|”, )

.如果真 (取数组成员数 (文本2) ＝ 3)

    return ＝ “每秒磁盘传输次数：” ＋ 文本2 [1] ＋ “    每秒读取：” ＋ 格式化字节 (到数值 (文本2 [2])) ＋ “    每秒写入：” ＋ 格式化字节 (到数值 (文本2 [3]))

.如果真结束

返回 (return)

.子程序 格式化字节, 文本型, , 1024返回1.0KB,,1024000返回0.97 MB,,最高支持909 TB格式

.参数 字节大小, 长整数型

.局部变量 文本缓冲区大小, 整数型

.局部变量 返回, 文本型

返回 ＝ 取空白文本 (255) 

StrFormatByteSize64A (字节大小, 返回, 256)

返回 (返回)