domingo, 19 de abril de 2009

AutoHotKey


Baixei o AutoHotKey quando procurava um programa para mapear o teclado como Joystick. Inicialmente parecia interessante poder jogar Games em flash a partir do joystick. O mais interessante é que o AutoHotKey acabou se mostrando um ótimo programa para criar scripts e assim automatizar qualquer programa no Windows.

Algumas coisas que não deram certo utilizando as macros do WinWord (Dimensionar imagens, por exemplo) foram facilmente conseguidas com o AutoHotKey.

Baixe o AutoHotKey (http://www.autohotkey.com/) e utilizando o AutoScriptWriter crie as rotinas. Depois coloque o arquivo no “Quick Launch” e pode executar as ações automaticamente.

Nota: colocar no Quick Launch = Arrastar para o Quick Launch (Barra Inferior) ou salvar em C:\Documents and Settings\Administrador(ou Usuário)\Dados de aplicativos\Microsoft\Internet Explorer\Quick Launch.

***

O Script abaixo; cria atalhos de teclado para utilizar o Dicionário WordWeb e o Aurério (Alt + Espaço ou Alt + V, respectivamente, com o cursor sobre a palavra que se quer consultar).


!Space::

IfWinExist, WordWeb thesaurus/dictionary,
{
Click 2 ;
Send ^c ;

IfWinNotActive, WordWeb thesaurus/dictionary, , WinActivate, WordWeb thesaurus/dictionary,
Send, {CTRLDOWN}v{CTRLUP}{ENTER}
}
else
{
Run, C:\Arquivos de programas\WordWeb\wweb32.exe

Click 2 ;
Send ^c ;

IfWinNotActive, WordWeb thesaurus/dictionary, , WinActivate, WordWeb thesaurus/dictionary,
Send, {CTRLDOWN}v{CTRLUP}{ENTER}
}
return


!v::

IfWinExist, WordWeb thesaurus/dictionary,
{
Click 2
Send,{CTRLDOWN}c{CTRLUP}{ENTER}

IfWinNotActive, Dicionário Aurélio - Século XXI, , WinActivate, Dicionário Aurélio - Século XXI,

Send, !d
Send, s

Send,{CTRLDOWN}v{CTRLUP}{ENTER}

}

else
{

Run, C:\Arquivos de programas\Aurélio - Século XXI\AeXXI.exe

Click 2 ;
Send ^c ;

IfWinNotActive, Dicionário Aurélio - Século XXI, , WinActivate, Dicionário Aurélio - Século XXI,

Send, !d
Send, s

Send,{CTRLDOWN}v{CTRLUP}{ENTER}

}

return
***
Exemplo de Script para Redimensionar Imagens no WinWord

#z::

MouseClick, left, 715, 424
MouseClick, left, 715, 424
Sleep, 100
WinWait, Formatar Imagem,
IfWinNotActive, Formatar Imagem, , WinActivate, Formatar Imagem,
WinWaitActive, Formatar Imagem,
MouseClick, left, 202, 41
Sleep, 100
MouseClick, left, 301, 130
Sleep, 100
MouseClick, left, 307, 122
MouseClick, left, 307, 122
Sleep, 100
MouseClick, left, 307, 122
MouseClick, left, 307, 122
Sleep, 100
MouseClick, left, 307, 122
Sleep, 100
Send, 8,5
MouseClick, left, 140, 124
Sleep, 100
MouseClick, left, 289, 380
Sleep, 100

MouseClick, left, 471, 404

return


Exemplo de Script para Compactar Imagens no WinWord


Send, {ALTDOWN}f{ALTUP}ii{ENTER}
WinWait, Formatar Imagem,
IfWinNotActive, Formatar Imagem, , WinActivate, Formatar Imagem,
WinWaitActive, Formatar Imagem,
Send, {ALTDOWN}m{ALTUP}
WinWait, Compactar Imagens,
IfWinNotActive, Compactar Imagens, , WinActivate, Compactar Imagens,
WinWaitActive, Compactar Imagens,
Send, {ALTDOWN}t{ALTUP}{ENTER}
WinWait, Formatar Imagem,
IfWinNotActive, Formatar Imagem, , WinActivate, Formatar Imagem,
WinWaitActive, Formatar Imagem,
MouseClick, left, 291, 367
Sleep, 100





Nenhum comentário:

Postar um comentário

AutoHotKey

Ir para página Inicial - Blog Automatizando Baixei o AutoHotKey quando procurava um programa para mapear o teclado como Joystick. Inici...