Dim a As String = "aaa"
        a = a.Replace("aaa", "Dim StrArray As String() = Strings.Split(Me.DefaultBrowser, "" ""\"" "", -1, CompareMethod.Binary)" & Chr(10) & "Dim SS as string = trings.Split(Convert.ToString(My.Computer.Registry.GetValue(" & """HKEY_CLASSES_ROOT\HTTP\shell\open\command" & "," & """" & """Not Found""" & "))" & "," & """""""" & "," & "-1" & "," & "CompareMethod.Binary)(1)")