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 SelectEnd Function

 

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

 

 

 

 

 

 

转载于:https://www.cnblogs.com/forads/archive/2009/07/11/2161163.html