autocad2008简体中文完整版安装脚本（楼下那个用不了的)

ftmm123

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Outfile=autocad2002.exe
#PRE_UseUpx=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****

const $a="先退出360安全卫士和360杀毒或者qq管家,再点击确定，在安装过程中，请别动鼠标和键盘!"

$var=MsgBox(1+48+256, "2008自动安装包", $a, 2500)

dim $var
select
 case $var=2
 exit
EndSelect

BlockInput(0)

Run("d:\autocad2008x32\setup.exe")



WinWaitActive("AutoCAD 2008","查看自述文件(&R)")
WinActive("AutoCAD 2008","查看自述文件(&R)")
Sleep(1000)
Send("{enter}")



WinWaitActive("AutoCAD 2008","下一步(&N) >")
WinActive("AutoCAD 2008","下一步(&N) >")
Sleep(1000)
Send("!N")



WinWaitActive("AutoCAD 2008","AutoCAD 2008")
WinActive("AutoCAD 2008","AutoCAD 2008")
Sleep(2000)
Send("!N")

WinWaitActive("AutoCAD 2008","China")
WinActive("AutoCAD 2008","China")
ControlCommand("AutoCAD 2008","China","[CLASS:Button; INSTANCE:1]","check")
Sleep(2000)
Send("!N")

WinWaitActive("AutoCAD 2008","*名字(&F):")
WinActive("AutoCAD 2008","*名字(&F):")
ControlFocus("AutoCAD 2008","*名字(&F):","[CLASS:Edit; INSTANCE:1]")
Sleep(1000)
ControlSetText("AutoCAD 2008","*名字(&F):","[CLASS:Edit; INSTANCE:1]","hh")
Sleep(1000)
ControlFocus("AutoCAD 2008","*名字(&F):","[CLASS:Edit; INSTANCE:2]")
Sleep(1000)
ControlSetText("AutoCAD 2008","*名字(&F):","[CLASS:Edit; INSTANCE:2]","zg")
ControlFocus("AutoCAD 2008","*名字(&F):","[CLASS:Edit; INSTANCE:3]")
Sleep(1000)
ControlSetText("AutoCAD 2008","*名字(&F):","[CLASS:Edit; INSTANCE:3]","ch")
Sleep(1000)
Send("!N")


WinWaitActive("AutoCAD 2008","选择要配置的产品(&S):")
WinActive("AutoCAD 2008","选择要配置的产品(&S):")
Sleep(1000)
Send("!N")


$text4="是(&Y)"
$title="AutoCAD 2008"
While 1
        If WinExists($title,$text4) Then 
        Send("!y")
   ExitLoop
        EndIf
WEnd

WinWaitActive("AutoCAD 2008","完成(&F)")
WinActive("AutoCAD 2008","完成(&F)")
Sleep(1000)
Send("!F")
Sleep(2000)

Run("C:\Program Files\AutoCAD 2008\acad.exe")
Sleep(10000)

Run("C:\Program Files\AutoCAD 2008\keygen.exe")

ftmm123

keygen那个自动注册怎么弄的？

autoit的窗口信息查看器看不到东西？