datocp
2022-07-25 08:14:20 +08:00
其实这么多年我也没掌握封装系统，特别是那种适合不同硬件的封装系统，其实就是集成一个大而全的驱动。但并不是什么软件都可以绿色安装，用无盘系统折腾。像 autocad 之类的，当年教学用的机房基本是做好系统+网络 ghost+psexec 远程执行 autoit 进行点击注册。
;blockinput(1)
$hd1="AutoCAD 2006 产品激活"
$hd12="现在注册"
$hd21="Autodesk AutoCAD 2006 keygen by AGAIN"
$hd13="升级版本"
$hd14="新功能专题研习"
$hd15="AutoCAD 2006 许可证错误"
$hd16="移植自定义设置"
Run("C:\Program Files\AutoCAD 2006\acad.exe")
winwaitactive($hd16,"",8)
if winactive($hd16) Then
ControlClick($hd16,"","取消","left")
endif
winwait($hd15,"",8)
if winactive($hd15) Then
WinActivate($hd15)
WinWaitActive($hd15)
send("{Enter}")
endif
WinWaitActive($hd1)
;if winactive($hd2) Then
send("!n")
winwaitactive($hd12)
opt("mousecoordmode",0)
mousemove(283,193)
sleep(1500)
for $i=1 to 300 step 1
mousemove(283+$i,193,1)
$cursor=MouseGetCursor()
if 2=$cursor then ExitLoop
Next
MouseClickDrag("left",283,193,283+$i,207)
send("^c")
$key=ClipGet()
run("c:\keygen\autocad2006.exe")
WinWaitActive($hd21)
ControlSetText($hd21,"","Edit1",$key);将序列号输入到软件中
ControlClick($hd21,"","Commercial","left")
$key=controlgettext($hd21,"","Edit2");提取注册机上的序列号
ClipPut($key)
;sleep(100000)
winclose($hd21)
winactivate($hd12)
send("{tab}")
send("{DOWN}")
send("{tab 3}")
send("{Enter}")
winwaitactive($hd12)
send("{DOWN}")
send("{tab}")
send("^v")
send("{tab 2}")
send("{Enter}")
winwaitactive($hd12)
send("{tab 3}{Enter}")
winwaitclose($hd12,"",2)
send("{Enter}")
winwaitactive($hd13,"",5)
if winactive($hd13) then
ControlClick($hd13,"","否，我是新客户","left")
ControlClick($hd13,"","确定","left")
endif
winwaitclose($hd12)
send("{tab}{DOWN}{Down}{tab}{Enter}")
winwaitactive($hd14,"",2)
winclose($hd14)
MsgBox(4096,"关闭警告","等待 2 秒后将关闭 AutoCAD 2006 程序",2)
winkill("AutoCAD 2006","")