VB6判断操作系统是否运行在安全模式

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const SM_CLEANBOOT& = 67

Public Function IsSystemRunInSafeMode() As Boolean
Dim lngRet As Long
lngRet = GetSystemMetrics(SM_CLEANBOOT)
Select Case lngRet
Case 0 '普通模式
Case 1 '安全模式
IsSystemRunInSafeMode = True
Case 2 '带网络连接的安全模式
IsSystemRunInSafeMode = True
Case Else '获取状态失败
End Select
End Function

'测试Private Sub Command1_Click() If IsSystemRunInSafeMode() = True Then MsgBox "系统运行在安全模式" Else MsgBox "系统运行在普通模式" End IfEnd Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!