 |
|
12
datocp Jul 25, 2022
其实这么多年我也没掌握封装系统,特别是那种适合不同硬件的封装系统,其实就是集成一个大而全的驱动。但并不是什么软件都可以绿色安装,用无盘系统折腾。像 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","")
|