شناسایی مرورگرهای اینترنت نصب شده روی سیستم

[saeidmobashery]

سلام بر اساتید عزیز

من از کد زیر برای باز کردن لینک‌ها در مرورگرهای مختلف استفاده می‌کنم :
System.Diagnostics.Process.Start(Browser_TextBox.T ext, Link)

و در یک تکست باکس اسم فایل اجرایی مرورگر را قرار می‌دهم

می‌خواهم تکست باکس را حذف کنم و کمبوباکس قرار دهم و با اعمل « کدی » کمبوباکس از نام مرورگرهایی که روی سیستم نصب است پر شود

از چه کدی باید استفاده کنم ؟

[پرستو پارسایی]

Imports Microsoft.Win32





Public Class Form1

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

        Dim browsersKeyPath As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths"

        Dim browsersKey As RegistryKey = Registry.LocalMachine.OpenSubKey(browsersKeyPath)





        If browsersKey IsNot Nothing Then

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

            For Each browserName As String In browserNames

                Dim browserKey As RegistryKey = browsersKey.OpenSubKey(browserName)

                Dim browserPath As String = browserKey.GetValue("Path").ToString()

                Dim browserExecutable As String = browserKey.GetValue("").ToString()

                Dim browserFullName As String = System.IO.Path.Combine(browserPath, browserExecutable)





                ' بررسی معتبر بودن فایل اجرایی مرورگر

                If System.IO.File.Exists(browserFullName) Then

                    BrowsersComboBox.Items.Add(browserName)

                End If

            Next

        End If

    End Sub

End Class

ابتدا شما رجیستری مربوط به مرورگرها را باز می‌کنید و نام‌های زیرکلیدها را دریافت کنید. سپس برای هر نام زیرکلید، مسیر و نام فایل اجرایی مرورگر را دریافت و بررسی می‌کنید. اگر فایل اجرایی معتبر بود، نام مرورگر را به ComboBox اضافه می‌کنید.
در نهایت، شما می‌تونید با استفاده از رویدادهای ComboBox مرورگر را انتخاب کرده و فرآیند باز کردن لینک را انجام دهید.

[ROSTAM2]

این ویدئو رو ببینید:
در این ویدیو مرورگر ها با آیکونشون به یک ComboBox اضافه شدن:

آموزش اضافه کردن آیتم با تصویر به ComboBox

[saeidmobashery]

Imports Microsoft.Win32





Public Class Form1

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

        Dim browsersKeyPath As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths"

        Dim browsersKey As RegistryKey = Registry.LocalMachine.OpenSubKey(browsersKeyPath)





        If browsersKey IsNot Nothing Then

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

            For Each browserName As String In browserNames

                Dim browserKey As RegistryKey = browsersKey.OpenSubKey(browserName)

                Dim browserPath As String = browserKey.GetValue("Path").ToString()

                Dim browserExecutable As String = browserKey.GetValue("").ToString()

                Dim browserFullName As String = System.IO.Path.Combine(browserPath, browserExecutable)





                ' بررسی معتبر بودن فایل اجرایی مرورگر

                If System.IO.File.Exists(browserFullName) Then

                    BrowsersComboBox.Items.Add(browserName)

                End If

            Next

        End If

    End Sub

End Class

ابتدا شما رجیستری مربوط به مرورگرها را باز می‌کنید و نام‌های زیرکلیدها را دریافت کنید. سپس برای هر نام زیرکلید، مسیر و نام فایل اجرایی مرورگر را دریافت و بررسی می‌کنید. اگر فایل اجرایی معتبر بود، نام مرورگر را به ComboBox اضافه می‌کنید.
در نهایت، شما می‌تونید با استفاده از رویدادهای ComboBox مرورگر را انتخاب کرده و فرآیند باز کردن لینک را انجام دهید.

استاد عزیز ، کد خطای زیر را داد :

Screenshot_2024_02_12_23_02_38.jpg

[saeidmobashery]

سپاس از راهنمایی دوستان عزیزم و فیلم مفیدی که رستم عزیز اشاره داشتند

کد زیر جواب داد :

Private Sub ExportBrowsers()

    Browsers_ComboBox.Items.Clear()

    Dim Path As String

    Dim File() As String

    Dim FileName As String

    With My.Computer.Registry.LocalMachine.OpenSubKey("soft  ware\clients\startmenuinternet")

        Dim Names() As String = .GetSubKeyNames

        For Each Item As String In Names

            With .OpenSubKey(Item)

                With .OpenSubKey("shell\open\command")

                    Path = .GetValue("", "")

                End With

            End With

            File = Path.Split("\")

            FileName = File(File.Count - 1).Replace("""", "")

            Browsers_ComboBox.Items.Add(FileName)

        Next

    End With

    Browsers_ComboBox.SelectedIndex = 0

End Sub