[266903582]

Str_ani_ck, попробуй так:

Код:

While 1
If WinExists("Не совместимость программы") Then f1()
If WinExists("Ошибка лицензии AutoCAD 2007") Then ExitLoop
WEnd
Winwait("Ошибка лицензии AutoCAD 2007")
WinActivate("Ошибка лицензии AutoCAD 2007")
;~ Дальше свое код

Func f1()
	WinActivate("Не совместимость программы")
	Send("{TAB 4}")
	Sleep(200)
	Send("{SPACE}")
	Sleep(200)
	Send("{TAB}")
	Sleep(200)
	Send("{RIGHT}")
	Sleep(200)
	Send("{ENTER}")
EndFunc

Хотя вместо send-ов надежнее будет controlsend использовать, но это уже на твое усмотрение...