msgbox"注意本程序支持两种转换:" & chr(13) & "QQ 和 其他,多个字符输入只转换第一个字符" & chr(13) & "转换的时候注意下!" & chr(13) & chr(13) & "源码由九龙公开提供QQ:122688971" & chr(13) & "欢迎使用!",27,"注意!" 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"谢谢使用再见!",,"拜拜" //复制上面的代码到记事本中另存为: alt数字输入查询.vbs |