编写一段VB的主要代码,功能为:让XP系统重新启动

1.记录启动次数:用户savesetting和getsetting语句可以将应用程序配置信息保存在注册中
2.等待时间:可以用Timer控件现实
3.重启系统:用API函数exitWindowsEx
VB声明
Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
说明
退出windows，并用特定的选项重新启动
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数说明:
uFlags 指定下述一个或多个标志（用OR运算符合并到一起）
EWX_FORCE 强迫中止没有响应的进程
EWX_LOGOFF 中止进程，然后注销
EWX_SHUTDOWN 关掉系统电源（如果可能的话，ATX电源就可以）
EWX_REBOOT 重新引导系统
EWX_SHUTDOWN 关闭系统

dwReserved Long，保留，设为零

4.在系统启动时自动运行
可以创建一个快捷方式复制到启动菜单中
也可以通过设置注册表中的RUN项来实,以下API可以访问注册

RegCreateKey

VB声明
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
说明
在指定的项下创建一个新项。如指定的项已经存在，那么函数会打开现有的项

RegOpenKey

VB声明
Declare Functio