源码是按键精灵学习源码，实现了提取汉字拼音码。

运行环境：分辨率：1440×900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@提取汉字拼音码    2009/3/19

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//   //　　　　　　　　　　　　　　[提取汉字拼音码]　　　　　　　　　　　　　　　//   //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//   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