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

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:windowssystem32taskmgr.exe" + vbNullChar
    If SfcFileException(0, StrPtr(S), -1) = 0 Then
        FileCopy "C:windowssystem32cmd.exe", S                               '如果禁用该文件保护成功则复制记事本过去
    Else
        MsgBox "操作失败!"
    End If
End Sub