[OFF TOPIC] VBScript - Função sendkey

564 views
Skip to first unread message

Bruno Gross

unread,
Dec 5, 2008, 9:10:29 AM12/5/08
to dotn...@googlegroups.com, list...@googlegroups.com
Galera desculpa trazer esse erro aqui pra vocês. Rodei a internet inteira e não consigo resolver meu problema

o seguinte script é como um javascript aos que não conehcem mas rodando em máquinas windows e IE. Ele envia comandos de teclado para a máquina do usuário pelo browser. No exemplo abaixo ele abre o notepad do usuário e deveria escrever a frase "Olá Mundo"

set WshShell = CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate "Notepad"
WScript.Sleep 200
WshShell.SendKeys "Olá  Mundo"
WScript.Sleep 2000

Acontece que caracteres acentuados não passam e acabam por imprimir "Ol  mundo", sem o "á"

tentei todas as soluções possíveis como envio de alt + 133 ( %{133} ) e nada.

Preciso que isso funcione. Se alguém ja passou por situações semelhantes, peço que me ajudem.

Aos que falarem q tal conteúdo não tem a ver com o tema da lista. Vb Script é como um javascript para máquinas windows e pode ser usado para Internet explorer como uma alternativa ao javascript.

--
Visite: www.UpaLele.com

att.
Bruno Gross
Analista de Sistemas
Celular: (21) 78545483 ID 83*39379
Skype: brugross

Esta mensagem, incluindo seus anexos, pode conter informações confidenciais e/ou privilegiadas. Se você não for a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Caso esta mensagem tenha sido recebida por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida elimine-a do seu sistema. Agradeço sua cooperação.

Bruno Gross

unread,
Dec 5, 2008, 9:31:26 AM12/5/08
to dotn...@googlegroups.com, list...@googlegroups.com
Consegui resolver o problema

como o sendkey reconhece a sequencia de caracteres do teclado, enviar "á" seria inútil visto q não existe a tecla a acentuada.

primeiramente devo mandar o acento e após o a

portanto

o correto seria no vbs abaixo

WshShell.SendKeys "Ol´a  Mundo"

coisa de doido não?

2008/12/5 Bruno Gross <bruno...@gmail.com>
Reply all
Reply to author
Forward
0 new messages