amwfjhh

不知这是否你想要的？

@if (0)==(0) echo off
set /p str=输入你要转换的字符串:
set /a nIndex=0
:_GetHexCode
call set tmpChr=%%str:~%nIndex%, 1%%
if "%tmpChr%" == "" echo,&goto :_end
for /f "tokens=*" %%i in ('cscript -nologo -e:jscript %~0 %tmpChr%') do set/p=0x%%i <nul
set /a nIndex+=1
goto :_GetHexCode
:_end
pause&goto :EOF
@end
WScript.echo(WScript.arguments(0).charCodeAt(0).toString(16));
复制代码

amwfjhh

回复 3# 867258173


    你是什么系统环境？我这里显示正常。

amwfjhh

回复 5# terse


    你这算混进羊群的狼吧，通篇功能都是JS来弄了，偏偏要披外BAT的外衣……