VB.NET 中没有卸载选项

在VB.NET中，我们经常需要安装和卸载各种软件，以满足我们的需求。然而，你可能会惊讶地发现，在VB.NET中，卸载选项并不像我们期望的那样直接可用。在本文中，我们将探讨为什么VB.NET中没有卸载选项，并提供一些解决方法。

vb
Private Sub UninstallSoftware(softwareName As String)
    Dim processInfo As New ProcessStartInfo()
    processInfo.FileName = "cmd.exe"
    processInfo.Arguments = "/c " & softwareName & " /uninstall"
    processInfo.UseShellExecute = False
    processInfo.CreateNoWindow = True
    Dim process As New Process()
    process.StartInfo = processInfo
    process.Start()
    process.WaitForExit()
End Sub

vb
Private Sub UninstallSoftware(softwareName As String)
    Dim uninstallKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    Dim softwareKey As String = ""
    Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey(uninstallKey)
    For Each subKey As String In key.GetSubKeyNames()
        Dim subKeyPath As String = uninstallKey & "\" & subKey
        Dim subKeyRegistry As RegistryKey = Registry.LocalMachine.OpenSubKey(subKeyPath)
        Dim displayName As String = CType(subKeyRegistry.GetValue("DisplayName"), String)
        If displayName IsNot Nothing AndAlso displayName.Contains(softwareName) Then
            softwareKey = subKeyPath
            Exit For
        End If
    Next
    If softwareKey <> "" Then
        Registry.LocalMachine.DeleteSubKeyTree(softwareKey)
    End If
End Sub