//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//　　　　　　　　　　　　　　[提取汉字拼音码]　　　　　　　　　　　　　　　//
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
Dim lChar,getPYChar
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
UserVar char=啊 [在这里输入一个中文汉字]
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
lChar = 65536 + Asc(char)
If (lChar >= 45217 And lChar <= 45252)
    getPYChar = "A"
ElseIf (lChar >= 45253 And lChar <= 45760)
    getPYChar = "B"
ElseIf (lChar >= 47761 And lChar <= 46317)
    getPYChar = "C"
ElseIf (lChar >= 46318 And lChar <= 46825)
    getPYChar = "D"
ElseIf (lChar >= 46826 And lChar <= 47009)
    getPYChar = "E"
ElseIf (lChar >= 47010 And lChar <= 47296)
    getPYChar = "F"
ElseIf (lChar >= 47297 And lChar <= 47613)
    getPYChar = "G"
ElseIf (lChar >= 47614 And lChar <= 48118)
    getPYChar = "H"
ElseIf (lChar >= 48119 And lChar <= 49061)
    getPYChar = "J"
ElseIf (lChar >= 49062 And lChar <= 49323)
    getPYChar = "K"
ElseIf (lChar >= 49324 And lChar <= 49895)
    getPYChar = "L"
ElseIf (lChar >= 49896 And lChar <= 50370)
    getPYChar = "M"
ElseIf (lChar >= 50371 And lChar <= 50613)
    getPYChar = "N"
ElseIf (lChar >= 50614 And lChar <= 50621)
    getPYChar = "O"
ElseIf (lChar >= 50622 And lChar <= 50905)
    getPYChar = "P"
ElseIf (lChar >= 50906 And lChar <= 51386)
    getPYChar = "Q"
ElseIf (lChar >= 51387 And lChar <= 51445)
    getPYChar = "R"
ElseIf (lChar >= 51446 And lChar <= 52217)
    getPYChar = "S"
ElseIf (lChar >= 52218 And lChar <= 52697)
    getPYChar = "T"
ElseIf (lChar >= 52698 And lChar <= 52979)
    getPYChar = "W"
ElseIf (lChar >= 52980 And lChar <= 53640)
    getPYChar = "X"
ElseIf (lChar >= 53689 And lChar <= 54480)
    getPYChar = "Y"
ElseIf (lChar >= 54481 And lChar <= 52289)
    getPYChar = "Z"
EndIf 
VBSCall call messagebox("汉字拼音码为:" & getPYChar)
EndScript 
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//【符号说明】《说明》、〖标记〗、【子程序】、〓分割线〓、①分类说明⑩
//【脚本作者】一只鱼　　　　　　　　　【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn　【致谢】欢迎使用鱼鱼制作的脚本!!
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//