win7电脑开机一直显示欢迎-(win7电脑开机一直显示欢迎界面)

电脑开机”欢迎你“

Dim sapiSet sapi = createObject("sapi.spvoice")Set sapi.Voice = sapi.GetVoices.Item(0) sapi.Speak "开机时间"&time()&"华人牌2021款电脑懒汉为您服务,请输入开机密码"Set sapi.Voice = sapi.GetVoices.Item(1)sapi.Speak "Start time"&time()&"Chinese brand 2021 computer lazy man at your service, please enter the password"Set sapi.Voice = sapi.GetVoices.Item(2)sapi.Speak "机械を起動する時間"&time()&"中国の牌2021型のコンピュータの怠け者はあなたのためにサービスし电脑て、電源を起動するパスワードを入力してください"

Set sapi.Voice = sapi.GetVoices.Item(0) 的意思是选择电脑里的语音。

在上述代码例子中，我这里选的是一个中文、英文和一个日语[舔屏]，有其他需要小伙伴可以自行修改。

注意：我电脑里因为有三种语音，所以可以选择上述三种语言，如果你电脑里没有需要删除对应的代码，或者到以下的截图的位置添加没有的语音即可。

手动添加其他语言

在注册表里新增一个开机启动项

成果：以后每次开机都有来日各国的小姐姐给我们打招呼了。哈哈哈哈哈！！！！