火狐很好，没有谷歌内核的小毛病，改造也基本搞定

窄口牛 发表于 2025-11-14 16:16:13

本帖最后由窄口牛于 2025-11-14 16:18 编辑

火狐个人设置

about:config

修改搜索引擎
browser.urlbar.update2.engineAliasRefresh  布尔  ture

关闭最后一个标签不关闭浏览器： browser.tabs.closeWindowWithLastTab
在新标签页打开书签：browser.tabs.loadBookmarksInTabs
火狐浏览器修改userAgent的办法一：
找到“general.useragent.override”，如果没有这一项，则点右键“新建”->“字符串”，输入这个字符串。
Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/123.0.0.0 Safari/537.36
找到toolkit.legacyUserProfileCustomizations.stylesheets，并将这一项目设置为 true，
about:support，选择下方的 Profile Folder，点击 Open Folder。
在这里，我们创建一个名叫 chrome 的文件夹，接下来的所有自定义脚本都放入这一文件夹之中。
userChrome.css
/* USER PARAMETERS */
#bookmarksMenuPopup, #BMB_bookmarksPopup {
  --user-top-bottom-padding: 2px; /* spacing tightness; default is 8px */
  --user-items-per-column: 45; /* reduce if the menu doesn't fit */
}
/* RULES */
/* Modify bookmark spacing only in bookmark menus */
menupopup:not(.in-menulist) > menuitem,
menupopup:not(.in-menulist) > menu {
  padding-block: var(--user-top-bottom-padding, inherit) !important;
  min-height: unset !important;
}
/* Keep width to a reasonable total */
#bookmarksMenuPopup, #BMB_bookmarksPopup {
  max-width: 80vw !important;
  overflow-x: scroll !important; /* DOESN'T WORK */
}
/* Apply grid layout */
.menupopup-arrowscrollbox * {
  display: grid;
  grid-auto-flow: column;
  grid-template-rows: repeat(var(--user-items-per-column, 28), auto);
  grid-auto-columns: minmax(200px, 380px);
}
多列书签就有了
语言包解压到浏览器目录可以解决，中文语言包造成的启动或者打不开网页问题。
不同版本运行会提示并要求建立新的配置文件，只需编辑用户目录的compatibility.ini的LastVersion=即可，
而这个ID来自软件目录的platform。

以下脚本可以实现多个火狐内核浏览器使用同一个用户目录

Option Explicit
Sub Main()
      On Error Resume Next
      Dim fso, currentPath
      Set fso = CreateObject("Scripting.FileSystemObject")
      currentPath = fso.GetParentFolderName(WScript.ScriptFullName)
      Dim dirA, dirB, platformIniPath, compatibilityIniPath
      dirA = fso.BuildPath(currentPath, "Appx86")
      dirB = fso.BuildPath(currentPath, "Data")
      platformIniPath = fso.BuildPath(dirA, "platform.ini")
      compatibilityIniPath = fso.BuildPath(dirB, "compatibility.ini")
      If Not fso.FolderExists(dirA) Then
         WScript.Echo "错误：目录A不存在"
         Exit Sub
      End If
      If Not fso.FileExists(platformIniPath) Then
         WScript.Echo "错误：platform.ini文件不存在"
         Exit Sub
      End If
      Dim timestamp, version
      If ReadPlatformIni(platformIniPath, timestamp, version) Then
         If Not fso.FolderExists(dirB) Then
            fso.CreateFolder dirB
         End If
            fso.DeleteFile compatibilityIniPath, True
         End If
         If CreateCompatibilityIni(compatibilityIniPath, version, timestamp) Then
            'WScript.Echo "成功更新compatibility.ini文件"
         Else
            WScript.Echo "错误：创建compatibility.ini文件失败"
         End If
      Else
         WScript.Echo "错误：读取platform.ini文件失败"
      End If
      Set fso = Nothing
End Sub
Function ReadPlatformIni(filePath, ByRef timestamp, ByRef version)
      On Error Resume Next
      Dim fso, file, content, lines, i
      Set fso = CreateObject("Scripting.FileSystemObject")
      If Not fso.FileExists(filePath) Then
         ReadPlatformIni = False
         Exit Function
      End If
      Set file = fso.OpenTextFile(filePath, 1, False)
      content = file.ReadAll
      file.Close
      lines = Split(content, vbNewLine)
      If UBound(lines) < 1 Then
         lines = Split(content, vbCrLf)
      End If
      If UBound(lines) < 1 Then
         lines = Split(content, vbLf)
      End If
      timestamp = ""
      version = ""
      For i = 0 To UBound(lines)
         Dim line
         line = Trim(lines(i))
         If Left(line, 8) = "BuildID=" Then
            timestamp = Mid(line, 9)
         ElseIf Left(line, 10) = "Milestone=" Then
            version = Mid(line, 11)
         End If
      Next
      If timestamp <> "" And version <> "" Then
         ReadPlatformIni = True
      Else
         ReadPlatformIni = False
      End If
      Set fso = Nothing
End Function
Function CreateCompatibilityIni(filePath, version, timestamp)
      On Error Resume Next
      Dim fso, file
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set file = fso.CreateTextFile(filePath, True)
      file.WriteLine "[Compatibility]"
      file.WriteLine "LastVersion=" & version & "_" & timestamp & "\" & timestamp
      file.Close
      If Err.Number = 0 Then
         CreateCompatibilityIni = True
      Else
         CreateCompatibilityIni = False
      End If
      Set fso = Nothing
End Function
Main

holley2008 发表于 2024-10-12 10:35:36