黄金矿工脚本大全CPerformanceCounter类模块

伝天

  

[e=0].版本 2

子程序名	返回值类型	公开	备 注
GetCPUUsage	双精度小数型		CPU占用率

变量名	类 型	静态	数组	备 注
pdhValue	PDH_FMT_COUNTERVALUE

如果真 (hCounter_Cpu ≠ #NULL )
如果真 (Api_PdhGetFormattedCounterValue (hCounter_Cpu, #PDH_FMT_DOUBLE, #NULL, pdhValue) ≠ #ERROR_SUCCESS )
输出调试文本 (“Api_PdhGetFormattedCounterValue,性能计数器查询，数据请求失败。”)
返回 (0)
返回 (取字节集数据 (到字节集 (pdhValue.buffer), #双精度小数型, 5))
返回 (0)

子程序名	返回值类型	公开	备 注
GetRemainMemory	整数型		可用物理内存,MB

变量名	类 型	静态	数组	备 注
pdhValue	PDH_FMT_COUNTERVALUE

如果真 (hCounter_Memory ≠ #NULL )
如果真 (Api_PdhGetFormattedCounterValue (hCounter_Memory, #PDH_FMT_LONG, #NULL, pdhValue) ≠ #ERROR_SUCCESS )
输出调试文本 (“Api_PdhGetFormattedCounterValue,性能计数器查询，数据请求失败。”)
返回 (0)
返回 (取字节集数据 (到字节集 (pdhValue.buffer), #整数型, 5))
返回 (0)

子程序名	返回值类型	公开	备 注
GetDiskReadSpeed	双精度小数型		磁盘读取速度,KB

变量名	类 型	静态	数组	备 注
pdhValue	PDH_FMT_COUNTERVALUE

如果真 (hCounter_DiskRead ≠ #NULL )
如果真 (Api_PdhGetFormattedCounterValue (hCounter_DiskRead, #PDH_FMT_DOUBLE, #NULL, pdhValue) ≠ #ERROR_SUCCESS )
输出调试文本 (“Api_PdhGetFormattedCounterValue,性能计数器查询，数据请求失败。”)
返回 (0)
返回 (取字节集数据 (到字节集 (pdhValue.buffer), #双精度小数型, 5) ÷ 1024)
返回 (0)

子程序名	返回值类型	公开	备 注
GetDiskWriteSpeed	双精度小数型		磁盘写入速度,KB

变量名	类 型	静态	数组	备 注
pdhValue	PDH_FMT_COUNTERVALUE

如果真 (hCounter_DiskWrite ≠ #NULL )
如果真 (Api_PdhGetFormattedCounterValue (hCounter_DiskWrite, #PDH_FMT_DOUBLE, #NULL, pdhValue) ≠ #ERROR_SUCCESS )
输出调试文本 (“Api_PdhGetFormattedCounterValue,性能计数器查询，数据请求失败。”)
返回 (0)
返回 (取字节集数据 (到字节集 (pdhValue.buffer), #双精度小数型, 5) ÷ 1024)
返回 (0)

子程序名	返回值类型	公开	备 注
GetNetDownloadSpeed	双精度小数型		网络下载速率

变量名	类 型	静态	数组	备 注
pdhValue	PDH_FMT_COUNTERVALUE

如果真 (hCounter_NetDownload ≠ #NULL )
如果真 (Api_PdhGetFormattedCounterValue (hCounter_NetDownload, #PDH_FMT_DOUBLE, #NULL, pdhValue) ≠ #ERROR_SUCCESS )
输出调试文本 (“Api_PdhGetFormattedCounterValue,性能计数器查询，数据请求失败。”)
返回 (0)
返回 (取字节集数据 (到字节集 (pdhValue.buffer), #双精度小数型, 5) ÷ 1024)
返回 (0)

子程序名	返回值类型	公开	备 注
GetNetUploadSpeed	双精度小数型		网络上传速率

变量名	类 型	静态	数组	备 注
pdhValue	PDH_FMT_COUNTERVALUE

如果真 (hCounter_NetUpload ≠ #NULL )
如果真 (Api_PdhGetFormattedCounterValue (hCounter_NetUpload, #PDH_FMT_DOUBLE, #NULL, pdhValue) ≠ #ERROR_SUCCESS )
输出调试文本 (“Api_PdhGetFormattedCounterValue,性能计数器查询，数据请求失败。”)
返回 (0)
返回 (取字节集数据 (到字节集 (pdhValue.buffer), #双精度小数型, 5) ÷ 1024)
返回 (0)

子程序名	返回值类型	公开	备 注
GetMemoryLoad	整数型		内存占用比

返回 (MemInfo.dwMemoryLoad)

子程序名	返回值类型	公开	备 注
GetTotalPhys	长整数型		总的物理内存大小

返回 (MemInfo.dwTotalPhys)

子程序名	返回值类型	公开	备 注
GetAvailPhys	长整数型		可用的物理内存大小

返回 (MemInfo.dwAvailPhys)

子程序名	返回值类型	公开	备 注
GetDrives	整数型		获取所有磁盘信息
参数名	类 型	参考	可空	数组	备 注
drives_info	Drive

变量名	类 型	静态	数组	备 注
nBufferLength	整数型
lpBuffer	字节集
nSize	整数型
nCount	整数型
drives	字节集		0
i	整数型
drive	Drive
szName	文本型
lpFreeBytesAvailableToCaller	长整数型
lpTotalNumberOfBytes	长整数型
lpTotalNumberOfFreeBytes	长整数型

nBufferLength ＝ 256
lpBuffer ＝ 取空白字节集 (nBufferLength)
nSize ＝ Api_GetLogicalDriveStrings (nBufferLength, lpBuffer)
lpBuffer ＝ 取字节集左边 (lpBuffer, nSize)
drives ＝ 分割字节集 (lpBuffer, { 0 }, )
nCount ＝ 取数组成员数 (drives)
计次循环首 (nCount, i)
szName ＝ 到文本 (drives )
drive.Name ＝ szName
drive.Type ＝ Api_GetDriveType (szName)
Api_GetDiskFreeSpaceEx (szName, lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes, lpTotalNumberOfFreeBytes)
drive.TotalOfBytes ＝ lpTotalNumberOfBytes ÷ 1024
drive.TotalOfFreeBytes ＝ lpTotalNumberOfFreeBytes ÷ 1024
加入成员 (drives_info, drive)
计次循环尾 ()
返回 (nCount)

[e=0].版本 2<br /> <br /> .子程序 GetCPUUsage, 双精度小数型, 公开, CPU占用率<br /> .局部变量 pdhValue, PDH_FMT_COUNTERVALUE<br /> <br /> .如果真 (hCounter_Cpu ≠ #NULL)<br />     .如果真 (Api_PdhGetFormattedCounterValue (hCounter_Cpu, #PDH_FMT_DOUBLE, #NULL, pdhValue) ≠ #ERROR_SUCCESS)<br />         输出调试文本 (“Api_PdhGetFormattedCounterValue,性能计数器查询，数据请求失败。”)<br />         返回 (0)<br />     .如果真结束<br />     返回 (取字节集数据 (到字节集 (pdhValue.buffer), #双精度小数型, 5))<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 GetRemainMemory, 整数型, 公开, 可用物理内存,MB<br /> .局部变量 pdhValue, PDH_FMT_COUNTERVALUE<br /> <br /> .如果真 (hCounter_Memory ≠ #NULL)<br />     .如果真 (Api_PdhGetFormattedCounterValue (hCounter_Memory, #PDH_FMT_LONG, #NULL, pdhValue) ≠ #ERROR_SUCCESS)<br />         输出调试文本 (“Api_PdhGetFormattedCounterValue,性能计数器查询，数据请求失败。”)<br />         返回 (0)<br />     .如果真结束<br />     返回 (取字节集数据 (到字节集 (pdhValue.buffer), #整数型, 5))<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 GetDiskReadSpeed, 双精度小数型, 公开, 磁盘读取速度,KB<br /> .局部变量 pdhValue, PDH_FMT_COUNTERVALUE<br /> <br /> .如果真 (hCounter_DiskRead ≠ #NULL)<br />     .如果真 (Api_PdhGetFormattedCounterValue (hCounter_DiskRead, #PDH_FMT_DOUBLE, #NULL, pdhValue) ≠ #ERROR_SUCCESS)<br />         输出调试文本 (“Api_PdhGetFormattedCounterValue,性能计数器查询，数据请求失败。”)<br />         返回 (0)<br />     .如果真结束<br />     返回 (取字节集数据 (到字节集 (pdhValue.buffer), #双精度小数型, 5) ÷ 1024)<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 GetDiskWriteSpeed, 双精度小数型, 公开, 磁盘写入速度,KB<br /> .局部变量 pdhValue, PDH_FMT_COUNTERVALUE<br /> <br /> .如果真 (hCounter_DiskWrite ≠ #NULL)<br />     .如果真 (Api_PdhGetFormattedCounterValue (hCounter_DiskWrite, #PDH_FMT_DOUBLE, #NULL, pdhValue) ≠ #ERROR_SUCCESS)<br />         输出调试文本 (“Api_PdhGetFormattedCounterValue,性能计数器查询，数据请求失败。”)<br />         返回 (0)<br />     .如果真结束<br />     返回 (取字节集数据 (到字节集 (pdhValue.buffer), #双精度小数型, 5) ÷ 1024)<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 GetNetDownloadSpeed, 双精度小数型, 公开, 网络下载速率<br /> .局部变量 pdhValue, PDH_FMT_COUNTERVALUE<br /> <br /> .如果真 (hCounter_NetDownload ≠ #NULL)<br />     .如果真 (Api_PdhGetFormattedCounterValue (hCounter_NetDownload, #PDH_FMT_DOUBLE, #NULL, pdhValue) ≠ #ERROR_SUCCESS)<br />         输出调试文本 (“Api_PdhGetFormattedCounterValue,性能计数器查询，数据请求失败。”)<br />         返回 (0)<br />     .如果真结束<br />     返回 (取字节集数据 (到字节集 (pdhValue.buffer), #双精度小数型, 5) ÷ 1024)<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 GetNetUploadSpeed, 双精度小数型, 公开, 网络上传速率<br /> .局部变量 pdhValue, PDH_FMT_COUNTERVALUE<br /> <br /> .如果真 (hCounter_NetUpload ≠ #NULL)<br />     .如果真 (Api_PdhGetFormattedCounterValue (hCounter_NetUpload, #PDH_FMT_DOUBLE, #NULL, pdhValue) ≠ #ERROR_SUCCESS)<br />         输出调试文本 (“Api_PdhGetFormattedCounterValue,性能计数器查询，数据请求失败。”)<br />         返回 (0)<br />     .如果真结束<br />     返回 (取字节集数据 (到字节集 (pdhValue.buffer), #双精度小数型, 5) ÷ 1024)<br /> .如果真结束<br /> 返回 (0)<br /> <br /> <br /> .子程序 GetMemoryLoad, 整数型, 公开, 内存占用比<br /> <br /> 返回 (MemInfo.dwMemoryLoad)<br /> <br /> .子程序 GetTotalPhys, 长整数型, 公开, 总的物理内存大小<br /> <br /> 返回 (MemInfo.dwTotalPhys)<br /> <br /> .子程序 GetAvailPhys, 长整数型, 公开, 可用的物理内存大小<br /> <br /> 返回 (MemInfo.dwAvailPhys)<br /> <br /> .子程序 GetDrives, 整数型, 公开, 获取所有磁盘信息<br /> .参数 drives_info, Drive, 参考 可空 数组<br /> .局部变量 nBufferLength, 整数型<br /> .局部变量 lpBuffer, 字节集<br /> .局部变量 nSize, 整数型<br /> .局部变量 nCount, 整数型<br /> .局部变量 drives, 字节集, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 drive, Drive<br /> .局部变量 szName, 文本型<br /> .局部变量 lpFreeBytesAvailableToCaller, 长整数型<br /> .局部变量 lpTotalNumberOfBytes, 长整数型<br /> .局部变量 lpTotalNumberOfFreeBytes, 长整数型<br /> <br /> nBufferLength ＝ 256<br /> lpBuffer ＝ 取空白字节集 (nBufferLength)<br /> nSize ＝ Api_GetLogicalDriveStrings (nBufferLength, lpBuffer)<br /> lpBuffer ＝ 取字节集左边 (lpBuffer, nSize)<br /> drives ＝ 分割字节集 (lpBuffer, { 0 }, )<br /> nCount ＝ 取数组成员数 (drives)<br /> .计次循环首 (nCount, i)<br />     szName ＝ 到文本 (drives )<br />     drive.Name ＝ szName<br />     drive.Type ＝ Api_GetDriveType (szName)<br />     Api_GetDiskFreeSpaceEx (szName, lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes, lpTotalNumberOfFreeBytes)<br />     drive.TotalOfBytes ＝ lpTotalNumberOfBytes ÷ 1024<br />     drive.TotalOfFreeBytes ＝ lpTotalNumberOfFreeBytes ÷ 1024<br />     加入成员 (drives_info, drive)<br /> .计次循环尾 ()<br /> 返回 (nCount)

回复下载 黄金矿工脚本.e (1.2 MB, 下载次数: 161)

2021-5-11 16:16 上传

点击文件名下载附件

workkin

ebhff        小小心意，意思一下

蓝色形式

黄金矿工…

liuyanv5

没想到是真的旷工

hutu11

大炮一响，黄金万两

hutu11

我是来赚币的

鼎诚

价格好几个

感谢分享 谢谢

zyb123123

试试看效果

zyb123123

牛逼轰轰带闪电

tingfengw

我以为是4399的矿工！没想到啊！