Winapi 使用vba将应用程序添加到排除列表（WerAddExcludedApplication）

我试图以编程方式将一个程序添加到排除的应用程序列表中，这样，如果它崩溃，我就不会收到“调试/关闭程序”对话框。它需要在vba中，因为它将是用vba编写的大型程序的一部分

下面是我试图将C++代码转换为VBA < /P>的尝试 有人帮我吗

谢谢

---

关于数据你应该检查声明。user32.dll未导出此API

引用说库是wer.dll

这个函数需要Unicode字符串。所以，你必须通过考试。如下

s = "myapp.exe"
s = StrConv(s, vbUnicode)
WerAddExcludedApplication(s, 1)

---

您应该检查声明。user32.dll未导出此API

引用说库是wer.dll

这个函数需要Unicode字符串。所以，你必须通过考试。如下

s = "myapp.exe"
s = StrConv(s, vbUnicode)
WerAddExcludedApplication(s, 1)

---

谢谢你的帮助。我对它做了如下修改：Private Declare PtrSafe函数WerAddExcludedApplication Lib“wer”（ByVal pwzExeName为字符串，ByVal bAllUsers为长）作为Long Sub test（）Dim s$，Response s s=“MyApp.exe”s=StrConv（s，vbUnicode）Response=WerAddExcludedApplication（s，0）End Sub在我将第二个参数更改为0（即存储在HKEY_CURRENT_用户中）之前，我一直获得“拒绝访问”[错误-2147467259（0x80004005）]。如果要更新HKLM注册表，您必须将UAC提升为管理员。感谢您的帮助。我对它做了如下修改：Private Declare PtrSafe函数WerAddExcludedApplication Lib“wer”（ByVal pwzExeName为字符串，ByVal bAllUsers为长）作为Long Sub test（）Dim s$，Response s s=“MyApp.exe”s=StrConv（s，vbUnicode）Response=WerAddExcludedApplication（s，0）End Sub在我将第二个参数更改为0（即存储在HKEY_CURRENT_用户中）之前，我一直获得“拒绝访问”[错误-2147467259（0x80004005）]。如果要更新HKLM注册表，您必须将UAC提升为管理员。