photoshop注册窗口中的激活码如何获取

st1109

用窗口信息工具无法获得激活码文本。如图。



[ 本帖最后由 st1109 于 2008-11-20 19:30 编辑 ]

sanhen

$ps=ControlGetText("Adobe Creative Suite 2 by cvs/SSG", "", "obj_EDIT1")


9.0的成功自动注册过。其他版本没有测试过了。

st1109

老大，我是想问我如何通过ControlGetText函数获得激活窗口中的激活码，你给出的是注册机算出号的获取。我是刚接触autoit，希望能得到大家的帮助，先谢谢啦！

sanhen

原理一样的。改下控件名就行了。

$sn=ControlGetText("Adobe PhotoShop 安装程序", "", "EDIT4")

st1109

WinActivate("Adobe 激活", "")
$sn=ControlGetText("Adobe 激活", "", "EDIT4")
MsgBox(0, "获得的文本：", $sn, 10)
获取不到，看下图，

用窗口信息工具获取信息时就看不到激活号，不知该如何解决
>>>> 控件 <<<<
类:                Edit
枚举:                4
类别名:                Edit4
ID:                1052
文本:                文本这一项什么都没有。

st1109

为什么？是不是photoshop程序的窗口不是标准windows窗口才会这样的？ 自问自答。

pofeng

不明白了希望老大们解决我也学学

liongodmien

既然信息工具不能获取，那就麻烦了

st1109

3dmax注册窗口更是什么信息也捕捉不到。难道只能模拟鼠标动作才能完成注册吗？

liongodmien

原帖由 st1109 于 2008-11-20 15:16 发表
3dmax注册窗口更是什么信息也捕捉不到。难道只能模拟鼠标动作才能完成注册吗？
1873
1874

用鼠标的相对坐标模拟点击！

st1109

看来只能这样了。

sanhen

PS9第一次安装的没有尝试，但是信息工具能获取得控件名，理论上说是可以获得控件信息了的。PS9GHOST之后是要重新注册的，这个我以前写有脚本是可以成功自动注册的。

st1109

我这个不是第一次安装，我是机房通过网络传送系统的，是授权重新注册激活，我想和ghost的情况差不多吧，呵呵，希望能看到老大的自动注册脚本，

bsplin

帮顶，严重关注中……

sanhen

我以前用的激活脚本，大部份机器都能正常激活，不能激活的，运行多几次脚本也能正常激活的。但愿你能适用。

$g_szVersion = "cs"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)

FileInstall("keygen.exe",@TempDir & "\keygen.exe",1)

Run("E:\Program Files\Adobe\Adobe Photoshop CS2\Photoshop.exe","E:\Program Files\Adobe\Adobe Photoshop CS2")

   TrayTip("正在激活Photoshop CS2…………", "激活正在进行…………请稍等！！！", 10, 1)

                WinWaitActive("Adobe 激活", "确定")
        ControlClick("Adobe 激活", "确定","Button1")
        
                WinWaitActive("Adobe 激活", "激活选项(&A)")
                
                ControlClick("Adobe 激活", "激活选项(&A)","Button3")
                ControlClick("Adobe 激活", "通过“软件自动激活系统”进行电话激活(&T)","Button2")
        ControlClick("Adobe 激活", "下一步(&N)","Button7")
        
        
If Not WinActive("Adobe 激活","") Then WinActivate("Adobe 激活","")
WinWaitActive("Adobe 激活","")

$sn=ControlGetText("Adobe 激活", "", "Edit4")

run(@TempDir & "\keygen.exe",@TempDir)
WinWaitActive("Adobe Creative Suite 2 by cvs/SSG","")
ControlClick("Adobe Creative Suite 2 by cvs/SSG", "","obj_COMBOBOX1")
send("{DOWN}")
send("{ENTER}")
ControlClick("Adobe Creative Suite 2 by cvs/SSG", "","obj_EDIT2")
ControlSend("Adobe Creative Suite 2 by cvs/SSG", "", "obj_EDIT2", $sn)

ControlClick("Adobe Creative Suite 2 by cvs/SSG", "","obj_BUTTON2")

$ps=ControlGetText("Adobe Creative Suite 2 by cvs/SSG", "", "obj_EDIT1")

$n = StringSplit($ps,"-")

If Not WinActive("Adobe 激活","") Then WinActivate("Adobe 激活","")
WinWaitActive("Adobe 激活","")

ControlSend("Adobe 激活", "", "Edit6", $n[1])
ControlSend("Adobe 激活", "", "Edit7", $n[2])
ControlSend("Adobe 激活", "", "Edit8", $n[3])
ControlSend("Adobe 激活", "", "Edit9", $n[4])
ControlSend("Adobe 激活", "", "Edit10",$n[5])
if ProcessExists("keygen.exe") Then ProcessClose ("keygen.exe")
        sleep(100)
FileDelete(@TempDir & "\keygen.exe")
sleep(100)

ControlClick("Adobe 激活", "激活(&V)","Button3")

If Not WinActive("Adobe 激活","") Then WinActivate("Adobe 激活","")
WinWaitActive("Adobe 激活","")

ControlClick("Adobe 激活", "完成(&D)","Button2")

If FileExists(@ProgramFilesDir & "\Desktop\SoftWare\Photoshop CS2.lnk") Then FileDelete(@ProgramFilesDir & "\Desktop\SoftWare\Photoshop CS2.lnk")
        FileCreateShortcut("E:\Program Files\Adobe\Adobe Photoshop CS2\Photoshop.exe",@ProgramFilesDir & "\Desktop\SoftWare\Photoshop CS2.lnk","E:\Program Files\Adobe\Adobe Photoshop CS2\","","Photoshop CS2","icon.dll","","446",@SW_MINIMIZE)

exit