如何使用vbs实现字符ANSI代码查询工具

小编给大家分享一下如何使用vbs实现字符ANSI代码查询工具，希望大家阅读完这篇文章之后都有所收获，下面让我们一起去探讨吧！

代码如下:

x=InputBox("请输入字符","提示","Test")
If Len(x)<>0 then
For i=1 To Len(x)
WScript.echo "字符 [" & Mid(x,i,1) & "] ANSI代码为: " & Asc(Mid(x,i,1))
Next
Else
MsgBox "请输入英文字符",64,"提示"
End if

看完了这篇文章，相信你对"如何使用vbs实现字符ANSI代码查询工具"有了一定的了解，如果想了解更多相关知识，欢迎关注行业资讯频道，感谢各位的阅读！