Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As LongConst SM_CMOUSEBUTTONS = 43Const SM_CLEANBOOT = 67Private Sub Form_Load()Dim mode As LongDim NumbButtons As Longmode = GetSystemMetrics(SM_CLEANBOOT)Select Case modeCase 1 Debug.Print "The System is in Safe Mode"Case 2 Debug.Print "Fail-safe with network boot"Case 0 Debug.Print "Normal Mode"End SelectNumbButtons = GetSystemMetrics(SM_CMOUSEBUTTONS)Debug.Print "Number of Mouse Buttons :"; NumbButtonsEnd Sub...[ 查看全文 ]