Vb.net 作为安装的一部分创建事件日志源-windows窗体应用程序，vs部署项目

我有一个使用visual studio部署项目部署的vb.net windows窗体应用程序。应用程序需要将事件日志写入事件查看器中的应用程序日志。出于上述原因，我需要在安装过程中创建事件源。类似这样的内容将作为安装程序的一部分运行

        If Not EventLog.SourceExists(My.Application.Info.ProductName) Then
            EventLog.CreateEventSource(My.Application.Info.ProductName, "Application")
        End If

该代码需要在安装过程中以提升的权限运行。因此，我的问题是：

作为安装程序的一部分，如何执行上述代码

如何让安装程序执行UAC提示以允许该代码作为安装的一部分运行

---

在此处将空注册表项添加到HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\eventlog\Application\MY_CUSTOM_SOURCE_NAME_似乎可以正常工作。

您也可以在EventLogInstaller类中尝试此方法： （安装期间需要管理员权限）

可能还对使用ProjectInstaller类感兴趣，如演练：在组件设计器中创建Windows服务应用程序：

抱歉-刚刚在Windows窗体上看到您的便笺。以上仅适用于Windows服务