PplWare Mobile

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

                                    
                                

Este artigo tem mais de um ano


Autor: Pedro Simões


  1. Márcio Soares says:

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

  2. André do Carmo says:

    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

    • JC says:

      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

    • bruno martins says:

      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..

    • Mr. says:

      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.

      • Maicon says:

        1- Onde eu devo salvar o Ficheiro?
        2- A Pasta Arranque deve ser criada por mim mesmo, ou existe algum programa que devo baixar? Não consigo encontrar nenhuma pasta ou programa com este nome.
        3- Copiei e colei a determinada localização no Menu Iniciar e mudei o nome do Utilizador, porem meu PC diz que não pode encontrar.

        Como devo fazer?

        • Shirley says:

          C:\Documents and Settings\All Users\Menu Iniciar\Programas\Inicializar – Então você cria uma nova pasta e cola o arquivo da saudação (que criou no Bloco de Notas). Vou logo lhe informando que a voz e a maneira como ele fala, é horrível. Não gostei. Espero ter ajudado.

    • N S says:

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

    • Toni Almeida says:

      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.

      • Toni Almeida says:

        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. euqrop says:

    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

    • JC says:

      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”);

      • euqrop says:

        eu tentei e dá uma erro ….

        Object doensn’t support this property or method: ‘select voice’

      • helder says:

        1º – Como exactamente fazer isso, ou seja, onde no script meto isso e qual a sintax correcta?

        2º – Como verificar quais as “vozes” que estão instaladas e como instalar mais se necessário?

    • Rui Costa says:

      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,

    • Pedro A. says:

      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. António Mendes says:

    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. Dust Bunny says:

    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. N S says:

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

  9. PaceMan says:

    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… 😀

  10. Igas says:

    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. José Pires says:

    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. Tono says:

    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. José Pires says:

    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.

      • miguel71 says:

        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.

      • José Pires says:

        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. kendimen says:

    Vou tentar com:
    “Goooooood morning Vietnam” 😀

  15. chicosoft says:

    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 😉

    • Viajante says:

      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. Diego Castro says:

    Só vejo uma utilidade para isto….

    Insultar “amigos”

    🙂

    Quantas partidas eu ja estou a ver

    🙂

    • PorquinhoBranco says:

      LOL, nem pensei noutra utilidade pra isto senao essa! Em meia hora ja pus três a olhar pro ecran tipo burro a olhar pro palacio!!
      Excelente pplware! 😀

  18. Tony Silva says:

    Tenho de arranjar a voz da Jessica Alba.

  19. Pedro Francisco says:

    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)

    • Toni Almeida says:

      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. Jorge says:

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

  21. Hugo Cura says:

    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? 😀

  22. Heartless says:

    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. Zézé Camarinha says:

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

    Fico logo pronto para mais um dia 🙂

  24. Ricardo Correia says:

    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. miguel71 says:

    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. Ricardo says:

    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. Marcos Santos says:

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

  28. José Fonseca says:

    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 😀

  29. Diman says:

    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. Diman says:

    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. Hugo Pires says:

    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. Mauro says:

    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á !

    • Manuel Rocha says:

      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

    • Manuel Rocha says:

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

  33. avlisrotiv says:

    Parece divertido… Obrigado! 😉

  34. o_unico says:

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

  35. Hello! says:

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

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

    Saudações.

  36. Jessica C. says:

    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. Jessica C. says:

    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. jomjo says:

    @ 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. jomjo says:

    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. Okapi says:

    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. black_strawberry says:

    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. olinda barreiros says:

    e para macbooks? existe algo? 😀

  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. Miguel says:

    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. Nataniel Manjolo says:

    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

  48. Inaldo Junior says:

    Dim speaks, speech
    speaks=”Hello Inaldo Junior, Good morning and welcome back to your computer”
    Set speech=CreateObject(“sapi.spvoice”)
    speech.Speak speaks

  49. Fernando Ferrfeira says:

    Boa noite.
    Tentei. mas o ficheiro nunca fica em vbs, fica sempre como texto…Que falta aqui?
    Fico grato se me informarem.

  50. Fernando Ferrfeira says:

    Tentei mas não deu…o ficheiro fica sdempre como texto, e até a aparencia da capa não muda…que estará errado?
    Agradeço se me souberem explicar melhor…sou principiante.Obrigado,

  51. Yuki says:

    Sei que no windows 7 funciona, eu usava isso, mas hj em dia uso o windows 10. e simplesmente da erro
    linha:1
    caract:1
    erro: caracter invalido

Deixe um comentário

O seu endereço de email não será publicado.

You may use these HTML tags and attributes: <a href="" title="" rel=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

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. A administração deste site reserva-se, desde já, no 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.