我也教大家一招,任何字都可以用这样的方式打出来
把下面红色的编码复制下来,粘贴到新建的记事本中
然后点击另存为“alt数字输入查询.VBS”
就会出现下面图标的一个文件
打开它,就按它的提示操作就可以获取任何汉字的数字化编码了
msgbox"注意本程序支持两种转换:" & chr(13) & "QQ 和 其他,多个字符输入只转换第一个字符" & chr(13) & "转换的时候注意下!" & chr(13) & chr(13) & "源码由storn公开提供QQ:29455924" & chr(13) & "神迹(21g)改编vbs脚本" & chr(13) & "欢迎使用!",48,"注意!"
do
do
a=inputbox("输入文字")
If a = "" Then
MsgBox "你还没有输入字符!"
Else
exit do
end if
loop
b=inputbox("QQ中使用请输入:QQ" & chr(13) & "否则代表在记事本或网页中使用!")
If b = "QQ" Then
c = CLng("&H" & Hex(AscW(a)))
Else
c = CLng("&H" & Hex(Asc(a)))
End If
msgbox"算出来了!" & "按住alt不放" & chr(13) & "再依次按小键盘上的" & c & "松开alt键盘就会出现“ " & a & " ”字" & chr(13) & "快去试试吧!",64,"哈哈!"
a=msgbox("还转换其他字吗?",36,"请问")
if a=7 then exit do
loop
msgbox"谢谢使用再见!",,"拜拜" |