从系统内置图标库中获取图标索引号

redyear2026

用 bat+powershell 脚本获取 c:\Windows\System32\shell32.dll 或 c:\Windows\System32\imageres.dll 包含的图标索引号，代码预设路径是前者，若改为后者，可在代码第4行自行替换...

test.bat

1. <# ::
   
2. @echo off &powershell -nop -c "iex(${%~f0}|out-string)" &pause&exit/b
   
3. #>
   
4. $n=0; $maxP=260; $lib='c:\Windows\System32\shell32.dll'
   
5. $path=[Runtime.InteropServices.Marshal]::StringToBSTR($lib)
   
6. $buf=New-Object Text.StringBuilder($lib, $maxP)
   
7. Add-Type '
   
8.    using System; using System.Runtime.InteropServices;
   
9.    public class p {
   
10.    [DllImport("shell32.dll", EntryPoint="PickIconDlg", CharSet=CharSet.Unicode)]
    
11.    public static extern int picker(IntPtr h, [MarshalAs(UnmanagedType.LPWStr)] string path, uint maxPath, ref int index); } '
    
12. $r=[p]::picker([IntPtr]::Zero, $buf, $maxP, [ref]$n)
    
13. if ($r -ne 1) { exit }
    
14. "图标库文件: $($buf.ToString())`n图标索引号: $n"; exit

复制代码

mfkof

很强大！

xzst110

厉害，谢谢！

yyz219195888

强大  谢谢

tanglf

这个要学学

a66

不错~

mofile

感谢分享！！

ZMLoveLH

很实用的脚本啊，多谢楼主了

窄口牛

ps做不到点选吗？
不懂ps，让ai改vbs，说做不到获取图标序号，改个选择吧，就来了个批处理的数字选项。

ebaqiang

厉害，多谢老大的付出

martin313

这个挺实用

yuping

窄口牛 发表于 2026-7-28 12:43
ps做不到点选吗？
不懂ps，让ai改vbs，说做不到获取图标序号，改个选择吧，就来了个批处理的数字选项。

快快附上你改好的代码 想吃现成的～

窄口牛

yuping 发表于 2026-7-28 16:56
快快附上你改好的代码 想吃现成的～

就把原脚本扔给ai，让帮你改成选择方式就行了。

redyear2026

窄口牛 发表于 2026-7-28 12:43
ps做不到点选吗？
不懂ps，让ai改vbs，说做不到获取图标序号，改个选择吧，就来了个批处理的数字选项。

可以用纯批代码实现交互选择图标库文件》先用资源管理器分别打开两个窗口，其中会高亮选中对应的 shell32.dll 和 imageres.dll 文件，以便从中拖入一个库文件，点选其中的图标并提取其索引号。试试以下代码...

test.bat

1. <# ::
   
2. @echo off &setlocal &set "d1=%SystemRoot%\system32\shell32.dll" &set "d2=%SystemRoot%\system32\imageres.dll"
   
3. if exist "%d1%" (explorer /select,"%d1%")
   
4. if exist "%d2%" (explorer /select,"%d2%")
   
5. :loop_ico
   
6.    set "p=" &set/p "p=拖入一个图标库文件："
   
7.   if not defined p (exit/b) else set "p=%p:"=%"
   
8.    powershell -nop -c "$lib='%p%';iex(${%~f0}|out-string)" &goto loop_ico
   
9. #>
   
10. $n=0; $path=[Runtime.InteropServices.Marshal]::StringToBSTR($lib)
    
11. $maxP=260; $buf=New-Object Text.StringBuilder($lib, $maxP)
    
12. Add-Type '
    
13.    using System; using System.Runtime.InteropServices;
    
14.    public class p {
    
15.    [DllImport("shell32.dll", EntryPoint="PickIconDlg", CharSet=CharSet.Unicode)]
    
16.    public static extern int picker(IntPtr h, [MarshalAs(UnmanagedType.LPWStr)] string path, uint maxPath, ref int index); } '
    
17. $r=[p]::picker([IntPtr]::Zero, $buf, $maxP, [ref]$n)
    
18. if ($r -ne 1) { exit }
    
19. "图标库文件: $($buf.ToString())`n图标索引号: $n"; exit

复制代码

窄口牛

恩，ai给搞出来了，点选两个中的一个执行。

redyear2026

窄口牛 发表于 2026-7-28 19:20
恩，ai给搞出来了，点选两个中的一个执行。

你写一个简单的批处脚本都要先用 ai 吗？

窄口牛

redyear2026 发表于 2026-7-28 19:27
你写一个简单的批处脚本都要先用 ai 吗？

批处理不一定需要，ps是一点点也不会；很明显，这不是批处理的范围。

jiavip

窄口牛 发表于 2026-7-28 19:29
redyear2026 发表于 2026-7-28 19:27
你写一个简单的批处脚本都要先用 ai 吗？

1. Powershell -nop -c "$n=0;$maxP=260;$lib='c:\Windows\System32\shell32.dll';$buf=New-Object Text.StringBuilder($lib,$maxP);Add-Type 'using System;using System.Runtime.InteropServices;public class p{[DllImport(\"shell32.dll\",EntryPoint=\"PickIconDlg\",CharSet=CharSet.Unicode)]public static extern int picker(IntPtr h,[MarshalAs(UnmanagedType.LPWStr)]string path,uint maxPath,ref int index);}';$r=[p]::picker([IntPtr]::Zero,$buf,$maxP,[ref]$n);if($r -eq 1){Write-Host \"图标库文件: $($buf.ToString())`n图标索引号: $n\"}else{Write-Host '用户选择了取消!'}"

复制代码

PS 命令一行过,,,

忧心的启

有小工具看的使用PECMD写的的，不懂你们用没用过。如图：

yuping

忧心的启 发表于 2026-7-29 16:45
有小工具看的使用PECMD写的的，不懂你们用没用过。如图：

还是这个爽～！  麻烦传上来吧～
集成到系统封装里面去。。。

wuyqd01

向楼主学习了.