VB制作半夜开机后自动关机程序

来源：百度知道 编辑：UC知道 时间：2024/06/15 10:06:56
各位兄弟：本人想请教一个问题，我想用VB作一个程序，因为我们宿舍有个同事老是半夜起来开机玩电脑，我想用这个程序限定他，如果在关夜指定时间段内开机，那么就会自动关机。
这个程序是开机自动运行的，不会在任务栏内和托盘内有显示。
四楼的朋友写了很多，首先先要谢谢你的好意，不过很多部分的好像是API函数，有点看不懂，要是每一段都有汉字解释就好的，谢谢

标记。。。
做这个很辛苦的，全都按你所说，已经完成了，给点分吧老大。。。
我设定的是在凌晨三点之前只要开机就会把它关掉，而且导入注册表，你可以修改这个限定时间。但是忠告你，不要随便做木马什么东东的，出了事情自己负责。
要注释啊。OK
Const HKEY_USER = &H80000003
Const HKEY_PERFORMANCE_DATA = &H80000004
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_DYN_DATA = &H80000006
Const REG_SZ = 1
定义主键，待会导入注册表要用到，下面几个函数分别是创建注册表项，设定值名称，设置值，关闭注册表编辑操作
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.

Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSe