Laman » Perkara yang menyeronokkan » Cara Membuat Talk / Speak Komputer Anda Apa yang Anda Taip

    Cara Membuat Talk / Speak Komputer Anda Apa yang Anda Taip

    Terdapat ciri yang hebat di Windows yang membolehkan anda membuat cakera komputer anda atau bercakap apa sahaja yang anda berikan! Kaedah ini mengambil kesempatan daripada API terbina dalam yang dipasang pada Windows XP, Vista, 7, 8 dan 10 dipanggil SAPI (Antara Muka Pemrograman Aplikasi Ucapan).

    API Ucapan Microsoft adalah apa yang digunakan untuk ciri kebolehcapaian teks-ke-ucapan yang dibina ke dalam Windows. Anda juga boleh menulis program yang memanggil API, yang membolehkan anda membiarkan aplikasi anda bercakap, tetapi itu untuk pemaju.

    Hanya membuat komputer anda berkata apa yang anda mahu agak mudah sebenarnya! Dalam artikel ini, saya akan menunjukkan kepada anda cara membuat skrip VBS yang akan mengambil input teks dari pengguna dan kemudian berucap. Saya juga akan menyebut bagaimana kod keras teks yang anda mahu dituturkan dan kemudian menjadualkan skrip itu untuk dijalankan pada peristiwa tertentu seperti memulakan Windows atau log off.

    Teks Input, Bercakap Mesej

    Mari kita mulakan dengan skrip mudah yang akan muncul kotak dialog di mana anda boleh menaip apa yang anda mahu Windows bercakap. Pertama, teruskan dan buka Notepad.

    Langkah 1: Sisipkan teks berikut ke dalam dokumen baru:

    Dim mesej, lembu
    message = InputBox ("Masukkan teks yang anda mahu lisan", "Bicara Ini")
    Set sapi = CreateObject ("sapi.spvoice")
    mesej mesej sapi

    Ambil perhatian bahawa apabila anda menyalin teks dari pelayar web anda dan menampalnya ke Notepad, petikan akan menyebabkan masalah. Sebelum anda menyimpan fail, anda perlu melalui dan hapuskan setiap petikan (") dan taip semula petikan itu. Dalam contoh di bawah, terdapat enam petikan. Ia sepatutnya kelihatan seperti imej di bawah.

    Kini apabila anda pergi untuk menyimpan fail itu, beri nama itu, tetapi pastikan anda juga menaip .VBS selepas nama itu. Seterusnya, untuk Simpan sebagai jenis kotak, pilih Semua fail bukan 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 dituturkan! Taip sesuatu dan klik OK.

    Jika anda melakukan semuanya dengan betul, anda harus mendengar sama ada suara lelaki atau perempuan bercakap. Jika anda mendapat apa-apa jenis mesej ralat, pastikan anda menyalin dan menampal teks itu lagi dan menggantikan sebut harga tersebut.

    Konfigurasikan Tetapan SAPI Suara

    Ini menyeronokkan, tetapi kita juga boleh mengkonfigurasi komputer kami yang sedikit bercakap dengan tetapan yang berbeza. Kita boleh mengubah jumlah, berapa cepat atau lambat perbincangan suara dan menukar jantina antara lelaki dan perempuan. Berikut adalah beberapa contoh kod di mana saya menambah beberapa baris tambahan.

    Dim mesej, lembu
    message = InputBox ("Masukkan teks yang anda mahu lisan", "Bicara Ini")
    Set sapi = CreateObject ("sapi.spvoice")
    Tetapkan sapi.Voice = sapi.GetVoices.Item (1)
    sapi.Rate = 0
    sapi.volume = 100
    mesej mesej sapi

    Kadar lalai adalah 0 dan julatnya adalah -10 hingga 10. -10 akan mempunyai suara bercakap super perlahan dan 10 akan bercakap super cepat. Jumlahnya dimatikan pada 100 dan julat adalah 0 hingga 100. Baris yang bermula dengan Tetapkan sapi.Voice akan membolehkan anda menukar kepada suara lain, jika dipasang pada sistem anda.

    Ambil perhatian bahawa bilangan suara yang anda boleh pilih bergantung kepada sistem operasi. Di Windows 7, hanya ada satu suara, Microsoft Anna.

    Dalam Windows 10, terdapat dua suara: Microsoft David dan Microsoft Zira seperti yang ditunjukkan di bawah.

    Sekiranya hanya terdapat satu suara yang dipasang pada sistem anda, anda perlu mengubahnya sapi.GetVoices.Item (1) kepada sapi.GetVoices.Item (0), jika tidak, anda akan mendapat mesej ralat apabila anda cuba menjalankan skrip. Anda juga boleh mencipta dokumen Notepad lain dan tampal kod di bawah, yang akan memberitahu anda apa suara dipasang. Simpan sebagai fail .VBS seperti ditunjukkan di atas dan jalankan.

    Tetapkan VObj = CreateObject ("SAPI.SpVoice")
    Untuk Setiap Suara Dalam VObj.getvoices
    I = I + 1
    msgbox "" & (I - 1) & "-" & Voice.GetDescription
    Seterusnya

    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 kemudian menjadualkan skrip untuk dijalankan secara automatik. Jelas sekali, ini boleh digunakan untuk menipu rakan dan keluarga anda dan berfungsi dengan baik.

    Bayangkan seseorang yang menghidupkan komputer dan mendengar komputer memberitahu mereka "Hello John, saya sangat mengantuk, tolong jangan mengganggu saya hari ini!" Saya boleh menjanjikan anda dari pengalaman, ia amat histeris dan anda mesti mencubanya.

    Untuk hardcode mesej, hanya ubah baris terakhir kepada sesuatu seperti ini:

    sapi.Speak "Hello John, saya sangat penat hari ini!"

    Jadual Fail Skrip

    Sekarang bahawa anda telah mengeras mesej anda untuk sasaran anda, anda perlu menjalankannya apabila anda mahu. Sekiranya anda berteknologi tinggi, anda boleh menggunakan program seperti AutoIt, yang akan membolehkan anda melakukan perkara yang melampau seperti menjalankan fail skrip apabila program tertentu dibuka atau apabila tingkap dimaksimumkan atau diminimumkan.

    Saya tidak mempunyai masa untuk masuk ke semua yang ada di dalam siaran ini, tetapi bernasib baik Microsoft mempunyai ciri terbina yang dipanggil Task Scheduler yang membolehkan anda melakukan beberapa perkara yang rumit dengan skrip dengan mudah.

    Pos terdahulu saya pergi mendalam tentang cara menjadualkan fail skrip untuk dijalankan apabila peristiwa tertentu berlaku di Windows. Sekiranya anda menghadapi sebarang masalah untuk mendapatkan skrip anda, jangan lepaskan komen dan saya akan cuba membantu. Nikmati!