如何在VBS中用Popup方法显示西里尔文字

Question

我尝试在通过 .VBS 打开 HTA 文件之前显示西里尔文字

CreateObject("Wscript.Shell").Popup "Пожалуйста подождите...", 1

但是文本以错误的编码显示

如何设置正确的？

ps。以及如何添加新行，如

\n

？

Answer 1

以 Unicode 格式（UTF-16 小端）保存脚本，文本应该可以正常显示。

对于换行符，VBScript 不支持转义序列，但您可以将常量

vbNewLine

连接到字符串：

Set sh = CreateObject("WScript.Shell")
sh.Popup "Пожалуйста" & vbNewLine & "подождите...", 1

Answer 2

@回声关闭 chcp 1251>无 MSHTA.EXE vbscript:关闭(CreateObject("WScript.Shell").Popup("Привет",60,"Внимание!",64))