哪位高手写个vbs或者批处理查看浏览器插件信息（找到替代方案）

窄口牛 · 发表于 2024-2-4 17:07:35

本帖最后由窄口牛于 2024-2-6 09:02 编辑

查看插件名称，安装路径以及目前的版本。

chishingchan · 发表于 2024-2-4 18:18:17

查看 IE 的还好说！如果不是，浏览器太多了，脚本可能也不胜任！
但 IE 也过时了，查看也没意义！

nttwqz · 发表于 2024-2-4 18:43:15

楼主研究研究写一个，造福坛友

junyee · 发表于 2024-2-4 19:35:46

本帖最后由 junyee 于 2024-2-4 19:40 编辑

试试，

yyz2191958 · 发表于 2024-2-4 20:29:38

junyee 发表于 2024-2-4 19:35
试试，

高手哦

窄口牛 · 发表于 2024-2-4 21:17:32

本帖最后由窄口牛于 2024-2-5 11:35 编辑

回二楼:加个选择default目录
回三楼:我会写还用发帖？
回四楼:我这里失败了，我的插件比较多，搜文件那步就很费劲了。有的插件搜索这行还名字对不上，尴尬。
不过我看到了找答案的地方，用个文本内容搜索工具也行了。

nttwqz · 发表于 2024-2-4 21:55:03

不知道楼主用的什么浏览器？

窄口牛 · 发表于 2024-2-5 04:54:49

nttwqz 发表于 2024-2-4 21:55
不知道楼主用的什么浏览器？

加个选择浏览器default目录就可以了啊。我用的好几个呢。

tanchenglong · 发表于 2024-2-5 08:14:34

留名，顶一下

窄口牛 · 发表于 2024-2-5 11:36:37

不太容易，有点难

nttwqz · 发表于 2024-2-5 23:55:41

!include "MUI2.nsh"
!include "LogicLib.nsh"
!include "FileFunc.nsh"
!define PRODUCT_NAME "获取Chrome已安装插件信息"
Name "${PRODUCT_NAME}"
Caption "${PRODUCT_NAME}"
OutFile "${PRODUCT_NAME}.exe"
BrandingText " "
ManifestDPIAware true
XPStyle on
ShowInstDetails show
SetFont "Microsoft YaHei" 9
RequestExecutionLevel user
; InstallDir "D:\Chrome109\UserData\Default"
SpaceTexts 'none' 'none'
InstallButtonText "查找"
; 程序图标
!define MUI_ICON "${NSISDIR}\Contrib\Graphics\Icons\info.ico"
!define MUI_PAGE_CUSTOMFUNCTION_SHOW "func_hide"
!define MUI_DIRECTORYPAGE_TEXT_TOP " "
!define MUI_DIRECTORYPAGE_TEXT_DESTINATION "选择 Default 路径："
!insertmacro MUI_PAGE_DIRECTORY
!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_LANGUAGE "SimpChinese"
Var out
Section
SetDetailsPrint none
SetOutPath "$INSTDIR\Extensions"
FileOpen $out "$EXEDIR\已安装插件信息.txt" w
FileWrite $out "目录：$INSTDIR$\r$\n$\r$\n"
FileWrite $out "版本$\t$\t名称$\t$\t路径$\r$\n"
${Locate} "$OUTDIR" "/M=manifest.json" "func_findjson"
FileClose $out
SetDetailsPrint both
DetailPrint "文件已保存到程序所在目录：已安装插件信息.txt"
SectionEnd
Function func_findjson
; $R9 "path\name"
; $R8 "path"
; $R7 "name"
; $R6 "size" ($R6="" 如果是文件夹，$R6="0" 如果是文件 (带 /S= 参数时))
; $R0-$R5 未使用，可用于保存数据
; ...
; Push $var ; 如果 $var="StopLocate" 则退出函数
nsJSON::Set /file "$R9"
nsJSON::Get "name" /end
Pop $R0
nsJSON::Get "version" /end
Pop $R1
${GetParent} "$R8" $R5
FileWrite $out "$R1$\t$\t$R0$\t$\t$R5$\r$\n"
Push $1
FunctionEnd
Function func_hide
; 隐藏一些界面元素
GetDlgItem $0 $HWNDPARENT 1034
ShowWindow $0 0
GetDlgItem $0 $HWNDPARENT 1036
ShowWindow $0 0
GetDlgItem $0 $HWNDPARENT 1037
ShowWindow $0 0
GetDlgItem $0 $HWNDPARENT 1038
ShowWindow $0 0
GetDlgItem $0 $HWNDPARENT 1039
ShowWindow $0 0
GetDlgItem $0 $HWNDPARENT 1006
ShowWindow $0 0
FunctionEnd

复制代码

nsis 3.*需要NsJSON插件

nttwqz · 发表于 2024-2-5 23:57:13

我这只有一个偶然得到的插件，不知道其它插件的信息是否一致。

窄口牛 · 发表于 2024-2-6 08:17:57

nttwqz 发表于 2024-2-5 23:55
nsis 3.*需要NsJSON插件

效果不好，我装了18个插件，它只找到三个。和上面的批处理找到一样的位置，我这里是name加short-name获取名称更准确。

nttwqz · 发表于 2024-2-6 08:46:58

窄口牛发表于 2024-2-6 08:17
效果不好，我装了18个插件，它只找到三个。和上面的批处理找到一样的位置，我这里是name加short-name获取 ...

试试。

窄口牛 · 发表于 2024-2-6 09:01:53

nttwqz 发表于 2024-2-6 08:46
试试。

还是只找到三个。
我的解决办法：
我加了个自定义搜索引擎，扩展程序管理里可以看到版本，然后直接到微软插件商店搜索，对比就可以知道更新不更新。

nttwqz · 发表于 2024-2-6 09:29:48

窄口牛发表于 2024-2-6 09:01
还是只找到三个。
我的解决办法：
我加了个自定义搜索引擎，扩展程序管理里可以看到版本，然后直接到微 ...

会不会是json的文件名不一样？

窄口牛 · 发表于 2024-2-6 09:44:23

nttwqz 发表于 2024-2-6 09:29
会不会是json的文件名不一样？

不是。

nttwqz · 发表于 2024-2-6 09:59:16

窄口牛发表于 2024-2-6 09:44
不是。

你发个json我看看

窄口牛 · 发表于 2024-2-6 10:03:02

Default.rar (20.65 KB, 下载次数: 8)

nttwqz · 发表于 2024-2-6 14:20:40

窄口牛发表于 2024-2-6 10:03

已查明原因，应该是NSIS的bug引起，并非代码写法有问题，只能换个方式查找了

nttwqz · 发表于 2024-2-6 20:40:42

本帖最后由 nttwqz 于 2024-2-6 20:50 编辑

nsis作为脚本语言来用，还是有太多不足，重写文件查找功能之后，倒是能找到所有文件了，但是json插件又出现变量不更新造成名称重复和中文名称乱码问题，单次读取倒是不重复。

于是干脆用python重写，简单强大，问题迎刃而解。

# python 3.*
import os
import json
from tkinter.filedialog import askdirectory
opendir = askdirectory(title='选择 Default 目录', mustexist=True)
list = []
for root,dirs,files in os.walk(opendir, r'manifest.json'):
for i in files:
list.append(os.path.join(root, i))
with open(os.path.join(root, i), 'r', encoding='utf-8') as f:
dict = json.load(f)
if 'short_name' in dict.keys():
name = dict['short_name']
else:
name = dict['name']
print(os.path.abspath(os.path.dirname(root)), ' {: <10}'.format(dict['version']), name)
del name
print('\n\n')
os.system('pause')

复制代码

鉴于python对齐有严格要求，上传附件，注意，需要安装python 3。已上传编译好的到lanzou

获取Chrome已安装插件信息.7z (552 Bytes, 下载次数: 8)

tilltotell007 · 发表于 2024-2-19 08:11:56

感谢分享

wang1126 · 发表于 2024-2-28 05:51:12

感谢分享

tanchenglong · 发表于 2024-2-28 08:19:13

楼主写的真棒，我只是挽尊的

紧急追踪 · 发表于 2024-3-9 22:47:57

junyee 发表于 2024-2-4 19:35
试试，

感谢分享

		自动登录	找回密码
密码			注册

哪位高手写个vbs或者批处理查看浏览器插件信息（找到替代方案）

点评

点评

点评

点评

点评

点评

点评

点评

点评