查看: 4853|回复: 15
用易语言写出来的程序CPU占用很高，求解决~！
阅读权限10
在线时间 小时
结帖率： (2/6)
没有用到计次循环
用了大量时钟
时钟周期=100
写入内存的
用到多线程
比时钟好用的多
回答提醒：如果本帖被关闭无法回复，您有更好的答案帮助楼主解决，请发表至
可获得加分喔。友情提醒：本版被采纳的主题可在
帖子申请荣誉值，获得 1点 荣誉值,荣誉值可兑换终身vip用户组哦。快捷通道： →
阅读权限70
在线时间 小时
结帖率： (17/37)
你需要的&&看看吧&&用到多线程& &比时钟好用的多
16:45 上传
点击文件名下载附件
1.06 KB, 下载次数: 345
您可以选择打赏方式支持他
阅读权限120
在线时间 小时
结帖率： (37/44)
时钟占用内存的= =
您可以选择打赏方式支持他
阅读权限10
在线时间 小时
结帖率： (2/6)
易团雾 发表于
时钟占用内存的= =
求解决，需要不断写入内存
您可以选择打赏方式支持他
阅读权限200
在线时间 小时
结帖率： (1/1)
<font color="#0603961 发表于
求解决，需要不断写入内存
可以用超精读延时模块，放在线程里，无限循环，从而代替时钟.
您可以选择打赏方式支持他
阅读权限120
在线时间 小时
结帖率： (37/44)
<font color="#0603961 发表于
求解决，需要不断写入内存
我对这方面也不是很了解，等待高手把。
您可以选择打赏方式支持他
阅读权限10
在线时间 小时
结帖率： (2/6)
╰☆流年 一逝☆╰ 发表于
可以用超精读延时模块，放在线程里，无限循环，从而代替时钟.
能举个例吗？
还不会写延时
您可以选择打赏方式支持他
阅读权限70
在线时间 小时
结帖率： (1/1)
{:3_233:}大量时钟不断写内存当然卡了，你在写内存前加个读内存看是否变化再写内存，也许会好些。要不然你把时钟周期延长一些，别看那0.1秒长，如果代码运行效率低，运行时间超过这个0.1秒后，另外一个相同的写内存又开始运行了，就出现一时间有两个或多个写内存同时进行，大量时钟同时运转，想不占CPU都不现实
您可以选择打赏方式支持他
阅读权限50
在线时间 小时
结帖率： (1/4)
用线程试试
您可以选择打赏方式支持他
阅读权限20
在线时间 小时
多线程都会存在效率慢的问题。时钟如果作扫描端口用，可以改为事件触发的形式，效率提高不少啊。
您可以选择打赏方式支持他
精易论坛 - 有你更精彩 /1
还在为繁琐填表而纠结？还是为不能多账户切换而苦恼？或者是pc端与手机端无法跨越？更为数据封包无法直达而心生倦怠？来post魔鬼特训班，让你在编程的路上走的更远 &
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
揭阳精易科技有限公司申明:我公司所有的培训课程版权归精易所有，任何人以任何方式翻录、盗版、破解本站培训课程，我们必将通过法律途径解决！
公司简介：揭阳市揭东区精易科技有限公司致力于易语言教学培训/易语言学习交流社区的建设与软件开发，多年来为中小企业编写过许许多多各式软件，并把多年积累的开发经验逐步录制成视频课程供学员学习，让学员全面系统化学习易语言编程，少走弯路，减少对相关技术的研究与摸索时间，从而加快了学习进度！
Powered by&&&&CPU占用率检测模块（易语言）
&CPU占用率检测模块（易语言）
看到资源管理器里面的CPU占用检测么？想自己用易语言编写么？那你会用到这个模块~
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
VIP下载&&免积分60元/年（1200次）
您可能还需要
Q.为什么我点的下载下不了，但积分却被扣了
A. 由于下载人数众多，下载服务器做了并发的限制。若发现下载不了，请稍后再试，多次下载是不会重复扣分的。
Q.我的积分不多了，如何获取积分？
A. 获得积分，详细见。
完成任务获取积分。
论坛可用分兑换下载积分。
第一次绑定手机，将获得5个C币，C币可。
关注并绑定CSDNID，送10个下载分
下载资源意味着您已经同意遵守以下协议
资源的所有权益归上传用户所有
未经权益所有人同意，不得将资源中的内容挪作商业或盈利用途
CSDN下载频道仅提供交流平台，并不能对任何下载资源负责
下载资源中如有侵权或不适当内容，
本站不保证本站提供的资源的准确性，安全性和完整性，同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
开发技术下载排行
您当前C币：0&&&可兑换 0 下载积分
兑换下载分:&
消耗C币:0&
立即兑换&&
兑换成功你当前的下载分为 。前去下载资源
你下载资源过于频繁，请输入验证码
如何快速获得积分？
你已经下载过该资源，再次下载不需要扣除积分
CPU占用率检测模块（易语言）
所需积分：10
剩余积分：0
扫描微信二维码精彩活动、课程更新抢先知
VIP会员，免积分下载
会员到期时间：日
剩余下载次数：1000
CPU占用率检测模块（易语言）
剩余次数：&&&&有效期截止到：
你还不是VIP会员VIP会员享免积分 . 专属通道极速下载
VIP下载次数已满VIP会员享免积分 . 专属通道极速下载，请继续开通VIP会员
你的VIP会员已过期VIP会员享免积分 . 专属通道极速下载，请继续开通VIP会员[代码全屏查看]-易语言取指定进程CPU占用率
[1].[代码] [其他]代码
.支持库 eAPI
.支持库 iext
.程序集 窗口程序集1
.程序集变量 CPU数据, CPU类型, , "0"
.子程序 __启动窗口_创建完毕
.局部变量 pdhStatus, 整数型
.局部变量 句柄, 整数型
.局部变量 进程信息, 进程信息, , "0"
.局部变量 i, 整数型
.局部变量 a, 整数型
.局部变量 临时数据, CPU类型
可视 ＝ 真
进程信息 ＝ 取系统进程列表 ()
' 超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (进程信息), i)
a ＝ 超级列表框1.插入表项 (超级列表框1.取表项数 (), 进程信息 [i].进程名称, , , , )
.如果真 (PdhOpenQuery (0, 进程信息 [i].进程标识符, 临时数据.hQuery) ＝ 0)
' 打开成功
临时数据.PID ＝ 进程信息 [i].进程标识符
临时数据.索引 ＝ a
临时数据.Counters.hCounter ＝ AddCounter (“\Process(” ＋ 格式名称 (进程信息 [i].进程名称) ＋ “)\% Processor Time”, 临时数据.hQuery)
加入成员 (CPU数据, 临时数据)
.如果真结束
.计次循环尾 ()
' 本源码来自易语言资源网()
.子程序 格式名称, 文本型
.参数 进程名, 文本型
.如果 (到小写 (取文本右边 (进程名, 4)) ＝ “.exe”)
返回 (取文本左边 (进程名, 取文本长度 (进程名) － 4))
返回 (进程名)
' 本源码来自易语言资源网()
.子程序 UpdateValues
.局部变量 dblCounterValue, 双精度小数型
.局部变量 pdhStatus, 整数型
.局部变量 strInfo, 文本型
.局部变量 i, 整数型
.局部变量 strName, 整数型
.计次循环首 (取数组成员数 (CPU数据), i)
PdhCollectQueryData (CPU数据 [i].hQuery)
dblCounterValue ＝ PdhVbGetDoubleCounterValue (CPU数据 [i].Counters.hCounter, pdhStatus)
.如果真 (pdhStatus ＝ #PDH_CSTATUS_VALID_DATA 或 pdhStatus ＝ #PDH_CSTATUS_NEW_DATA)
' strName ＝ PdhVbGetDoubleCounterValue (CPU数据 [i].Counters.hCounter, pdhStatus)
' 输出调试文本 (指针到文本 (strName))
' 本源码来自易语言资源网()
超级列表框1.置标题 (CPU数据 [i].索引, 1, 到文本 (四舍五入 (dblCounterValue, )))
.如果真结束
.计次循环尾 ()
.子程序 AddCounter, 整数型
.参数 strCounterName, 文本型
.参数 hQuery, 整数型
.局部变量 pdhStatus, 整数型
.局部变量 hCounter, 整数型
pdhStatus ＝ PdhVbAddCounter (hQuery, strCounterName, hCounter)
返回 (hCounter)
.子程序 _时钟1_周期事件
' __启动窗口_创建完毕 ()
UpdateValues ()查看: 1648|回复: 9
易语言怎么查询进程CPU使用率？
阅读权限70
在线时间 小时
结帖率： (80/83)
易资源网的源码看过了，不是很明白。且有一些dll命令不知道填什么参数。就像这个命令，dll查看是没有参数的，但是源码中有。不知道怎么调用，参数应该写什么。
&&PdhVbGetDoubleCounterValue双精度小数型&PDH.DLL(未填写命令名)CounterHandle整数型&&CounterStatus整数型√&.版本 2
.DLL命令 PdhVbGetDoubleCounterValue, 双精度小数型, &PDH.DLL&
& & .参数 CounterHandle, 整数型
& & .参数 CounterStatus, 整数型, 传址
那个源码不用都加的.
只把启动和取进程两个取出来改改就行了
回答提醒：如果本帖被关闭无法回复，您有更好的答案帮助楼主解决，请发表至
可获得加分喔。友情提醒：本版被采纳的主题可在
帖子申请荣誉值，获得 1点 荣誉值,荣誉值可兑换终身vip用户组哦。快捷通道： →
阅读权限165
在线时间 小时
结帖率： (2/2)
那个源码不用都加的.
只把启动和取进程两个取出来改改就行了
热心帮助他人，荣誉+1，希望继续努力(*^__^*) 嘻嘻!
您可以选择打赏方式支持他
阅读权限165
在线时间 小时
结帖率： (2/2)
您可以选择打赏方式支持他
阅读权限130
在线时间 小时
签到天数: 11 天结帖率： (93/98)
&&取电脑CPU信息&SYSTEM_INFO.成员 dwOemID, 整数型, , , 标识符.成员 dwPageSize, 整数型, , , 分页大小.成员 lpMinimumApplicationAddress, 整数型, , , 最小寻址空间.成员 lpMaximumApplicationAddress, 整数型, , , 最大寻址空间.成员 dwActiveProcessorMask, 整数型, , , 处理器掩码.成员 dwNumberOrfProcessors, 整数型, , , 处理器数目.成员 dwProcessorType, 整数型, , , 处理器类型.成员 dwAllocationGranularity, 整数型, , , 虚拟内存空间的粒度.成员 dwReserved, 整数型, , , 保留MEMORYSTATUSEX&.成员 dwLength, 整数型, , , 64.成员 dwMemoryLoad, 整数型.成员 ullTotalPhys, 长整数型.成员 ullAvailPhys, 长整数型.成员 ullTotalPageFile, 长整数型.成员 ullAvailPageFile, 长整数型.成员 ullTotalVirtual, 长整数型.成员 ullAvailVirtual, 长整数型.成员 ullAvailExtendedVirtual, 长整数型.版本 2
.数据类型 取电脑CPU信息, , SYSTEM_INFO
.成员 dwOemID, 整数型, , , 标识符
.成员 dwPageSize, 整数型, , , 分页大小
.成员 lpMinimumApplicationAddress, 整数型, , , 最小寻址空间
.成员 lpMaximumApplicationAddress, 整数型, , , 最大寻址空间
.成员 dwActiveProcessorMask, 整数型, , , 处理器掩码
.成员 dwNumberOrfProcessors, 整数型, , , 处理器数目
.成员 dwProcessorType, 整数型, , , 处理器类型
.成员 dwAllocationGranularity, 整数型, , , 虚拟内存空间的粒度
.成员 dwReserved, 整数型, , , 保留
.数据类型 MEMORYSTATUSEX
.成员 dwLength, 整数型, , , 64
.成员 dwMemoryLoad, 整数型
.成员 ullTotalPhys, 长整数型
.成员 ullAvailPhys, 长整数型
.成员 ullTotalPageFile, 长整数型
.成员 ullAvailPageFile, 长整数型
.成员 ullTotalVirtual, 长整数型
.成员 ullAvailVirtual, 长整数型
.成员 ullAvailExtendedVirtual, 长整数型&&GlobalMemoryStatusEx整数型&kernel32.dllGlobalMemoryStatusEx(未填写子程序名)&&&lpBufferMEMORYSTATUSEX&&&.版本 2
.DLL命令 GlobalMemoryStatusEx, 整数型, &kernel32.dll&, &GlobalMemoryStatusEx&
.参数 lpBuffer, MEMORYSTATUSEX
&&窗口程序集名保 留&&保 留备 注窗口程序集_启动窗口&&&__启动窗口_创建完毕&&调试输出 (取内存条信息 ())取内存条信息文本型&指针MEMORYSTATUSEX&&指针.dwLength ＝ 64GlobalMemoryStatusEx (指针)返回 (“总物理内存：” ＋ 到文本 (四舍五入 (指针.ullTotalPhys ÷ 1048576, )) ＋ “MB” ＋ #换行符 ＋ “可用物理内存：” ＋ 到文本 (四舍五入 (指针.ullAvailPhys ÷ 1048576, )) ＋ “MB” ＋ #换行符 ＋ “虚拟内存：” ＋ 到文本 (四舍五入 (指针.ullTotalVirtual ÷ 1048576, )) ＋ “MB” ＋ #换行符 ＋ “可用虚拟内存：” ＋ 到文本 (四舍五入 (指针.ullAvailVirtual ÷ 1048576, )) ＋ “MB” ＋ #换行符 ＋ “总页面文件：” ＋ 到文本 (四舍五入 (指针.ullTotalPageFile ÷ 1048576, )) ＋ “MB” ＋ #换行符 ＋ “可用页面文件：” ＋ 到文本 (四舍五入 (指针.ullAvailPageFile ÷ 1048576, )) ＋ “MB” ＋ #换行符 ＋ “电脑内存占用：” ＋ 到文本 (指针.dwMemoryLoad) ＋ “%”)spec特殊功能支持库
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
调试输出 (取内存条信息 ())
.子程序 取内存条信息, 文本型
.局部变量 指针, MEMORYSTATUSEX
指针.dwLength ＝ 64
GlobalMemoryStatusEx (指针)
返回 (“总物理内存：” ＋ 到文本 (四舍五入 (指针.ullTotalPhys ÷ 1048576, )) ＋ “MB” ＋ #换行符 ＋ “可用物理内存：” ＋ 到文本 (四舍五入 (指针.ullAvailPhys ÷ 1048576, )) ＋ “MB” ＋ #换行符 ＋ “虚拟内存：” ＋ 到文本 (四舍五入 (指针.ullTotalVirtual ÷ 1048576, )) ＋ “MB” ＋ #换行符 ＋ “可用虚拟内存：” ＋ 到文本 (四舍五入 (指针.ullAvailVirtual ÷ 1048576, )) ＋ “MB” ＋ #换行符 ＋ “总页面文件：” ＋ 到文本 (四舍五入 (指针.ullTotalPageFile ÷ 1048576, )) ＋ “MB” ＋ #换行符 ＋ “可用页面文件：” ＋ 到文本 (四舍五入 (指针.ullAvailPageFile ÷ 1048576, )) ＋ “MB” ＋ #换行符 ＋ “电脑内存占用：” ＋ 到文本 (指针.dwMemoryLoad) ＋ “%”)
您可以选择打赏方式支持他
阅读权限90
在线时间 小时
签到天数: 2 天结帖率： (23/27)
这个dll有参数啊。
您可以选择打赏方式支持他
阅读权限70
在线时间 小时
结帖率： (80/83)
这个dll有参数啊。
是的，但是dll命令里是没有这2个参数的，源码中多了2个整数型。不知道该传递什么啊
您可以选择打赏方式支持他
阅读权限70
在线时间 小时
结帖率： (80/83)
[e=0].版本 2
.数据类型 取电脑CPU信息, , SYSTEM_INFO
这个API我用过，dwMemoryLoad用的就是这个百分比内存。
但是我想查询进程中的CPU使用率哦，就是任务管理器中进程的CPU使用率
您可以选择打赏方式支持他
阅读权限70
在线时间 小时
结帖率： (80/83)
您可以选择打赏方式支持他
阅读权限165
在线时间 小时
结帖率： (2/2)
只能做到这一步了
您可以选择打赏方式支持他
阅读权限70
在线时间 小时
结帖率： (80/83)
只能做到这一步了
你知不知道那个api应该传递什么值呀？
您可以选择打赏方式支持他
精易论坛 - 有你更精彩 /1
还在为繁琐填表而纠结？还是为不能多账户切换而苦恼？或者是pc端与手机端无法跨越？更为数据封包无法直达而心生倦怠？来post魔鬼特训班，让你在编程的路上走的更远 &
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
揭阳精易科技有限公司申明:我公司所有的培训课程版权归精易所有，任何人以任何方式翻录、盗版、破解本站培训课程，我们必将通过法律途径解决！
公司简介：揭阳市揭东区精易科技有限公司致力于易语言教学培训/易语言学习交流社区的建设与软件开发，多年来为中小企业编写过许许多多各式软件，并把多年积累的开发经验逐步录制成视频课程供学员学习，让学员全面系统化学习易语言编程，少走弯路，减少对相关技术的研究与摸索时间，从而加快了学习进度！
Powered by}