Terdapat ciri hebat dalam Windows yang membolehkan anda membuat komputer anda bercakap atau bercakap apa sahaja yang anda katakan! Kaedah ini mengambil kesempatan daripada API terbina dalam yang dipasang pada Windows XP, Vista, 7, 8 dan 10 yang dipanggil SAPI (Antara Muka Pengaturcaraan Aplikasi Pertuturan).
Microsoft Speech API ialah apa yang digunakan untuk ciri kebolehcapaian teks ke pertuturan yang terbina dalam Windows. Anda juga boleh menulis program yang memanggil API, yang membolehkan anda membenarkan aplikasi anda bercakap, tetapi itu untuk pembangun.
Isi kandungan
- Teks Input, Sebut Mesej
- Konfigurasikan Tetapan Suara SAPI
- Jadual Skrip Fail
Hanya membuat komputer anda menyatakan apa yang anda mahukan sebenarnya agak mudah! Dalam artikel ini, saya akan menunjukkan kepada anda cara mencipta skrip VBS yang akan mengambil input teks daripada pengguna dan kemudian menyebutnya. Saya juga akan menyebut cara mengeraskan kod teks yang anda mahu tuturkan dan kemudian menjadualkan skrip itu untuk dijalankan pada acara tertentu seperti memulakan Windows atau log keluar.
Teks Input, Sebut Mesej
Mari kita mulakan dengan skrip ringkas yang akan memunculkan kotak dialog di mana anda boleh menaip perkara yang anda mahu Windows tuturkan. Mula-mula, teruskan dan buka Notepad.
Langkah 1: Tampalkan teks berikut ke dalam dokumen baharu:
Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message
Ambil perhatian bahawa apabila anda menyalin teks daripada pelayar web anda dan menampalnya ke Notepad, petikan akan menyebabkan masalah. Sebelum anda menyimpan fail, anda perlu meneliti dan memadam setiap petikan (“) dan menaip semula petikan. Dalam contoh di bawah, terdapat enam petikan. Ia sepatutnya kelihatan seperti imej di bawah.
Sekarang apabila anda pergi untuk menyimpan fail, berikan apa-apa nama, tetapi pastikan anda turut menaip .VBS selepas nama itu. Seterusnya, untuk kotak Simpan sebagai jenis , pilih Semua fail dan bukannya Dokumen Teks lalai.
Sekarang klik dua kali pada fail VBS dan anda akan melihat kotak input di mana anda boleh menaip teks yang anda mahu tuturkan! Taip sesuatu dan klik OK.
Jika anda melakukan segala-galanya dengan betul, anda harus mendengar sama ada suara lelaki atau perempuan mengucapkan ayat anda. Jika anda mendapat sebarang jenis mesej ralat, pastikan anda menyalin dan menampal teks sekali lagi dan menggantikan petikan tersebut.
Konfigurasikan Tetapan Suara SAPI
Ini menyeronokkan, tetapi kami juga boleh mengkonfigurasi komputer bercakap kecil kami dengan tetapan yang berbeza. Kita boleh menukar kelantangan, berapa cepat atau perlahan suara bercakap dan menukar jantina antara lelaki dan perempuan. Berikut ialah beberapa contoh kod di mana saya menambah beberapa baris tambahan.
Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
Set sapi.Voice = sapi.GetVoices.Item(1)
sapi.Rate = 0
sapi.volume = 100
sapi.Speak message
Kadar lalai ialah 0 dan julat ialah -10 hingga 10. -10 akan mempunyai suara bercakap dengan sangat perlahan dan 10 akan bercakap dengan sangat pantas. Kelantangan lalai pada 100 dan julat ialah 0 hingga 100. Baris yang bermula dengan Set sapi.Voice akan membolehkan anda menukar kepada suara lain, jika dipasang pada sistem anda.
Ambil perhatian bahawa bilangan suara yang boleh anda pilih bergantung pada sistem pengendalian. Dalam Windows 7, hanya ada satu suara, Microsoft Anna.
Dalam Windows 10, terdapat dua suara: Microsoft David dan Microsoft Zira seperti yang ditunjukkan di bawah.
Jika terdapat hanya satu suara yang dipasang pada sistem anda, anda perlu menukar yang mengatakan sapi.GetVoices.Item(1) kepada sapi.GetVoices.Item(0) , jika tidak, anda akan mendapat mesej ralat apabila anda cuba menjalankan skrip. Anda juga boleh membuat dokumen Notepad lain dan menampal kod di bawah, yang akan memberitahu anda suara yang dipasang. Simpannya sebagai fail .VBS seperti ditunjukkan di atas dan jalankannya.
Set VObj = CreateObject(“SAPI.SpVoice”)
For Each Voice In VObj.getvoices
I = I + 1
msgbox “” & (I – 1) & ” – ” & Voice.GetDescription
Next
Sehingga kini, kami telah menggunakan dialog pop timbul ini untuk memasukkan teks, tetapi anda juga boleh menaip mesej anda ke dalam fail skrip. Ini berguna jika anda mahu menjadualkan skrip untuk dijalankan secara automatik. Jelas sekali, ini boleh digunakan untuk mengejek rakan dan keluarga anda dan ia berfungsi dengan baik.
Bayangkan seseorang menghidupkan komputer mereka dan mendengar komputer memberitahu mereka "Hello John, saya sangat mengantuk, tolong jangan ganggu saya hari ini!" apabila ia boot! Saya boleh menjanjikan anda dari pengalaman, ia adalah histeria dan anda pasti harus mencubanya.
Untuk hardcode mesej, cuma tukar baris terakhir kepada sesuatu seperti ini:
sapi.Speak “Hello John, I am very tired today!”
Jadual Skrip Fail
Memandangkan anda telah mengekodkan mesej anda untuk sasaran yang anda inginkan, anda hanya perlu menjalankannya apabila anda mahu. Jika anda mahir teknologi, anda boleh menggunakan program seperti AutoIt , yang akan membolehkan anda melakukan perkara yang melampau seperti menjalankan fail skrip anda apabila program tertentu dibuka atau apabila tetingkap dimaksimumkan atau diminimumkan.
Saya tidak mempunyai masa untuk memahami semua itu dalam siaran ini, tetapi mujurlah Microsoft mempunyai ciri terbina dalam yang dipanggil Penjadual Tugas yang membolehkan anda melakukan beberapa perkara yang agak rumit dengan skrip dengan mudah.
Catatan saya sebelum ini menerangkan secara mendalam tentang cara menjadualkan fail skrip untuk dijalankan apabila peristiwa tertentu berlaku dalam Windows. Jika anda menghadapi sebarang masalah untuk membuat skrip anda berfungsi, sila hantar ulasan dan saya akan cuba membantu. Nikmati!