powershell "[int][char]'字'"
复制代码

powershell "[char]23383"
复制代码

powershell "[System.BitConverter]::touint16(([System.Text.Encoding]::getencoding(936).GetBytes('字')[1,0]),0)"
powershell "[System.Text.Encoding]::GetEncoding(936).getchars(([System.BitConverter]::GetBytes(55254)[1,0]))"
复制代码

@echo off&chcp 936>nul
(
echo 字 
)>"%temp%\$"
for /f "tokens=1,2" %%i in ('certutil -dump "%temp%\$"') do set @hex=%%i%%j&goto :aaa
:aaa
set /a @hex=0x%@hex%
echo,%@hex%
pause&exit/b
复制代码

s = Asc("字")
If s < 0 Then s = s + 65536
MsgBox s
复制代码

MsgBox CLng("&H" & Hex(Asc("字")))
复制代码

@Echo off 
Title 汉字转GB2312十进制码
SET/P 字=请输入你要转码的字符：
CALL,:GB2312 %字%
:GB2312
Title 汉子转GB2312 码
Set 字=%~1
:拆字
Set 字符=%字符%%字:~0,1%,
Set 字=%字:~1%
IF not "%字%"=="" Goto,拆字
Set 字符=%字符:~0,-1%
Echo.if wscript.arguments.count=0 then msgbox "没有转码参数！" ^& wscript.quit >%Temp%\GB2312.VBS
Echo.WScript.Echo CLng("&H" ^& Hex(Asc(WScript.Arguments(0)))) >>%Temp%\GB2312.VBS
For %%a in (%字符%) do ( For /f "delims=" %%i in ('"Cscript.exe //e:Vbscript //nologo %Temp%\GB2312.VBS %%a"') do ( Echo. ALT + %%i ))
Del  %Temp%\GB2312.VBS /Q
PAUSE>NUL & EXIT
复制代码

chcp 936>nul&set/p=字<nul>$&certutil -dump $&del $
复制代码