复制代码 代码如下:
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
您可能感兴趣的文章:- ACCESS的参数化查询,附VBSCRIPT(ASP)和C#(ASP.NET)函数
- vbs版IP地理位置查询小偷
- vbs版sql查询分析器lcx作品
- 可以查询系统用户名sid的vbs
- QueryCode.vbs 文本文件编码查询工具
- 通过IIS自带工具Iisapp.vbs查询哪个w3wp.exe站点占用资源(cpu或内存)
- VBS实现查询服务的制造商
