为父母写一份按时睡觉的软件
2011-08-05 16:15
197 查看
做儿女的长期在外工作或者学习,很少有时间关心父母。
如今电脑已经算是很普及的电器了,父母看电视时候经常忘记关电脑,或者玩电脑一直玩很久忘记睡觉。这时候记得为父母写一份关心父母身体的软件。
首先,打开VS.NET
在新建中选择服务,输入新建的软件名称,在弹出的代码窗口复制以下内容
###############分割线#######请勿复制################
###############分割线#######请勿复制################
点击运行,便生成了需要的软件了。
在此,需要提示的是,网上下载的关机软件大多是定时关机功能,如果父母在关机的时候还有重要文件没有保存那么后果就很严重了。所以,作者认为有必要取消定时功能,取而代之的是提醒关机的功能。如果父母在一定时间未关闭提示窗口,则认为父母已经睡着了,系统自动关机。
本程序运行中占用内存很低,大约有500KB左右,而网上普遍存在的定时关机软件占用内存普遍在5M左右,极大的占用了系统资源。
-----------------------------------程序员 闫帆原创---------------------------------------
转载请注明原创人信息 程序员 闫帆yanfanvip
如今电脑已经算是很普及的电器了,父母看电视时候经常忘记关电脑,或者玩电脑一直玩很久忘记睡觉。这时候记得为父母写一份关心父母身体的软件。
首先,打开VS.NET
在新建中选择服务,输入新建的软件名称,在弹出的代码窗口复制以下内容
###############分割线#######请勿复制################
Imports System Imports System.Timers Module Module1 Public Class Timer1 Private Shared aTimer As System.Timers.Timer ''''''''''''''''''''默认格式 Public Shared Sub Main() '//////////////////////////////////////////////////////////////如果有进程存在则关闭程序 If UBound(Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)) > 0 Then End End If ' //////////////////////////////////////////////////////////// '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''自定义定时器 aTimer = New System.Timers.Timer() ''''''''''''''''''''''''''NEW一个新对象 AddHandler aTimer.Elapsed, AddressOf OnTimedEvent '''''''''''定义响应事件 aTimer.Interval = 60000 '''''''''''''''''''''''''''''''''''''修改启动时间(毫秒),我定义的是一分钟 aTimer.Enabled = False ''''''''''''''''''''''''''''''''''''''默认不启动定时器,有需要再启动 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''定义结束 While (1) If Now.Hour >= 0 And Now.Hour <= 6 Then ''''''''''''''''''''''''''''如果时间为0-6点则执行以下任务 aTimer.Enabled = True aTimer.Start() If MsgBox("现在时间:" + Now() + "时间已经不早了,早点休息吧!", 4096, "提示") Then '**************************核心窗口,并且永远保持前台 aTimer.Stop() aTimer.Enabled = False '///////////////////////////////////////////////////////////处理内存占用问题 System.Diagnostics.Process.GetCurrentProcess.MaxWorkingSet = 300000 ''''''''''''''''''''''''''''内存数 System.Diagnostics.Process.GetCurrentProcess.MinWorkingSet = New System.IntPtr(5) GC.Collect() '*********************************************调用系统垃圾回收机制 '//////////////////////////////////////////////////////////请按具体需要修改数字 System.Threading.Thread.Sleep(1500000) ''''''''''''''''''''''''''''''''''暂停一段时间,也就是每间隔一段时间提醒用户一次操作。我定义的是25分钟 End If End If '///////////////////////////////////////////////////////////处理内存占用问题 System.Diagnostics.Process.GetCurrentProcess.MaxWorkingSet = 300000 ''''''''''''''''''''''''''''内存数 System.Diagnostics.Process.GetCurrentProcess.MinWorkingSet = New System.IntPtr(5) GC.Collect() '//////////////////////////////////////////////////////////请按具体需要修改数字 System.Threading.Thread.Sleep(300000) '**************************************************************这个很重要,每隔一定时间检测时间是否进入指定时间。 End While End Sub Private Shared Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs) '////////////////////////////////////////////////////定时器的作用是用户在一定时间内没有进行相关操作则执行一下操作 Shell("shutdown -s -t 5") End Sub End Class End Module
###############分割线#######请勿复制################
点击运行,便生成了需要的软件了。
在此,需要提示的是,网上下载的关机软件大多是定时关机功能,如果父母在关机的时候还有重要文件没有保存那么后果就很严重了。所以,作者认为有必要取消定时功能,取而代之的是提醒关机的功能。如果父母在一定时间未关闭提示窗口,则认为父母已经睡着了,系统自动关机。
本程序运行中占用内存很低,大约有500KB左右,而网上普遍存在的定时关机软件占用内存普遍在5M左右,极大的占用了系统资源。
-----------------------------------程序员 闫帆原创---------------------------------------
转载请注明原创人信息 程序员 闫帆yanfanvip
相关文章推荐
- abcde五人打渔,打完睡觉,a先醒来,扔掉1条鱼,把剩下的分成5分,拿一份走了;b再醒来,也扔掉1条,把剩下的分成5份, 拿一份走了;然后cde都按上面的方法取鱼。问他们一共最少打了多少条鱼
- 作为一名职场新人 如何获得一份软件测试的工作?
- 为什么项目型软件公司很累?程序员拼死拼活做项目为啥总是无法按时完成?原因主要是软件需要完善的细节太多
- 想找一份关于软件的工作.
- 一份比较详尽的ubuntu下替代windows下的软件列表
- 如何制定一份有效的软件测试计划
- 送一份自家产的软件给园内的兄弟姐妹作“福利”
- 一份软件项目的失败报告
- 勿忘初心 按时睡觉 2016.03.02回顾
- 一份软件项目的失败报告
- 关于综合绘图软件的一份竞品分析报告
- 一份软件项目的失败报告
- 如何编写一份软件工程实验报告
- 【灌水篇】开发软件就好比人睡觉。床是硬件,人是软件
- 一份合格的软件需求规格说明书的要求
- 教你编写一份高质量的软件测试报告
- 一份合格的软件需求规格说明书的要求
- 如何写一份简单易懂的软件外包需求说明书
- 一份比较实用的Ubuntu下替代WIN软件列表
- 再贴一份,睡觉