发表评论(0)作者：, 平台：, 阅读：8190, 日期：2000-03-12

定义：

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 "在安全模式。"

Case 2: MsgBox "在带网络环境的安全模式。"

Case Else: MsgBox "正常模式。"

End Select