在Form1中加入一个CommandButton、一个Label并加入如下代码rivate Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Const SM_CLEANBOOT = 67 Private Sub Command1_Click() Select Case GetSystemMetrics(SM_CLEANBOOT) Case 1 Label1 = "安全模式." Case 2 Label1 = "支持网络的安全模式." Case ElseLabel1 = "Windows运行在普通模式." End Select End Sub
360网站安全检测平台
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
淘帖
支持
反对
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
rivate Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Const SM_CLEANBOOT = 67 Private Sub Command1_Click() Select Case GetSystemMetrics(SM_CLEANBOOT) Case 1 Label1 = "安全模式." Case 2 Label1 = "支持网络的安全模式." Case ElseLabel1 = "Windows运行在普通模式." End Select End Sub 
共 1 个关于本帖的回复 最后回复于 2013-7-2 13:26