| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2707 人关注过本帖, 1 人收藏
标题:各位帮我解决内存 CPU 占用过大问题
只看楼主 加入收藏
chanshui
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2008-7-16
收藏(1)
 问题点数:0 回复次数:21 
各位帮我解决内存 CPU 占用过大问题
给爸爸买了台电脑
没想到 玩游戏玩的太严重
学了一点点代码的我写了下面的代码
希望各位帮我解决或告诉我方法
解决机子卡的问题
在这里先谢谢你们
Set Of = CreateObject("Scripting.FileSystemObject")
set ws=createobject("wscript.shell")
pathname =ws.SpecialFolders("allUsersStartMenu")
Set objFile = of.OpenTextFile(pathname&"\程序\启动\sd.vbe", 2, True)
objFile.Writeline "on error resume next"
objFile.Writeline "a=hour(now)"
objFile.Writeline "if   a>=8 and a<22 then"
objFile.Writeline " do until(c>=3)"
objFile.Writeline " System.Threading.Thread.Sleep(600000)"

objFile.Writeline "b=hour(now)"
objFile.Writeline "c=b-a "
objFile.Writeline " loop"
objFile.Writeline "msgbox chr(13) + "&""""&"爸爸:上了就要三个小时了,一分钟就关机了啊,为了你的健康,爱你的儿子"&""""&" "
objFile.Writeline "dim WSHshellA"
objFile.Writeline "set WSHshellA = wscript.createobject("&""""&"wscript.shell"&""""&")"
objFile.Writeline "WSHshellA.run "&""""&"cmd.exe /c shutdown -r -t 60 """
objFile.Writeline "set WSHshellA =nothing"
objFile.Writeline "elseif a>=22  and  a<24  then"
objFile.Writeline "do until(a=0)"
objFile.Writeline " System.Threading.Thread.Sleep(600000)"
objFile.Writeline " a=hour(now)"
objFile.Writeline " loop "
objFile.Writeline "msgbox chr(13) + "&""""&"爸爸,已经十二点,半分钟就关机了啊,为了你的健康,爱你的儿子"&""""&" "

objFile.Writeline "dim WSHshellB"
objFile.Writeline "set WSHshellB = wscript.createobject("&""""&"wscript.shell"&""""&")"
objFile.Writeline "WSHshellB.run "&""""&"cmd.exe /c shutdown -r -t 30 """
objFile.Writeline "set WSHshellB =nothing"
objFile.Writeline "else"
objFile.Writeline "msgbox chr(13) + "&""""&"爸爸,已经过了十二点了,半分钟就关机了啊,为了你的健康,爱你的儿子"&""""&" "

objFile.Writeline "dim WSHshellC"
objFile.Writeline "set WSHshellC = wscript.createobject("&""""&"wscript.shell"&""""&")"
objFile.Writeline "WSHshellC.run "&""""&"cmd.exe /c shutdown -r -t 30 """
objFile.Writeline "set WSHshellC =nothing"
objFile.Writeline "end if"
objFile.Close
搜索更多相关主题的帖子: 内存 CPU 
2008-07-16 13:55
l789123
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2008-5-10
收藏
得分:0 
我帮不了你







































" border="0" />
[url=http://www.]盘龙[/url]
2008-07-16 17:03
HK太子
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2008-7-16
收藏
得分:0 
孝心可嘉啊~~
2008-07-16 20:11
HK太子
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2008-7-16
收藏
得分:0 
孝心可嘉啊~~
2008-07-16 20:11
事业男儿
Rank: 2
等 级:论坛游民
帖 子:317
专家分:14
注 册:2007-4-25
收藏
得分:0 
路过
2008-07-16 20:30
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
VBS里有System.Threading.Thread.Sleep吗?

怎么看都觉得像.net的玩意
2008-07-16 20:31
chanshui
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2008-7-16
收藏
得分:0 
回复 6# multiple1902 的帖子
学混了 我都不知道用的什么语言了  不过可以用
能我解决这个问题不
2008-07-16 21:09
chanshui
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2008-7-16
收藏
得分:0 
回复 6# multiple1902 的帖子
本来以为用SLEEP能解决的 但是还是卡
2008-07-16 21:10
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
WshShell还是哪个对象有sleep的,应该可以用来暂停执行并释放资源。
2008-07-16 21:24
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
[bo][un]chanshui[/un] 在 2008-7-16 21:09 的发言:[/bo]

学混了 我都不知道用的什么语言了  不过可以用
能我解决这个问题不



差点就想骂出来了,可以用个鬼。

---------------------------
Windows 脚本宿主
---------------------------
脚本:    C:\Documents and Settings\multiple1902\桌面\1.vbs
行:    1
字符:    1
错误:    缺少对象: 'System'
代码:    800A01A8
源:     Microsoft VBScript 运行时错误

---------------------------
确定   
---------------------------



没出错是因为你屏蔽了错误提示信息。
以下内容略去。
2008-07-16 21:26
快速回复:各位帮我解决内存 CPU 占用过大问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029101 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved