Script simples para escrever tabuada

Tabuada.au3

#include <MsgBoxConstants.au3>
AutoMac()

Func AutoMac()

	MsgBox($MB_SYSTEMMODAL, "Automação", "Selecione o edit onde receberá o preenchimento automático", 10)
	For $var = 1 to 2
		Send("Tabuada de multiplicação de " & $var)
		Send("{Enter}")
		For $var2 = 1 to 10
			Send(" " & $var & " * ")
			If $var2 < 10 Then
				Send(" ")
			EndIf
			Send($var2 & " = ")
			If StringLen($var * $var2) <= 1 Then
				Send(" ")
			EndIf
			Send($var * $var2)
			Send ("{ENTER}")
		Next
		Send ("{ENTER}")
    Next
	MsgBox($MB_SYSTEMMODAL, "Automação", "Fim!", 10)
EndFunc