当前位置: 主页 > 百科 > 计算机编程 > 易语言源码 >
-12 Comments

WMI磁盘IO性能监控的源码

发布于:2016-07-04  |   作者:http://www.zxjsq.net  |   已聚集:人围观

.版本 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性能监控 ()


标签:                   喜欢:收藏