O seu PC fala consigo no arranque? O meu fala!

Os nossos computadores tendem cada vez mais a deixarem de ser simples ferramentas e passarem a ser partes integrantes e essenciais do nosso dia-a-dia. A relação que temos com eles mudou e deixámos de os ver como simples repositórios de dados com capacidade de processamento. Tendemos a confiar neles todos os nossos dados importantes e até começamos a deixar que tomem decisões por nós.

Já passaram alguns anos desde que lhes começou a ser dada a capacidade de interagir connosco e de nos passar informação de formas mais complexas que os simples textos.

A dica que vos vamos apresentar permitirá que a relação que têm com os vossos PC’s deixe de ser tão fria e irá permitir que se estreitem laços entre homem e máquina. Não vamos dar inteligência ou “outra” vida aos vossos computadores, mas vamos colocá-lo a falar convosco no arranque.


Recorrendo a um pequeno pedaço de código e à capacidade que o Windows tem de converter texto em voz, vamos explicar a forma de terem um simpático “Bom dia” no momento do arranque do vosso PC.

Concordarão que não é uma dica que irá revolucionar a forma como trabalham ou interagem com o computador, mas irá permitir-vos aproximarem-se dele e até quem sabe, arrancar-vos um “bom dia para ti também”!

O processo, como indicámos antes é extremamente simples e não requer grandes conhecimentos ou capacidades. Qualquer pessoa com uma formação mínima consegue implementá-la!

Comecem por colocar o texto apresentado abaixo num qualquer editor de texto, Notepad ou Notepad++, por exemplo, e gravem-no com o nome que quiserem e atribuam-lhe a extensão vbs. Podem por exemplo gravar o ficheiro com o nome saudacao.vbs.

O texto a colocar no ficheiro é o seguinte:

Dim speaks, speech
speaks="Ola Pedro, bom dia e bem vindo de volta ao teu computador"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks

Podem alterar o texto que está na variável speaks para o que bem entenderem. Podem inclusive alterá-lo para que tenha em consideração a hora e o dia da semana e em função disso terem uma mensagem diferente. A vossa imaginação é o limite.

Depois de criarem o ficheiro com o código indicado é hora de o colocarem no arranque. Podem antes, se pretenderem, testar essa saudação. Basta que façam duplo clique sobre o ficheiro criado.

Podem alterar a voz usada para uma mais do vosso agrado. Essa alteração é feita na zona referente às definições de conversão de texto de voz, no painel de controlo,

Terminada a afinação da saudação é hora de a colocarem no arranque do vosso Windows. Para isso devem arrastar ou copiar o ficheiro criado para dentro da pasta Arranque, do Menu Iniciar.

A forma mais simples de o fazerem é usarem o explorador de ficheiros do Windows para navegarem até à pasta pretendida. Abaixo deixamos a localização desta nos três sistemas operativos suportados. Naturalmente que devem substituir <utilizador> pelo nome do utilizador que usam para entrarem na máquina.

Windows Vista/ 7

C:\Users\<utilizador>\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

Windows XP

C:\Documents and Settings\<utilizador>\Start Menu\ ou C:\Documents and Settings\All Users\Start Menu\Programs\Startup

Podem, como indicado, arrastar ou copiar o ficheiro para dentro dessa pasta. Muito provavelmente existiram dentro dessa pasta outros ficheiros, mas não se devem preocupar com eles. Limitem-se a adicionar o vosso.

Com este último passo fica terminado o processo de dar voz ao arranque do vosso PC. As possibilidades de texto são ilimitadas e a criação de condições e respectivas mensagens fica ao vosso critério. Basta puxarem um pouco pela vossa imaginação. Partilhem com os restantes leitores todas as alterações e ideias que tiverem para que todos possam aprender e ter as suas saudações mais personalizadas.

Esperamos com esta dica ter tornado a relação com o vosso PC um pouco mais estreita e não se admirem se começarem a falar com ele sempre que o ligarem. Mesmo que seja a uma máquina, é feio não responder a um simples “Bom dia!”.

  
     Pin It  

Arquivado na categoria: Truques & Dicas, Windows 7, Windows Vista, Windows XP


94 Comentários

  1. O meu PC acabou de me dar um rasgado BOM DIA, e eu que o tratava tão mal por vezes…. Hehehe

  2. Olá,

    como é que faço isto:
    “Podem alterar o texto que está na variável speaks para o que bem entenderem. Podem inclusive alterá-lo para que tenha em consideração a hora e o dia da semana e em função disso terem uma mensagem diferente. A vossa imaginação é o limite.”

    Não percebo nada de programação. Alguém tem a amabilidade de colocar um exemplo pratico que possa editar e personalizar.

    Obrigado,
    Abraço

    • Variavel Speaks, contem uma string de texto. Esta string pode ser substituida por qualquer outro texto e variaveis.

      Por exemplo:

      Original:
      speaks=”Ola Pedro, bom dia e bem vindo de volta ao teu computador”

      Alterado:
      speaks=”Bolas, hoje esta frio”

      Ou por exemplo

      Dim speaks2
      speaks2=”frio”
      speaks=”Bolas, hoje esta”+speaks2

      Mais alguma duvida, apita.

      Abraço

    • no texto, na linha onde está escrito (speaks-” hello pedro, welcome back to your computer”), a fraze que esta entre aspas é aquela que o computador vai “falar”.. ou seja se queres mudar a fraze que ele diz, é escrevers outra coisa dentro dessas aspas..

    • Dim speaks, speech
      speaks=”Ola Pedro, bom dia e bem vindo de volta ao teu computador”
      Set speech=CreateObject(“sapi.spvoice”)
      speech.Speak speaks

      a variavel speak é onde ta a dzr Ola Pedro, bom dia e bem vindo de volta ao teu computador alteras deixando sempre “” pk o que ai escreveres é o ke ele vai falar!

      espero ke te tenha ajudado.

    • É fácil, basta alterares a frase que fica dentro das aspas
      Exemplo:
      “Hello Pedro” –> para –> “Hello André”

    • Tanto comentário e ninguém responde à pergunta:
      “Podem inclusive altera-lo para que tenha em consideração a hora e o dia da semana”

      Portanto André, para que o teu computador te diga que dia é hoje, tens várias opções diferentes, uma delas é usares a função DatePart, que te pode dar a data aos “bocados” …

      Podes ainda adicionar algumas instruções que te dão as horas:
      DateHoras = DatePart(“h”, Now)
      DateMinutos = DatePart(“n”, Now)
      DateSegundos = DatePart(“s”, Now)
      e assim consegues brincar com os dados, separadamente.

      Existe ainda outro metodo que simplifica as coisas, mas que nao te dá a possibilidade de brincares com as varias variáveis.

      Nota:
      DateString = FormatDateTime(Date(), 0)
      Retorno: October, 13, 2010
      DateString = FormatDateTime(Date(), 1)
      Retorno: quarta-feira, 13 Outubro 2010

      Deste modo ele até já te diz a data completa, e o código fica bem mais simplificado.

      • Que estranho, no comentário original que fiz tinha exemplos para as duas situações, não sei porque não apareceram … Aqui vão os exemplos:

        Situação 1:

        Dim speaks, speech
        DateAno = DatePart(“yyyy”, Now)
        DateMes = DatePart(“m”, Now)
        DateDia = DatePart(“d”, Now)
        speaks=”Hello Toni Almeida, Today is ” & DateDia & ” ” & DateMes & ” ” & DateAno & ” and it is a beatiful day!”

        Set speech=CreateObject(“sapi.spvoice”)
        speech.Speak speaks

        Situação 2:

        Dim speaks, speech
        DateString = FormatDateTime(Date(), 1)
        speaks=”Hello Toni, Today is ” & DateString & ” and it is a beatiful day!”

        Set speech=CreateObject(“sapi.spvoice”)
        speech.Speak speaks

  3. Já testei e funciona melhor em inglês … mas mesmo assim é giro.

    Alguém sabe onde posso arranjar mais informação sobre estes comandos?
    por exemplo mudar a voz, volume, etc ?

    ( dão nos uma mão queremos logo um braço) :)

    Abraço continuem com o bom trabalho

    • Existe a possibilidade de mudar a voz que fala, usando a função SelectVoice, como por exemplo:

      speech.SelectVoice(“Microsoft Sam”);
      speech.SelectVoice(“Microsoft Anna”);
      speech.SelectVoice(“Microsoft Lili”);

    • Esta é a linha em que podes alterar o texto:

      speaks = “Ola Pedro, bom dia e bem vindo de volta ao teu computador”

      A frase, está atribuída a uma variável “speaks”, e podes altera-la escrevendo o que quiseres entre aspas;

      speaks = “Primeiro teste”

      Apenas outro exemplo.

      Cumprimentos,

    • Bom, não concordo… Mas se trocares o “melhor” para “só” aí sim, concordo. A frase em português não se percebe nada.

  4. Aconselho mesmo a utilizarem em Inglês, porque em Português ela vai tentar ao máximo dizer em Inglês e fica rápido demais!
    No meu caso, coloquei: “Hello Ricardo! Welcome back to your computer”

    Bom trabalho, Pplware ;)

  5. Todo o texto que está em speaks=”…”, podes substituir pelo o que quiseres, desde que esteja dentro de aspas.

    Imaginando que queres um simples “Olá”, fazes: speaks=”Olá”.

    O resto, mantém-se como está.

  6. Aqui a torradeira que se mantenha é caladinha senão voa pela janela :)

  7. Pessoal do Pplware, já postei no meu deviantart e dei créditos para vocês!

    Vejam aqui:
    http://rickypereira1992.deviantart.com/art/Welcome-voice-on-Startup-182509011

  8. Outra ideia é a criaçao de n frases e sempre que iniciar é selecionada uma aleatóriamente.

  9. Eu já me deparo comigo a falar com a maquina, já a trato como se fosse um bom amigo, com esta dica ainda me vou aproximar mais dele… :D

  10. Excelente dica!

    Alguém me sabe dizer onde colocar esse ficheiro para quando encerrar o pc ele “falar”?

    Estava aqui a pensar em utilizar isso para lembrar os utilizadores para desligarem os monitores…

  11. Bom pessoal do PPL.!

    Já agora alguém pode dar uma explicação mais explicita de como se faz, já que só explicam até à parte de colocar o ficheiro no arranque, já tentei fazer e não funcionou.

    Tentem ser mais claros nos textos que colocam nos “posts”.

    Obrigado.

  12. O meu PC só tem uma voz (Microsoft Sam). Onde poderei arranjar mais motores de voz, já que a MS não os fornece? Grato desde já.

  13. Bom Dia pessoal do PPL.!

    Já agora alguém pode dar uma explicação mais explicita de como se faz, já que só explicam até à parte de colocar o ficheiro no arranque, já tentei fazer e não funcionou.

    Tentem ser mais claros nos textos que colocam nos “posts”.

    Obrigado.

    • Caro José,

      A única instrução que pode eventualmente estar em falta é necessidade de efectuares um reboot e ouvires a conversão para voz do texto que colocaste.

      Quanto ao facto de tentarmos ser mais claros nos textos penso que não deve ser muito possível. Neste caso concreto acho que apenas faltaria indicar como copiar o texto para dentro do ficheiro vbs ou como o gravar na ferramenta de edição de texto.

      Uma vez que o som aparece no arranque da máquina já testaste rebootar o Pc e ouvir?

      Tenta também, tal como descrito no texto, aplicar um duplo clique no ficheiro que criaste e vê se está tudo em ordem com ele. O resto dos passos são triviais e simples, mesmo para quem possa não ter experiência deste tipo de processos.

      • Pedro já fiz um comentário a pedir ajuda , mas sem resposta.
        A mim dá script bloqueado, acho que tem haver com o meu anti-virus, como faço para resolver isto!?
        Obrigado.

      • Ok, já voltei a experimentar e já funcionou.

        Talvez me tenha induzido em erro na altura que copiei o script ou em algum outro passo.

        Mas não precisavas de responder da maneira que respondes-te, foi uma ofensa principalmente esta parte final “O resto dos passos são triviais e simples, mesmo para quem possa não ter experiência deste tipo de processos”.

        As vezes as coisas não são tão simples como parecem, tudo depende da maneira que estão escritas e como são interpretadas por quem as lê.

        Obrigado pela ajuda e pelo post, e desculpa este comentário, isto é se te sentires ofendido.

        “Keep On…”

  14. Vou tentar com:
    “Goooooood morning Vietnam” :D

  15. Como altero as vozes é possivel?

    Existe alguma voz PT???

  16. Opá, secalhar é melhor começarem a fazer vídeos de passo a passo para cada post que fazem aqui. Vejo aqui com cada nabo, meu deus. Parecem iniciantes que pegaram agora no magalhães.

    O pessoal do Pplware está sempre em cima do acontecimento, esclarece tudo certinho e ainda põe cenas como esta que são curiosas e muito engraçadas. Eu li o post até à parte do código, peguei nele, abri o Notepad ++, colei lá o código, guardei como .vbs, colei o ficheiro na pasta autorun do meu Windows 7, terminei sessão, e quando iniciei, ouvi na boa.

    Agora não venham para aqui dizer que o pessoal do Pplware não é claro naquilo que diz e nos textos que escreve… Ler com atenção é que pode ajudar, a quem diz isso ;)

    • Penso que o problema geral é saber como adicionar mais opções no código e como nem todos conhecem a linguagem não sabem como fazer, por exemplo as tais opções de um texto diferente para horas diferentes ou outra qualquer possibilidade.
      Parece-me que é mais esse o problema.

      • Pois, mas isso já não é do que falei. Isso já vem depois de terem conseguido fazer o que o Pplware aqui demonstrou.

        Isso é outro assunto, um assunto que só depois de já se ter visto que isto funciona, é que se vai tentar solucionar.

        Apenas quis dizer que há gente que vem aqui e como deve ter pressa de fazer o que aqui é demonstrado, não tenta sequer entender o que foi MUITO BEM explicado. E depois partem para a estupidez, como aquele comentário: “Tentem ser mais claros nos textos que colocam nos “posts”.”

        Tenho dito.

  17. Só vejo uma utilidade para isto….

    Insultar “amigos”

    :)

    Quantas partidas eu ja estou a ver

    :)

  18. Tenho de arranjar a voz da Jessica Alba.

  19. Boas pessoal… eu nem mediano sou neste genero de programação… mas alguem me sabe dizer o que fiz errado.. eu coloquei assim.. para que disse-se a hora … mas dá erro..

    Dim speaks, speech
    speaks=”hello, welcome to the real world”
    Set speech=CreateObject(“sapi.spvoice”)
    speech.Speak speaks
    DateHoras = DatePart(“12:14”, Now)

    • Eu tenho a resposta a isso lá em cima …
      De qualquer modo, se queres ir pelo DatePart, usa:
      DateHoras = DatePart(“h”, Now)
      DateMinutos = DatePart(“n”, Now)

      Mas esqueceste-te de meter a voz a dizer essa frase …


      Dim speaks, speech
      speaks=”hello, welcome to the real world”
      Set speech=CreateObject(“sapi.spvoice”)
      speech.Speak speaks
      DateHoras = DatePart(“h”, Now)
      DateMinutos = DatePart(“n”, Now)
      speech.Speak DateHoras & DateMinutos

  20. É pena em português mal se perceber, no entanto em inglês fica muito porreiro

  21. Isto lembrou-me algo do género: assim que o pc arranque e depois de um “bom dia”, aparecer 1 pop-up a perguntar se queríamos ou não ouvir as principais notícias do dia, em áreas escolhidas previamente a gosto, e enquanto consultávamos a caixa de email ou whatever íamos ouvindo os RSS. Assim que passasse por algo interessante, premia-se uma hotkey e a notícia correspondente abria num novo separador no browser! Optimização de tempo!

    Programadores? :D

  22. Boa dica, obrigado pplware. E sim, o meu pc fala cmg ao iniciar, qualquer coisa como: Beep, beeep, beeeeeeeeeeeeeeeeeeeeeeeeep ;D
    Resto de bom dia a todos

  23. O meu diz: “Olá meu deus grego! quando me colocas a tua pen drive na ranhura?”

    Fico logo pronto para mais um dia :)

  24. Gostei muito da dica. Já está a funcionar no meu PC.

    Agora, como faço o mesmo no meu mac? É possível?

    Hugo Cura, definitivamente um programa que usaria. Força nisso!

    Cumprimentos,
    Ricardo Correia

  25. Eu fiz tudo como está descrito, só que me aparece Script bloqueado.
    Portanto o meu Anti-virus (Panda) bloquea.
    O que faço e como faço.!?
    Obrigado.

  26. Precisava mesmo era de uma aplicaçao para usar num portatil, para uma pessoa idosa, que nao consegue falar, e que permita construir algumas frases, para nao estar sempre a escrever.

  27. O meu não me fala, só me escreve -.-

  28. Eu cheguei a fazer isto com o meu IBM 286, usando som gravado a partir da porta paralela a um bit, com software desenvolvido em C e sem placa de som. Já lá vão uns 20 anitos. No entanto, agora parece ser mais fácil :-D

  29. Uma ajudinha pessoal! Eu fiz tudo como de ve ser, guardei o ficheiro .vbs, guardei no respectivo domnínio, e la esta a mostrar o meu ficheiro como ficheiro vbs e nao como ficheiro script! OU seja se carregar duas vezes ele abre-me o documente, o que tenho que fazer?!

  30. Ahh já esta pessoal, não liguem xDDD, já vi qual era o meu erro.! para quem tenho o mesmo problema que eu mencionei acima, antes de abrirem o ficheiro, carreguem em propriedades do ficheiro e depois carregam em alterar e escolhem o Microsoft Windows Based…

  31. Uma versão um bocadinho melhor:

    Dim speaks, speech, greeting, username

    username = CreateObject(“WScript.Network”).Username

    If Hour(Time) < 12 Then
    greeting = "Good morning"
    ElseIf Hour(Time) < 20 Then
    greeting = "Good afternoon"
    Else
    greeting = "Good evening"
    End If

    speaks = greeting + " " + username + "! Your system is ready!"
    Set speech = CreateObject("sapi.spvoice")
    speech.Speak speaks

  32. Isto para brincar é muito fixe.
    Alguém sabe de uma maneira de desligar o pc atravez deste codigo ?
    Já tentei o sheel, mas nao dá !

    • Viva Mauro,

      1 segundo de pesquisa no google:

      Dim objShell, strComputer, strInput
      Dim strShutdown

      Do
      strComputer = (InputBox(” ComputerName to shutdown”, “Computer Name”))
      If strComputer “” Then
      strInput = True
      End if
      Loop until strInput = True

      strShutdown = “shutdown -s -t 0 -f -m \\” & strComputer

      set objShell = CreateObject(“WScript.Shell”)

      objShell.Run strShutdown

      Wscript.Quit

      Não só te desliga o computador como consegues especificar qual computador queres desligar.

      Cumprimentos,
      Manuel Rocha

    • Agora só precisas de fundir os dois códigos.

  33. Parece divertido… Obrigado! ;)

  34. Para Linux há algo parecido? Ou terei que gravar um som a partir do microfone e substituir o som de início?

  35. Para quem quer mais vozes e stuff relacionado com speech, aqui vai:

    __http://www.microsoft.com/PRODUCTS/msagent/main.aspx__

    Saudações.

  36. Boas,

    Testei o código (muito obrigada Hugo Pires =D) e funciona que nem uma maravilha! Curiosidade: É possível alterar a voz (Anna) para uma voz portuguesa e/ou mais interessante, sabendo que o tenho o Windows 7 básico inglês?
    Agradeço desde já a ajuda!

  37. Ou melhor…Alguém pode ajudar-me com o código (se tal for possível) para chamar um ficheiro mp3 a minha escolha? ^^

  38. @ Jessica. Pelo painel de controlo, Som, Sons (ou botão direito no ambiente de trabalho, personalizar, sons), é possível atribuir um ficheiro de áudio a diversas acções. Iniciar sessão, terminar sessão e encerrar o windows, são exemplos.

    O que eu gostava mesmo era de arranjar uma voz portuguesa (apesar do meu windows estar em português a voz é de a um turista inglês a falar portinglês) par ao código.
    Ou então um ficheiro de som do Hall 9000. Ficaria engraçado.

  39. Ah! E apenas tenho a Anna no sistema.
    Podemos é mudar-lhe a velocidade de leitura, o volume e o timbre (pitch ou “tamanho”).
    Ver como:
    http://windows.microsoft.com/en-US/windows-vista/Change-the-Narrator-voice
    http://windows.microsoft.com/pt-PT/windows-vista/Change-the-Narrator-voice

  40. Pessoalmente não acho piada, prefiro receber os bons dias, do filho, da vizinha ;) , do colega de trabalho ou do anónimo, sinceramente não gosto de mensagens de voz vinda de maquinas mesmo daquelas dos atendedores automatico entro em parafuso. Já quando tinha experimentado uma sena destas faz já uns anitos, fez-me confusão. :)

  41. Boas pessoal, já tinha conhecimento desta faceta inclusive já tinha feito algumas aplicações em VB a fazerem uso da mesma. Mas se querem um coisa com uma qualidade extra percam tempo a chatear uma amiga vossa com uma voz doce para gravar algumas frases e depois não usem o sapi mas sim algo que arranque as ditas frases. Sem duvida muito melhor que o MS Sam a tentar falar em inglês aquilo que esta em português….

  42. Woops pff removam este comentário assim como o blogtastico do nick acima visto que já não estou integrado no mesmo. Agora estou no cidadecool …. 1001 desculpas pplware. Se pudessem trocar o blogtastico por cidadecool é que era mesmo 5*

    Obrigado pela atenção

  43. oi gente to tendo dificuldades eu uso o W7 Ultimate e ta dando erro do tipo: Script C:Users\Marques\Desktop\Saudacao.vbs
    Line: 2
    Char: 1
    Error: type mismatch: ‘[string: wellcome Marques"]‘
    code: 800A000D
    source: Microsoft VBscript runtime error.

    gostaria que alguem desse uma ajuda resolvendo isso para mim ficaria grato.

  44. e para macbooks? existe algo? :D

  45. Olá, sou brasileiro e eu fiz um projeto desse para a seguinte aplicação: O meu servidor (Windows Server 2008 x64) de hora em hora com o sistema de som integrado pelo meu escritorio anuncia a hora certa. recomendo usar os programas como sintetizadores de voz naturais para fazer o serviço. exemplo que eu uso é Voz Felipe Portugues Brasileiro da Loquendo e tem tambem a Raquel que é da ScarSoft esses programas sao pagos eu uso uma versao não oficial. apenas para testes.

    Quem quiser falar mais sobre esse projeto ideia de aplicações reais para voces e seus clientes me contatem. mais voces podem usar os sintetizadores naturais de voz que eu citei acima, para fazer o serviço com qualidade e lógico também tem voz naturais português portugal (europeu). um abraço

    meu msn totalninja@gmail.com

    Deus abençoe vocês meus amigos. parabéns pelo site
    David Tobias Nunes
    Consultor Técnico em TI

  46. Olá, alguém me pode ajudar eu não consigo por o meu computador a falar. fasso tudo e não dá nada.podem-me ajudar?

  47. I really enjoyed using programming tools because they are very simple, not complicated just nobody needed to take some readings and were already there, very cool and interesting …. danny

Deixe o seu comentário

Aviso: Todo e qualquer texto publicado na internet através deste sistema não reflete, necessariamente, a opinião deste site ou do(s) seu(s) autor(es). Os comentários publicados através deste sistema são de exclusiva e integral responsabilidade e autoria dos leitores que dele fizerem uso. O autor deste site reserva-se, desde já, o direito de excluir comentários e textos que julgar ofensivos, difamatórios, caluniosos, preconceituosos ou de alguma forma prejudiciais a terceiros. Textos de caráter promocional ou inseridos no sistema sem a devida identificação do seu autor (nome completo e endereço válido de email) também poderão ser excluídos.