.版本 2
.子程序 磁盘IO性能监控
.局部变量 ScriptControl, 对象
.局部变量 返回信息, 文本型
.局部变量 文本1, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 文本2, 文本型, , "0"
ScriptControl.创建 (“MSScriptControl.ScriptControl”, )
ScriptControl.写属性 (“Language”, “VBScript”)
ScriptControl.方法 (“AddCode”, #GetDiskIO)
返回信息 = ScriptControl.通用方法 (“Run”, “GetDiskIO”).取文本 ()
文本1 = 分割文本 (返回信息, 字符 (9), )
编辑框1.内容 = “”
.计次循环首 (取数组成员数 (文本1), i)
文本2 = 分割文本 (文本1 [i], “|”, )
' 输出调试文本 (取数组成员数 (文本2))
.如果真 (取数组成员数 (文本2) = 5)
编辑框1.加入文本 (“盘符:” + 文本2 [1] + 字符 (9) + “每秒磁盘传输次数:” + 文本2 [2] + 字符 (9) + “每秒读取:” + 格式化字节 (到数值 (文本2 [3])) + 字符 (9) + “每秒写入:” + 格式化字节 (到数值 (文本2 [4])) + 字符 (9) + “可用百分比:” + 文本2 [5] + “%” + #换行符)
处理事件 ()
.如果真结束
.计次循环尾 ()
' Name: 磁盘名称
' DiskTransfersPerSec:每秒磁盘传输次数。
' DiskReadBytesPerSec:每秒从磁盘读取得数据量,单位为Byte。
' DiskWriteBytesPerSec:每秒从磁盘读取得数据量,单位为Byte。
' PercentFreeSpace:可用磁盘百分比。
.子程序 格式化字节, 文本型, , 1024返回1.0KB,,1024000返回0.97 MB,,最高支持909 TB格式
.参数 字节大小, 长整数型
.局部变量 文本缓冲区大小, 整数型
.局部变量 返回, 文本型
返回 = 取空白文本 (255)
StrFormatByteSize64A (字节大小, 返回, 256)
返回 (返回)
.子程序 __启动窗口_可否被关闭, 逻辑型
结束 ()
.子程序 _时钟1_周期事件
磁盘IO性能监控 ()