7Jul
Konuşma yeteneğine sahip akıllı makineler genellikle fütüristik bilimkurgu filmlerinin parçalarıdır, ancak herhangi bir bilgisayarı konuşkan bir Cathy'ye dönüştürebilirsiniz.İnsanlar gibi bizimle etkileşime girebilecekleri bilgisayarlarla henüz aşamadaysa da, Windows çalıştıran herhangi bir bilgisayarın bizimle konuşmasını sağlamak için yazabileceğiniz birkaç araç ve basit komut dosyası var.
Küçük Bir( Görsel) Temel Tarih
1988'de VBScript'in ilk yinelemesi( Visual Basic Scripting Edition) ortaya çıktı ve halen bugünün ilkelerinin bir örneği idi. Yıllar geçtikçe, Microsoft için kullanımı kolay ve hafif bir betik dili gereksinimi arttı.Bu nedenle firma üzerinde çalışmaya devam etmiş ve nihayet 1996'da kamuoyuna açıklamıştır.
Microsoft işletim sistemlerinde dosyaları yaratmak, okumak, güncellemek ve silmek için COM( Bileşen Nesne Modeli) kullanan basit bir betik. Windows 98 piyasaya çıktığından beri her bilgisayar ile birlikte kurulmuştur. VBScript ana bilgisayar ortamının Microsoft Komut Dosyası Denetimi kullanan programlar içine yerleştirilebilmesi gerçeği nedeniyle çok yönlüdür. Internet Information Services, Windows Script Host ve Internet Explorer ile genellikle kullanılır.
Ancak, teknik jibber jabber için yeterlidir. Aşağıya inelim ve bilgisayarınızı nasıl konuşturacağınızı öğrenelim!
Tek Kullanımlık VBScript
Görsel bir temel komut dosyası oluşturmak çok kolaydır ve özel programlar gerektirmez. Daha ileri düzey betikler yazmak için kullanabileceğiniz programlar olsa da, çoğu programcı ve senaryo yazmaktan kaçınan insanlar sadece Microsoft'un Not Defteri'ni kullanıyorlar.
Süreci Not Defteri'ni açarak başlatalım. Not Defteri'ni açtıktan sonra yapmanız gereken tek şey, aşağıdaki kodu yazmanız ya da basitçe kopyalayıp not defteri penceresine yapıştırmanızdır. Senaryonun bilgisayarın söylediği şeyi değiştirmek için, "Yırtıcılar yeryüzünü miras bırakacak" bölümünü duymak istediklerinizle değiştirmeniz yeterlidir.
Dinlemek istediğin metni başarılı bir şekilde girdikten sonra "Dosya" yı tıkla ve "Kaydet" i tıkla( "Kaydet") ve "Kaydet" i tıklaOlarak. .. "seçeneği.
Görüntüyü kaydetmek istediğiniz yeri bulun. Bu örnek için, İndirilenler dizininde boş bir klasöre kaydettiriyorum. Yapmanız gereken en önemli şey. Vbs ile biten bir ad vermek. Bu, bilgisayara düz metin dosyası kaydetmediğinizi söyleyecektir;Bunun yerine, bir VBScript kaydediyorsunuz. Bu örneği "Geek test.vbs" olarak aşağıda gösterildiği şekilde adlandıracağız.
Şimdi devam edin ve not defterini kapatın ve VBScript'i kaydettiğiniz klasöre gidin. Simgenin normal TXT simgesi olmadığını farkedeceksiniz. Beyaz zemin üzerine küçük, mavi bir kaydırmadır. Tek kullanımlık komut dosyasını başlatmak ve metninizi dinlemek için bu ikona çift tıklayın. Tebrikler, ilk senaryonuzu yeni hazırladınız.
Şimdi, asmak için, duymak istediğiniz herhangi bir metni içeren birkaç daha fazla komut dosyası oluşturmayı deneyin. Alternatif olarak, VBScript üzerinde sağ tıklayıp "Birlikte. .." seçeneğini seçip, aynı dosyadaki metni düzenlemek için not defterini de seçebilirsiniz.
Metinden Konuşma Komut Dosyasına
Artık tek bir kullanım komut dosyasını nasıl yazacağınızı bildiğiniz ve muhtemelen birkaç kez birlikte oynadığınızdan biraz sıkılmış olabilirsiniz. Bu yüzden bir adım öne geçeceğiz.
Öğreneceğimiz sonraki şey, tek kullanımlık betikten biraz daha gelişmiş bir betik oluşturmaktır. Bu, metin yazıp bilgisayarınız tarafından size geri okunmasını sağlayacak bir iletişim kutusu oluşturacaktır.
Not defterinizi tekrar açarak ve bu komut dosyasına girerek veya kopyalayıp not defteri penceresine yapıştırarak başlayın.
Dim mesajı, sapi mesaj = InputBox( "Ben senin için konuşurum", "Senin için konuşurum") Set sapi = CreateObject( "sapi.spvoice") sapi. Speak mesajıKod girildikten sonra, dosyayı daha önce gösterildiği gibi "Text to Speech.vbs" olarak kaydedin ve beti tamamlayın. Kaydedildikten sonra bulunduğunuz yere gidin ve üzerine çift tıklayın. Pencerenin "Sizin için konuşuyorum" adı verildiğini göreceksiniz ve seslendirilecek metni girme talebi "Geekiness" derim "İstediğiniz her şeyi söylemek için bunları her zaman değiştirebilirsiniz.
Şimdilik, "Geeks yeryüzünü miras alacak" yazmamıza izin verin, ardından senaryoyu çalıştırmak ve metninizi yüksek sesle duymak için "Tamam" düğmesine basın.
Selamlar VBScript Komut Dosyası
Bu oldukça eğlenceli hale geliyor, ancak bilgisayarınız hala sizinle pek bir şey paylaşmıyor.Şimdi günün saatini ve günün saati için uygun yanıtı hesaba alan başka bir basit betik deneyeceğiz. Bu senaryo bilgisayarınızın zamanını okur ve buna dayalı olarak sizi belirli bir şekilde selamlıyorum.
Not defterinizi açıp bu kısa betiği yerleştirerek başlayın. Günün selamlarını taşıyan bölümü, duymak istediğiniz herhangi bir cümleyle değiştirebilir ve Geekmeister'i kendi adınızla değiştirebilirsiniz.
Set Sapi = Wscript. CreateObject( "SAPI.SpVoice") Sönük str, saat( zaman) & lt;12 then Sapi.speak "Good Morning Geekmeister" başka zaman saat( zaman) & gt;12 sonra saat( zaman) & gt;16 Then Sapi.speak "İyi akşamlar Geekmeister" Başka Sapi.speak "İyi akşamlar Geekmeister" Eğer biterse eğer biterseŞimdi metin belgesini bir VBS dosyası olarak kaydedebilirsiniz. Bunu yaptıktan sonra, kaydedildiği klasöre gidin ve üzerine çift tıklayın. Bilgisayarınızın gösterdiği zamana bağlı olarak, ya "Günaydın, iyi akşamlar ya da iyi geceler Geekmeister" der.
Senaryo, saat 12'den önce bir şey okursa, sabah, 12'den sonra her şey öğleden sonra;Bununla birlikte, saat 12: 00'den( 4: 00) geçtiği sürece, 12'den sonra bile akşam geçeceğini bildiren bir madde vardır.
Saat Saati VBScript Script
Eğer biraz daha gelişmiş olmak ve zaman kazanmak isterseniz, yeni bir not defteri oluşturabilir ve bu betiği girebilirsiniz.
Komut dosyası karmaşık görünebilir, ancak aslında bilgisayarınıza ne söyleyeceğinizi ve bilgisayar saatinizde gösterilen zamana bağlı olarak bunu nasıl söyleyeceğinizi söyler.İstediğiniz zaman için "Geçerli süre" kelimesini her zaman giriş ile değiştirebilirsiniz.
Set Sapi = Wscript. CreateObject( "SAPI.SpVoice") Sapi.speak "Geçerli saat" ise saat( zaman) & gt;12 then Sapi.speak Saat( saat) -12 Başka zaman( saat) = 0 ise Sapi.speak "12" Başka Sapi.speak saat( saat) eğer biterse eğer dakika( zaman) & lt;10 then Sapi.speak "o" dakika ise( zaman) & lt;1 then Sapi.speak "saat" else Sapi.speak dakika( saat) bitiş Başka Sapi.speak dakika( saat) biterse saat( zaman) & gt;12 sonra Sapi.speak "P.M."aksi durumda saat( zaman) = 0 ise o zaman dakika( zaman) = 0 ise Sapi.speak "Gece yarısı" başka Sapi.speak "A.M"eğer saat( zaman) = 12 ise o zaman dakika( zaman) = 0 ise o zaman Sapi.speak "Noon" else Sapi.speak "P.M."eğer biterse, Sapi.speak "A.M"end if end if end ifŞimdi, dosyayı önceki adımlarda yaptığınız gibi VBScript olarak kaydetmeniz ve ardından o klasöre gitmeniz yeterlidir. Her şey yolunda giderse, üzerine çift tıklayın ve bilgisayarın saati söyleyeceğini duymalısınız.
Başlangıç Tebrik
Artık, bilgisayarınızı nasıl selamlaştıracağınızı bildiğiniz ve size zaman tanıyorsa, bilgisayar bunu bilgisayarınızı açtığınızda yaparsa ne kadar soğuk olur diyeceksiniz.İki betiği birleştirip doğru yere koyarsanız yapmak gerçekten çok kolay.
Microsoft not defterini açıp bu kodu pencereye kopyalayarak başlayın. Bu, yalnızca sizin için birleştirilen her iki kodun bir kopyasıdır. Tebrik kutusunu "Ne var dostum, Merhaba Usta, selamlarımın yüce saygınlığı" ya da bilgisayarınızın size söylemesini istediğiniz herhangi bir şeyle değiştirebileceğinizi unutmayın.
Set Sapi = Wscript. CreateObject( "SAPI.SpVoice") Dim str if hour( time) & lt;12 then Sapi.speak "Good Morning Geekmeister" başka zaman saat( zaman) & gt;12 sonra saat( zaman) & gt;16 then Sapi.speak "İyi geceler Geekmeister" else Sapi.speak "İyi akşamlar Geekmeister" eğer biterse eğer biterse Sapi.speak "Şu an" saat( saat) ise & gt;12 then Sapi.speak Saat( saat) -12 Başka zaman( saat) = 0 ise Sapi.speak "12" Başka Sapi.speak saat( saat) eğer biterse eğer dakika( zaman) & lt;10 then Sapi.speak "o" dakika ise( zaman) & lt;1 then Sapi.speak "saat" else Sapi.speak dakika( saat) bitiş Başka Sapi.speak dakika( saat) biterse saat( zaman) & gt;12 sonra Sapi.speak "P.M."aksi durumda saat( zaman) = 0 ise o zaman dakika( zaman) = 0 ise Sapi.speak "Gece yarısı" başka Sapi.speak "A.M"eğer saat( zaman) = 12 ise o zaman dakika( zaman) = 0 ise o zaman Sapi.speak "Noon" else Sapi.speak "P.M."eğer biterse, Sapi.speak "A.M"end if end if end ifBu tüm kodu tam olarak olduğu gibi kopyaladıktan sonra, not defterine gidin ve "Startup greeting.vbs" olarak kaydedin.İstediğiniz herhangi bir şey de çağrılabilir, ancak bu gösterinin amaçları için hepimiz aynı sayfada olursak daha kolaysızdır. Kaydedildiğine göre, sizi selamlamak ve zamanını söylemek için VBScript dosyasına çift tıklayabilirsiniz.
Demir Adam'dan Jarvis gibi bilgisayarınızı açtığınızda oynamasını isterseniz, dosyayı seçin ve farenizle "Başlat düğmesine" aşağıya sürükleyin, farenizi bırakmadan "Tüm Programlar" üzerine getirin o zaman"Başlangıç" klasörünü bulun ve farenizin düğmesini bırakın.
Bu, sizin için işe yaramayan bir sebepten dolayı, başlangıç klasörüne manuel olarak da gidebilirsiniz.Önce "Startup greeting.vbs" dosyasının kaydedildiği klasöre gidip kopyalayacaksınız.
Bir sonraki adım herhangi bir Explorer penceresinin üstüne aşağıdaki yolu yazıp "Enter" a basmaktır. USERNAME'i bilgisayar hesabınız için kullandığınız adla değiştirmeniz yeterlidir.
C: \ Users \ Kullanıcı Adı \ AppData \ Dolaşım \ Microsoft \
Windows \ Başlat Menüsü \ Programlar \ Başlangıç
Başlangıç klasöründeyken sadece vbs dosyasını yapıştırmanız yeterlidir.Şimdi, bir dahaki sefer bilgisayarınızı başlatıp giriş yaparsanız, otomatik olarak selamlıyorum ve size ne zaman olduğunu bildirmelidir.
Herhangi bir komut dosyasını oluşturmakta herhangi bir sıkıntı yaşadıysanız, bu bağlantıları kullanarak ücretsiz olarak karşıdan yükleyebilirsiniz.
- Geek Testi
- Tebrik
- Başlangıç Tebrik
- Telling Time
- Yazıdan Konuşma'ya