查看: 558  |  回复: 0
  VB6 获得Windows启动方式
楼主
发表于 2023年5月5日 01:08

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private 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
        MsgBox "安全模式."
    Case 2
        MsgBox "支持网络的安全模式."
    Case Else
        MsgBox "Windows运行在普通模式"
    End Select
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com