Option Explicit Public Const SM_CLEANBOOT = 67 Public Declare Function GetSystemMetrics Lib “user32” (ByVal nIndex As Long) As Long 在窗体中添加标签Label1和命令按钮Command1，设置如下代码：
Private Sub Command1_Click() Select Case GetSystemMetrics(SM_CLEANBOOT) Case 0:Label1=“系统运行于正常模式” Case 1:Label1=“系统运行于安全模式” Case 2:Label1=“系统运行于网络环境下的安全模式” End Select End Sub
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
