.版本 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)
返回 (返回)