用API确定当前Windows的启动状态

先在BAS中定义：
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Const SM_CLEANBOOT = 67
使用方法如下：
Select Case GetSystemMetrics(SM_CLEANBOOT)
Case 1: MsgBox "Windows运行在安全模式。"
Case 2: MsgBox "Windows运行在带网络环境的安全模式。"
Case Else: MsgBox "Windows运行正常模式。"
End Select