本帖最后由 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编码格式测试。
|