Sub LD(strSource)
'XP下初始只有一个缺省语音引擎，为英文MSSam
'朗读中文需要TTS简体中文语音库，下载地址（1.55M）：
Rem http://download.lingoes.cn/speech/Microsoft_TTS_51_chs.msi
set objVoice = ……
dim player
set player=createobject("wmplayer.ocx")
While true
VBSCall c=inputbox("输入歌曲对应的编号,退出输0：[1,痛彻心扉][2,放声大哭][3,那么爱你为什么][4,认真的雪][5,爱情转移][6,有没有人告诉你][7,白狐][8,遇上你是我的缘][9,不值得][10,三生石上][11,Conquest Of Paradise][12,自由飞翔][13,你很爱他][14,下辈子如果我还记得你][15,不想让你哭][16,分手在那个秋天][17,秋天不回来][18,valderfields][19,My body][20,Life Is Still a Struggl][21,玫瑰花的葬礼][22,依然在一起][23,做你的爱人][24,你是我内心的一首歌][25,老人与海][26,等一分钟]")
If c="&qu ……
查看完整文章