[54732197]

e9990638 не работает твой способ у меня...

Мой способ через перезагрузку: сначала ставим автокад, потом прописываем в runOnceEx путь к файлу activate.cmd и перезагружаемся.

Содержание activate.cmd:

FOR %%d IN (c d e f g h i j k l m n o p q r s t u v w x y z) DO IF EXIST %%d:\WIN51 SET CDROM=%%d:
start /D"%programfiles%\AutoCAD 2006" acad.exe
start /D"%CDROM%\software\autocad2006ru" activate2.exe
%CDROM%\software\autocad2006ru\activate1.exe
%CDROM%\software\autocad2006ru\keygen.exe
EXIT

Содержание activate1.exe (откомпилированный AUTOIT скрипт):

ProcessWait ( "acad.exe" )
WinActivate ( 'Активация AutoCAD 2006' )
WinWaitActive ( 'Активация AutoCAD 2006' )
ControlClick ( 'Активация AutoCAD 2006', '', 'Button1' )
WinWaitActive ( 'Регистрация' )
Send ( "{TAB}" )
Send ( "{DOWN}" )
Send ( "{TAB}" )
Send ( "{TAB}" )
Send ( "{TAB}" )
Send ( "{ENTER}" )
WinMove ( 'Регистрация', '', 109, 44 )
MouseClickDrag( "left", 475,235,625,245, 0 )
Send ( "^c" )
exit

Содержание activate2.exe (откомпилированный AUTOIT скрипт):

WinWait ( 'Autodesk AutoCAD 2006 keygen' )
WinActivate ( 'Autodesk AutoCAD 2006 keygen' )
WinWaitActive ( 'Autodesk AutoCAD 2006 keygen' )
Send ( "^v" )
Send ( "{TAB}" )
Send ( "^c" )
WinActivate ( 'Регистрация' )
WinWaitActive ( 'Регистрация' )
Send ( "{TAB}" )
Send ( "{DOWN}" )
Send ( "{TAB}" )
Send ( "^v" )
Send ( "{TAB}" )
Send ( "{TAB}" )
Send ( "{ENTER}" )
Send ( "{TAB}" )
Send ( "{TAB}" )
Send ( "{TAB}" )
Send ( "{ENTER}" )
Sleep ( 10000 )
Send ( "{TAB}" )
Send ( "{DOWN}" )
Send ( "{DOWN}" )
Send ( "{ENTER}" )
Sleep ( 10000 )
Send ( "!{F4}" )
WinActivate ( 'Autodesk AutoCAD 2006 keygen' )
WinWaitActive ( 'Autodesk AutoCAD 2006 keygen' )
Send ( "!{F4}" )
exit

P.S. скрипты написаны для официальной русской версии автокада 2006, в варианте "Autocad 2006 en + руссификация" возможны другие названия окон.