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

运行环境：分辨率：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