|
|
本帖最后由 窄口牛 于 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
|
|