【VB】临时/暂时关闭/禁用Windows文件保护

VB 临时/暂时关闭/禁用Windows文件保护，VB临时关闭/禁用Windows文件保护，VB暂时关闭/禁用Windows文件保护，VB临时/暂时关闭Windows文件保护，VB临时/暂时禁用Windows文件保护，VB临时关闭Windows文件保护，VB临时禁用Windows文件保护，VB暂时关闭Windows文件保护，VB暂时禁用Windows文件保护，VB关闭Windows文件保护，VB禁用Windows文件保护，VB关闭文件保护，VB禁用文件保护，VB关文件保护，VB文件保护，VB SfcFileException，VB SfcFileException Lib "sfc_os.dll"，VB SfcFileException(0， StrPtr(S)， -1)，SfcFileException。

VB 临时/暂时关闭/禁用Windows文件保护：

Private Declare Function SfcFileException Lib "sfc_os.dll" Alias "#5" (ByVal dwUnknown0 As Long, ByVal pwszFile As Long, ByVal dwUnknown1 As Long) As Long '调用Windows文件保护Dll

Private Sub Command1_Click()
    Dim S As String
    S = "C:\windows\system32\taskmgr.exe" + vbNullChar
    If SfcFileException(0, StrPtr(S), -1) = 0 Then
        FileCopy "C:\windows\system32\cmd.exe", S                               '如果禁用该文件保护成功则复制记事本过去
    Else
        MsgBox "操作失败!"
    End If
End Sub

文章目录