让电脑自动关机vb代码

《让电脑自动关机vb代码》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、让电脑自动关机的VB代码用VB实现控制电脑自动关机，自动重启，自动注销，自动待机等代码设定状态SetSuspendState是否支持休眠IsPwrHibernateAllowed是否支持待机IsPwrSuspendAllowed看MSDN的PowerManagement部分ColdMooon(转载)'在窗体内'放置一个时间控件，两个标签控件和一个文体框控件，和两个单选按钮，两个命令按钮OptionExplicitDimtxtTime'保存输入时间DimnowTime'保存实时时间DimoldTime'保存开始定时时间PrivateSubForm_Load

2、()me.caption="定时关机"me.label1.caption="关机时间："me.Option1.caption="在指定时间关机(时间格式：00:00:00)"me.Option2.caption="延迟指定的时间关机"me.command1.caption="确定"me.command2.caption="取消"Me.Text1=GetSetting("ShutDownWindows","Options","ShutDownTime","1:00")me!timer1.interval=1000EndSubPrivateSubComman

3、d1_Click()oldTime=TimeIfNotIsDate(Text1.Text)Then'用IsData函数判断输入的时间格式MsgBox"你所输入的不是时间格式,请修改!",,"Wrong"ElseIfOption1.ValueThentxtTime=TimeValue(Text1.Text)Timer1.Enabled=True'启动定时器Me.WindowState=1'最小化窗体Me.Caption="定时关机-启动"ElseIfOption2.ValueThenMe.WindowState=1Me.Caption="定时关机-暂停"E

4、ndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Unload(CancelAsInteger)SaveSetting"ShutDownWindows","Options","ShutDownTime",Me.Text1EndSubPrivateSubTimer1_Timer()nowTime=TimeMe.label2.Caption=TimeIfOption1.ValueThenIfDateDiff("s",nowTime,txtTime)<=0AndDateDiff("

5、s",nowTime,txtTime)>=-60Then'用DateDiff函数判断是否到时间了ShutDownPCTrueTimer1.Enabled=FalseEndIfEndIfEndSub'在标准模块内PrivateConstEWX_LOGOFF=0PublicConstEWX_SHUTDOWN=1PublicConstEWX_POWEROFF=8'此参数在VB自带API浏览器并未提供，值得注意，如果没有此参数在Win2kServer会死在关机屏幕下PrivateConstEWX_REBOOT=2PrivateConstEWX_FORCE=4Pr

6、ivateConstTOKEN_ADJUST_PRIVILEGES=&H20PrivateConstTOKEN_QUERY=&H8PrivateConstSE_PRIVILEGE_ENABLED=&H2PrivateConstANYSIZE_ARRAY=1PrivateConstVER_PLATFORM_WIN32_NT=2TypeOSVERSIONINFOdwOSVersionInfoSizeAsLongdwMajorVersionAsLongdwMinorVersionAsLongdwBuildNumberAsLongdwPlatformIdAsLo

7、ngszCSDVersionAsString*128EndTypeTypeLUIDLowPartAsLongHighPartAsLongEndTypeTypeLUID_AND_ATTRIBUTESpLuidAsLUIDAttributesAsLongEndTypeTypeTOKEN_PRIVILEGESPrivilegeCountAsLongPrivileges(ANYSIZE_ARRAY)AsLUID_AND_ATTRIBUTESEndTypePrivateDeclareFunctionGetCurrentProcessLib"kernel32"()A

8、sLongPrivateDeclareFunctionOpenProcessTo