The function _vbs of the Chinese character pinyin implemented by VBS

Core code:

On Error Resume Next Set d = CreateObject ("Scripting.Dictionary") D.add "a", -20319 d.add "AI", -20317 d.add "A",-20304 D.add "Ang", -20295 D.add "ao", -20292 d.add "ba", -20283 d.add "Bai", -20265 d.add "ban", -20257 d.add "bang", -20242 D . Add "Bao", -20230 d.add "bei", -20051 D.add "Ben", -20036 D.add "Beng", -20032 d.add "bi", -20026 d.add "Bian", -20002 D. Add "Biao", -19990 d.add "Bie", -19986 d.add "bin", -19982 D.add "Bing", -19976 D.add "Bo", -19805 d.add "bu", -19784 d.ad D "Ca", -19775 d.add "Cai", -19774 D.add "can", -19763 d.add "Cang", -19756 D.add "Cao", -19751 D.add "Ce", -19746 d.add " CEng ", -19741 d.add" Cha ", -19739 d.add" Chai ", -19728 D.add" Chan ", -19725 D.add" Chang ", -19715 D.add" Chao ", -19540 d.a 
DD "Che", -19531 d.add "Chen", -19525 D.add "Cheng", -19515 d.add "Chi", -19500 d.add "Chong", -19484 D.add "Chou",-19479 D.add "Chu", -19467 d.add "Chuai", -19289 d.add "Chuan", -19288 d.add "Chuang", -19281 d.add "Chui", -19275 D.add "Chun", -19270 D.add "Chuo",-19263 D.add "CI", -19261 d.add "Cong", -19249 d.add "Cou", -19243 d.add "cu", -19242 d.add "Cuan", -19238 d.add "Cui",-1923 
5 D.add "Cun", -19227 d.add "CuO", -19224 d.add "Da", -19218 d.add "Dai", -19212 D.add "Dan", -19038 D.add "Dang",-19023 
D.add "DAO", -19018 d.add "de", -19006 D.add "Deng", -19003 d.add "Di", -18996 d.add "Dian", -18977 d.add "Diao",-18961 D.add "Die", -18952 d.add "Ding", -18783 d.add "Diu", -18774 D.add "Dong", -18773 d.add "Dou", -18763 d.add "du", -18756 D  . Add "Duan", -18741 d.add "DUI", -18735 d.add "dun", -18731 d.add "Duo", -18722 D.add "E", -18710 d.add "en", -18697 d.add "ER", -18696 d.add "FA", -18526 D.add "fan", -18518 D.add "Fang", -18501 d.add "Fei", -18490 d.add "Fen", -18478 d.add "F" Eng ", -18463 d.add" fo ", -18448 d.add" Fou ", -18447 d.add" Fu ", -18446 d.add" ga ", -18239 d.add" Gai ", -18237 d.add" Gan ", -18231 D.add "Gang", -18220 D.add "Gao", -18211 d.add "GE", -18201 d.add "GEi", -18184 D.add "Gen", -18183 D.add "Geng",- 18181 d.add "Gong",-180D.add "Gou", -17997 D.add "gu", -17988 d.add "Gua", -17970 d.add "Guai", -17964 d.add "Guan", -17961 d.add "Guang",-17  
950 D.add "GUI", -17947 D.add "gun", -17931 d.add "Guo", -17928 d.add "Ha", -17922 d.add "Hai", -17759 d.add "Han",-17752 
D.add "Hang", -17733 D.add "Hao", -17730 d.add "he", -17721 D.add "Hei", -17703 d.add "hen", -17701 d.add "Heng",-17697 
D.add "", -17692 D.add "Hou", -17683 d.add "Hu", -17676 d.add "Hua", -17496 d.add "Huai", -17487 D.add "Huan",-17482 
D.add "Huang", -17468 d.add "Hui", -17454 d.add "Hun", -17433 d.add "Huo", -17427 D.add "Ji", -17417 d.add "Jia",-17202 D.add "Jian", -17185 d.add "Jiang", -16983 d.add "Jiao", -16970 d.add "Jie", -16942 D.add "Jin", -16915 d.add "Jing",-1673 3 D.add "Jiong", -16708 D.add "JIU", -16706 D.add "Ju", -16689 d.add "Juan", -16664 D.add "Jue", -16657 d.add "June",-1664 
7 D.add "Ka", -16474 d.add "Kai", -16470 d.add "Kan", -16465 d.add "Kang", -16459 d.add "Kao", -16452 d.add "Ke",-16448 D.add "Ken", -16433 D.adD "Keng", -16429 d.add "Kong", -16427 D.add "Kou", -16423 D.add "Ku", -16419 d.add "Kua", -16412 d.add "Kuai", -16407 d.ad  D "Kuan", -16403 D.add "Kuang", -16401 d.add "Kui", -16393 D.add "Kun", -16220 d.add "Kuo", -16216 d.add "La", -16212 d.add "Lai", -16205 d.add "LAN", -16202 d.add "Lang", -16187 D.add "Lao", -16180 D.add "le", -16171 d.add "Lei", -16169 d.add "  Leng ", -16158 D.add" Li ", -16155 D.add" Lia ", -15959 D.add" Lian ", -15958 D.add" Liang ", -15944 D.add" Liao ", -15933 D.add  "Lie", -15920 D.add "Lin", -15915 D.add "Ling", -15903 D.add "Liu", -15889 D.add "Long", -15878 D.add "Lou", -15707 D.add "Lu", -15701 d.add "LV", -15681 d.add "Luan", -15667 d.add "Lue", -15661 d.add "Lun", -15659 d.add "Luo", -15652 d.add "M A ", -15640 D.add" Mai ", -15631 D.add" man ", -15625 D.add" Mang ", -15454 D.add" Mao ", -15448 D.add" Me ", -15436 D.add" Mei " , -15435 D.add "Men", -15419 D.add "Meng", -15416 d.add "Mi", -15408 d.add "Mian", -15394 D.add "Miao", -15385 d.add "Mie" , -15377 d.add "min",-15375 D.add "Ming", -15369 d.add "Miu", -15363 d.add "Mo", -15362 d.add "MoU", -15183 D.add "Mu", -15180 d.add "NA",-15165 D.add "Nai", -15158 d.add "Nan", -15153 D.add "Nang", -15150 d.add "Nao", -15149 d.add "ne", -15144 d.add "Nei", -15143 D 
. Add "nen", -15141 d.add "Neng", -15140 d.add "ni", -15139 d.add "Nian", -15128 d.add "Niang", -15121 d.add "Niao",-15119 
D.add "Nie", -15117 d.add "Nin", -15110 D.add "Ning", -15109 d.add "Niu", -14941 D.add "Nong", -14937 D.add "Nu",-14933  D.add "NV", -14930 D.add "Nuan", -14929 d.add "Nue", -14928 d.add "Nuo", -14926 d.add "O", -14922 d.add "ou", -14921 d.add "Pa", -14914 d.add "Pai", -14908 d.add "Pan", -14902 D.add "Pang", -14894 d.add "Pao", -14889 D.add "Pei", -14882 d.add " Pen ", -14873 D.add" Peng ", -14871 d.add" PI ", -14857 d.add" Pian ", -14678 d.add" Piao ", -14674 d.add" pie ", -14670 d.add" Pin ", -14668 d.add" ping ", -14663 d.add" po ", -14654 D.add" Pu ", -14645 d.add" Qi ", -14630 d.add" QIA ", -14594 d.add" Qian " ", -14429 D.add" Qiang ",-14407 D.add "Qiao", -14399 d.add "Qie", -14384 D.add "Qin", -14379 D.add "Qing", -14368 d.add "Qiong", -14355 d.add "Qiu" ", -14353 D.add" Qu ", -14345 D.add" Quan ", -14170 d.add" que ", -14159 d.add" Qun ", -14151 D.add" ran ", -14149 d.add" rang " , -14145 D.add "Rao", -14140 D.add "re", -14137 d.add "Ren", -14135 d.add "Reng", -14125 D.add "ri", -14123 d.add "Rong",- 14122 D.add "Rou", -14112 d.add "Ru", -14109 d.add "Ruan", -14099 D.add "Rui", -14097 D.add "Run", -14094 D.add "Ruo",-14  
092 D.add "sa", -14090 d.add "Sai", -14087 d.add "san", -14083 D.add "sang", -13917 D.add "Sao", -13914 d.add "se",-13910 D.add "Sen", -13907 D.add "Seng", -13906 D.add "Sha", -13905 D.add "Shai", -13896 D.add "Shan", -13894 d.add "Shang",-13 878 D.add "Shao", -13870 d.add "she", -13859 D.add "Shen", -13847 d.add "Sheng", -13831 d.add "Shi", -13658 d.add "Shou", -13611 D.add "Shu", -13601 d.add "Shua", -13406 d.add "Shuai", -13404 d.add "Shuan", -13400 d.add "Shuang", -13398 D.add "Shui", -13395 d.add "sh"Un ", -13391 d.add" Shuo ", -13387 d.add" Si ", -13383 d.add" song ", -13367 D.add" Sou ", -13359 d.add" su ", -13356 d.add" Sua " N ", -13343 D.add" Sui ", -13340 d.add" Sun ", -13329 d.add" suo ", -13326 d.add" Ta ", -13318 d.add" Tai ", -13147 D.add" Tan ", -13138 D.add "Tang", -13120 D.add "Tao", -13107 d.add "TE", -13096 d.add "Teng", -13095 d.add "Ti", -13091 d.add "Tian",-1 3076 D.add "Tiao", -13068 d.add "Tie", -13063 D.add "Ting", -13060 D.add "Tong", -12888 D.add "Tou", -12875 d.add "Tu",-1 2871 d.add "Tuan", -12860 D.add "Tui", -12858 d.add "Tun", -12852 d.add "Tuo", -12849 d.add "WA", -12838 D.add "Wai",-128 D.add "Wan", -12829 D.add "Wang", -12812 D.add "Wei", -12802 D.add "Wen", -12607 d.add "Weng", -12597 d.add "Wo",-1259 4 D.add "WU", -12585 D.add "Xi", -12556 d.add "Xia", -12359 d.add "Xian", -12346 d.add "Xiang", -12320 d.add "Xiao",-1230 0 D.add "Xie", -12120 D.add "Xin", -12099 d.add "Xing", -12089 d.add "Xiong", -12074 D.add "Xiu", -12067 D.add "Xu",-1205 
8 D.add "Xuan",-12039D.add "Xue", -11867 d.add "Xun", -11861 d.add "Ya", -11847 d.add "Yan", -11831 d.add "Yang", -11798 D.add "Yao", -11781 D.  Add "Ye", -11604 d.add "Yi", -11589 d.add "Yin", -11536 D.add "Ying", -11358 D.add "Yo", -11340 D.add "Yong", -11339 D.add "You", -11324 D.add "Yu", -11303 d.add "Yuan", -11097 D.add "Yue", -11077 d.add "Yun", -11067 d.add "Za", -11055 d.add "Z" AI ", -11052 d.add" Zan ", -11045 d.add" Zang ", -11041 d.add" Zao ", -11038 d.add" Ze ", -11024 d.add" Zei ", -11020 D.add" Zen " ", -11019 D.add" Zeng ", -11018 D.add" Zha ", -11014 d.add" Zhai ", -10838 d.add" Zhan ", -10832 D.add" Zhang ", -10815 D.add" Zhao ", -10800 d.add" Zhe ", -10790 d.add" Zhen ", -10780 d.add" Zheng ", -10764 d.add" Zhi ", -10587 d.add" Zhong ", -10544 d.a DD "Zhou", -10533 d.add "Zhu", -10519 d.add "Zhua", -10331 d.add "Zhuai", -10329 d.add "Zhuan", -10328 d.add "Zhuang",-103 D.add "Zhui", -10315 d.add "Zhun", -10309 D.add "Zhuo", -10307 d.add "Zi", -10296 d.add "Zong", -10281 D.add "Zou",-10 
274 D.add "zu",-10270D.add "Zuan", -10262 d.add "Zui", -10260 d.add "Zun", -10256 d.add "Zuo", -10254 function g (num) if num>0 and num< 160 then G=CHR (num) Else if num<-20319 or num>-10247 then g= "" Else a=d.items B=d.keys for i=d.count-1 to 0 Step-1 if A (i) <=num then exit for next g=b (i) End-if End-function function C (str) c= "" for I=1 to Len (str) C=C&AMP;G (ASC (mid str,i,1)) Next End Function while ex<> "Exit" Ex=inputbox (ex), "kanji Pinyin, input kanji", ex) If ex= " "Then Wscript.Quit End If Wend

Effect Chart:

Run directly

Enter a cloud-dwelling community

Above output Jiaobenzhijia