找回密码
 加入
搜索
查看: 813|回复: 1

[AU3基础] 【已解决】获取已安装软件列表,中文乱码是什么情况?

[复制链接]
发表于 2022-10-25 18:45:06 | 显示全部楼层 |阅读模式
本帖最后由 holley 于 2022-10-25 19:37 编辑

代码如下:
$file = FileOpen(@ScriptDir & "\RegInstalledItems.csv", 1+512)
If $file = -1 Then
        ConsoleWrite("ERROR: Unable to write to the output file")
        Exit
EndIf

$i = 1
While Not @error
        $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $i)
        If @error <> 0 Then ExitLoop
        $var2 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" & $var, "DisplayName")
        $outLine = $var & "," & $var2
        FileWriteLine($file, $outLine)
        $i += 1
WEnd
FileClose($file)
获取结果:
英文正常、中文全是乱码

求问:
这种情况大家遇到一般怎么处理?已改了脚本编码格式、IDE编码格式测试。
发表于 2022-10-25 19:08:23 | 显示全部楼层
首行改一下,加 + 512
$file = FileOpen(@ScriptDir & "\RegInstalledItems.csv", 1 + 512)

评分

参与人数 1金钱 +40 收起 理由
holley + 40 很给力!

查看全部评分

您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-22 11:23 , Processed in 0.090160 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表