Elenco Browser in vb net express 2010

[libraio]

Scusate sto cercando del codice che mi faccia elencare i browser presenti nel computer in uso. Ho trovato un codice che mi elenca tutti i software tranne i browser Scusate se non lo inserisco o non inserisco del mio codice.

[cassano]

http://stackoverflow.com/questions/7...rp-for-newbies

http://stackoverflow.com/questions/1...ome-wont-error

[libraio]

Ho visto il codice emi sembra interessante. Ho installato c# express edition 2010 e cerco di farne una dll per poter utizzare il codice in vb net express 2010.
Grazie

[MItaly]

Probabilmente fai prima semplicemente a convertirlo in codice VB.NET, i due linguaggi sono quasi completamente equivalenti, cambia solo un po' la sintassi (tanto che ci sono addirittura dei convertitori online).

[libraio]

Ho finalmente trovato una pagina web (link= ) che mi permette di trasformare il codice c# in vb net, però adesso ho un problema perchè mi appare 2 volte internet explorer e io vorrei sapere come evitarlo; prima di elaborare del codice pazzesco...

Public Class Form1

    Dim browserKeys As RegistryKey

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        browserKeys = Registry.LocalMachine.OpenSubKey("SOFTWARE\WOW6432Node\Clients\StartMenuInternet")

        If browserKeys Is Nothing Then
            browserKeys = Registry.LocalMachine.OpenSubKey("SOFTWARE\Clients\StartMenuInternet")
        End If

        Dim browserNames As String() = browserKeys.GetSubKeyNames()

        For Each browser As String In browserNames
            Using tempKey As RegistryKey = browserKeys.OpenSubKey(browser)
                For Each keyName As String In tempKey.GetValueNames()
                    'If tempKey.GetValue(keyName).ToString() = "Internet Explorer" Then
                    'Button1.Enabled = True
                    ''Button1.BackgroundImage = Properties.Resources.iExplorer
                    'End If
                    'If Button1.Enabled = True Then
                    ListBox1.Items.Add(tempKey.GetValue(keyName).ToString())
                    'End If
                Next
            End Using
        Next

    End Sub
End Class

Grazie

[oregon]

Dai un'occhiata alle chiavi di registro utilizzate e cerca di capire il perché c'è più volte.

[libraio]

ho controllato con regedit e ne ho trovati più di uno (molti) ma non so' come recuperare la lista degli eseguibili per poi attivarne uno. HO POSTATO SUI S.O. una domanda del genere e un moderatore mi ha consigliato di farla qui in Programmazione. Ho risolto il precedente con un controllo testuale all'interno della lista: i doppioni li elimino cosi:

Dim a As Integer = mnutesta.Items.Count - 1 
Dim k, m, b As Integer 
Dim str As String 
Dim str2 As String 

Try For k = 0 To a 
str = mnutesta.Items.Item(k) 
For m = k + 1 To a 
str2 = mnutesta.Items.Item(m) 
If str = str2 Then 
mnutesta.Items.Remove(str2) 
End If 
Next Next 
Catch ex As Exception 
'niente Exit Try 
End Try