批处理乱码：
%%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a
@chcp 65001
@echo off
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
cd /d "%~dp0"
:: 开始初始化 ^为转义符 UTF8+CRLF ;
set "thistitle=Title-标题"
set "thiscopyright=制作者-公司"
set "thiscols=150"
set "thislines=10"
set "thiscols2=150"
set "thislines2=10"
set "tips1=提示-1"
set "tips2=提示-2"
set "endtips=结束提示"
:: 结束初始化 ;
title %thistitle% By: %thiscopyright% & mode con cols=%thiscols% lines=%thislines%
@cls
echo By   : %thiscopyright%
echo Title: %thistitle% & echo.
echo Tips1：%tips1%
echo Tips2：%tips2% & echo.
set /a "RandomNum1=(%RANDOM%)%%9" & set /a "RandomNum2=(%RANDOM%)%%9"
for /l %%x in (0, 1, %RandomNum1%) do color %%x%RandomNum2%
@pause
mode con cols=%thiscols2% lines=%thislines2%
@cls
:: 代码段开始 ;

:: 代码段结束 ;
echo %endtips%
@pause