AIT加数字键是什么?
- 提问者网友:相思似海深
- 2021-05-22 18:57
- 五星知识达人网友:荒野風
- 2021-05-22 20:05
'按住ALT键不放再依次输入小键盘上的34774之后松开ALT键就可以输入了,那么在QQ里怎么输入这个"囍"字呢?看看下面这个脚本....
dim s
do
n=inputbox("请输入您要转换的文字:","提示","我是中国人")
if n=false then wscript.quit
if msgbox("第一种格式:在QQ和WORD里输入。" _
& vbcrlf & "第二种格式:在记事本,EXCEL或网页里输入。" _
& vbcrlf & vbcrlf & "选择第一种请按[是],否则请按[否]" _
,vbyesno+4096,"友情提示")=vbyes then i=1
call zhuanhuan(n,i)
if i=1 then
msgbox "如果想在〖QQ和WORD〗里输入【" & n & "】,请按隹ALT键不放,再依次按小键盘上的" _
& vbcrlf & s,4096+48,"计算结果"
else
msgbox "如果想在〖记事本,EXCEL或网页〗里输入【" & n & "】,请按隹ALT键不放,再依次按小键盘上的" _
& vbcrlf & s,4096+48,"计算结果"
end if
i=0
loop until msgbox("是否继续转换其它文字?",32+4096+vbyesno,"系统提示")=vbno
'以下是转换过程
sub zhuanhuan(a,i)
s=""
for h=1 to len(a)
z=mid(a,h,1)
if i=1 then
c = CLng("&H" & Hex(Ascw(z)))
else
c = CLng("&H" & Hex(Asc(z)))
end if
s=s & c & ";"
next
s=left(s,len(s)-1)
end sub
'把上面的内容复制到记事本另存为a.vbs
- 1楼网友:行路难
- 2021-05-22 23:17
- 2楼网友:青灯有味
- 2021-05-22 22:07
- 3楼网友:野味小生
- 2021-05-22 21:02
是快捷键
- 4楼网友:天凉才是好个秋
- 2021-05-22 20:51