1. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
2. //　　　　　　　　　　　　　　[提取汉字拼音码]　　　　　　　　　　　　　　　//
3. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定★义★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
4. Dim lChar,getPYChar
5. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
6. 用户定义变量 char=啊 [在这里输入一个中文汉字]
7. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
8. lChar = 65536 + Asc(char)
9. 如果表达式 ((lChar >= 45217 And lChar <= 45252)) 为真,则
10.     getPYChar = "A"
11. 否则如果((lChar >= 45253 And lChar <= 45760))为真,则
12.     getPYChar = "B"
13. 否则如果((lChar >= 47761 And lChar <= 46317))为真,则
14.     getPYChar = "C"
15. 否则如果((lChar >= 46318 And lChar <= 46825))为真,则
16.     getPYChar = "D"
17. 否则如果((lChar >= 46826 And lChar <= 47009))为真,则
18.     getPYChar = "E"
19. 否则如果((lChar >= 47010 And lChar <= 47296))为真,则
20.     getPYChar = "F"
21. 否则如果((lChar >= 47297 And lChar <= 47613))为真,则
22.     getPYChar = "G"
23. 否则如果((lChar >= 47614 And lChar <= 48118))为真,则
24.     getPYChar = "H"
25. 否则如果((lChar >= 48119 And lChar <= 49061))为真,则
26.     getPYChar = "J"
27. 否则如果((lChar >= 49062 And lChar <= 49323))为真,则
28.     getPYChar = "K"
29. 否则如果((lChar >= 49324 And lChar <= 49895))为真,则
30.     getPYChar = "L"
31. 否则如果((lChar >= 49896 And lChar <= 50370))为真,则
32.     getPYChar = "M"
33. 否则如果((lChar >= 50371 And lChar <= 50613))为真,则
34.     getPYChar = "N"
35. 否则如果((lChar >= 50614 And lChar <= 50621))为真,则
36.     getPYChar = "O"
37. 否则如果((lChar >= 50622 And lChar <= 50905))为真,则
38.     getPYChar = "P"
39. 否则如果((lChar >= 50906 And lChar <= 51386))为真,则
40.     getPYChar = "Q"
41. 否则如果((lChar >= 51387 And lChar <= 51445))为真,则
42.     getPYChar = "R"
43. 否则如果((lChar >= 51446 And lChar <= 52217))为真,则
44.     getPYChar = "S"
45. 否则如果((lChar >= 52218 And lChar <= 52697))为真,则
46.     getPYChar = "T"
47. 否则如果((lChar >= 52698 And lChar <= 52979))为真,则
48.     getPYChar = "W"
49. 否则如果((lChar >= 52980 And lChar <= 53640))为真,则
50.     getPYChar = "X"
51. 否则如果((lChar >= 53689 And lChar <= 54480))为真,则
52.     getPYChar = "Y"
53. 否则如果((lChar >= 54481 And lChar <= 52289))为真,则
54.     getPYChar = "Z"
55. 条件结束
56. 调用外部VBScript子程序 call messagebox("汉字拼音码为:" & getPYChar)
57. 脚本停止运行
58. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
59. //【符号说明】《说明》、〖标记〗、【子程序】、〓分割线〓、①分类说明⑩
60. //【脚本作者】一只鱼　　　　　　　　　【QQ群】5619170
61. //【E-Mail】ChapterRain@yahoo.com.cn　【致谢】欢迎使用鱼鱼制作的脚本!!
62. //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//