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

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

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

قمت بوضع كود لتغير الصفحه الرئيسية لمتصفحات ( الفيرفوكس وجوجل كروم )

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

ارجوا المساعده بأقتراح طريقه لتغير الكود بحيث يحقق هذه الوظيفه

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

بالنسبه للفيارفوكس ::

   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

مثال استخدام الداله ::

        SetChromeHomepage("www.yahoo.com")
        SetFirefoxHomepage("www.google.com")

ارجوا من الخبراء ان يدلوا كلً بدلوه في هذا الموضوع لتصحيح هذا البرنامج الذي اتعبني في الحقيقه كثيراً ولم اصل لحل حتى الان

تحياتي وتقديري

وشكراً مقدماً