طلب هام جداً رجاء المساعده في تطبيق برنامج لتغير الصفحه الرئيسية للفيرفوكس وكروم

بسم الله الرحمن الرحيم

السلام عليكم ورحمه الله وبركاته

اعضاء المنتدى المحترمين

لطالما استفدت منكم ومن خبراتكم فشكراً جزيلاً لكم مقدماً وجزاكم الله خيراً

في الحقيقه لدي مشكله تواجهني اثناء تطبيق دوال لكود فيجول بيسك دوت نت الهدف منها تغير الصفحه الرئيسيه لكل من المتصفحين الفيرفوكس و جوجل كروم

ولا ادري ماالسبب وقد حاولت كتابه الداله بأكثر من طريقه لكن دون جدوى

الكود الذي استخدمه ::

بالنسبه لأمر تغير صفحة البداية للفايرفوكس :

  Public Sub SetFirefoxHomepage(ByVal url As String)
        Dim FirefoxDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Mozilla\Firefox\Profiles\"
        For Each Dir As String In My.Computer.FileSystem.GetDirectories(FirefoxDir)
            Dim PerfsFile As String = Dir & "\prefs.js"
            If My.Computer.FileSystem.FileExists(PerfsFile) Then
                Dim Data As String = My.Computer.FileSystem.ReadAllText(PerfsFile)
                Dim FirstPos As Integer = InStr(Data, "user_pref(""browser.startup.homepage""") - 1
                Dim LastPos As Integer = InStr(FirstPos, Data, """);") + 2
                Data = Data.Replace(Data.Substring(FirstPos, LastPos - FirstPos), "user_pref(""browser.startup.homepage"", """ & url & """);")
                My.Computer.FileSystem.WriteAllText(PerfsFile, Data, False)
            End If
        Next
    End Sub

ولجوجل كروم ::

  Public Sub SetChromeHomepage(ByVal url As String)
        Dim Chrome As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Google\Chrome\User Data\Default"
        Dim PerfsFile As String = Chrome & "\Preferences"
        If My.Computer.FileSystem.FileExists(PerfsFile) Then
            Dim Data As String = My.Computer.FileSystem.ReadAllText(PerfsFile)
            Dim FirstPos As Integer = InStr(Data, """homepage"": ") - 1
            Dim LastPos As Integer = InStr(FirstPos, Data, """,") + 2
            Data = Data.Replace(Data.Substring(FirstPos, LastPos - FirstPos), """homepage"": """ & url & """,")
            My.Computer.FileSystem.WriteAllText(PerfsFile, Data, False)
        End If
    End Sub

حيث تظهر اخطاء عند محاوله تطبيق البرنامج بسبب هذه الاكواد المظلله باللون الاحمر

وهذه صوره عمليه عند محاوله تشغيل الكود تظهر لي هذه الرساله :

ارجو من جميع خبراء هذا المنتدى الرائع ان يساعدوني لحل هذه المشكله

وجزاكم الله خيراً مقدماً