软件安装老卡在最后一步，求教大拿！

yunqiu216

求教各位大拿，安装PKPM次次都卡在最后一步
本人初学者，制作的时候是用Au3Record.exe直接录制的
拜托各位大拿给支支招！！谢谢了！！！！



Run('\\10.32.16.40\Software\Design Tools\结构\PKPM\PKPM2010   2012.6.30版\CDSetup\Disk1\Setup.exe')
_WinWaitActivate("PKPM系列——建筑、结构、设备软件 2010版(2012.6.30)","")
Send("{ALTDOWN}n{ALTUP}")
_WinWaitActivate("重要信息","")
Send("{ALTDOWN}y{ALTUP}")
_WinWaitActivate("选择要安装的软件类型","")
Send("{SPACE}")
_WinWaitActivate("InstallShield Wizard","")
Send("{ALTDOWN}r{ALTUP}")
_WinWaitActivate("选择文件夹","")
Send("D:\Program Files\Design Tools\PKPM10{TAB}{TAB}{ENTER}")
_WinWaitActivate("InstallShield Wizard","")
Send("{ALTDOWN}n{ALTUP}")
_WinWaitActivate("安装类型选择","")
Send("q{TAB}{ALTDOWN}n{ALTUP}")
_WinWaitActivate("InstallShield Wizard","")
Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{SPACE}{DOWN}{DOWN}{DOWN}{SPACE}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{SPACE}n{ALTDOWN}{ALTUP}{TAB}{TAB}{ALTDOWN}n{ALTUP}")
_WinWaitActivate("信息","")
Send("{ENTER}")
_WinWaitActivate("问题","")
Send("{ENTER}")
_WinWaitActivate("信息","")
Send("{ENTER}")
_WinWaitActivate("PKPM系列——建筑、结构、设备软件 2010版(2012.6.30)","")
Send("{DOWN}{ENTER}")
_WinWaitActivate("运行","")
Send("{LWINDOWN}r{LWINUP}c{ENTER}")
Send("\\10.32.16.40\Software\Design Tools\结构\PKPM\PKPM2010   2012.6.30版\配置文件{TAB}{TAB}{ENTER}")
_WinWaitActivate("Program Manager","")
Send("{CTRLDOWN}{CTRLUP}")
_WinWaitActivate("配置文件","")
Send("{CTRLDOWN}ac{CTRLUP}{ALTDOWN}{F4}{ALTUP}")
Send("D:\Program Files\Design Tools\PKPM10\CFG{TAB}{TAB}{ENTER}")
_WinWaitActivate("CFG","")
MouseClick("left",565,250,1)
Send("{CTRLDOWN}v{CTRLUP}")
_WinWaitActivate("确认文件替换","")
Send("{ALTDOWN}a{ALTUP}")
_WinWaitActivate("CFG","")
Send("{ALTDOWN}{F4}{ALTUP}")

tubaba

汗,自动安装是最初级的应用了,这还用得着record,拿自带的au3info,探测一下各个控件的名称,没几分钟就可以做出来了,你上面那些,基本上全是发送按键,很容易受到外部干扰,一个没成功,后面的也就全完蛋了

yunqiu216

回复 2# tubaba
正如您所说的，的确是最初级的，但是现在只能先把这个做到能正确安装了，能让同事先用着，让后再进一步往深了学习，以后再做个好点的。所以现在求教怎么通过卡住的这一页面。

rdw167

http://www.autoitx.com/forum.php ... 4%B6%AF%B0%B2%D7%B0    用它，  你会搞定。  在 安装的命令前 加上  这个命令 BlockInput(1)

tubaba

自动安装的针对性很强的，没有原程序，恐怕我不能帮你什么

以下是我写的金山wps配置设置，由于有几百台终端要配，所以编了这么个东西，与自动安装的原理一样的，你看看

BlockInput(1)
Local $cmd = '"C:\Program Files\Kingsoft\WPS Office Professional\office6\ksomisc.exe"'
Local $sUserName = 'administrator'
Local $sPassword = 'Administrator'
;~ Local $pid = RunAs($sUserName, @ComputerName, $sPassword, 0, $cmd, @SystemDir, @SW_SHOW)
Local $pid = Run($cmd, @SystemDir, @SW_SHOW)
Do
        $HWnd = WinWaitActive('WPS Office 综合修复/配置工具')
        Sleep(100)
Until IsHWnd($HWnd)
ControlClick($HWnd, '', '[CLASS:Button; INSTANCE:2]')
Do
        $HWnd = WinWaitActive('WPS Office 配置工具')
        Sleep(100)
Until IsHWnd($HWnd)
ControlCommand($HWnd, '', '[CLASS:Button; INSTANCE:1]','UnCheck', '')
ControlCommand($HWnd, '', '[CLASS:Button; INSTANCE:2]','UnCheck', '')
ControlCommand($HWnd, '', '[CLASS:Button; INSTANCE:3]','Check', '')
ControlClick($HWnd, '', '[CLASS:Button; INSTANCE:7]')
Do
        $HWnd = WinWaitActive('WPS Office 综合修复/配置工具')
        Sleep(100)
Until IsHWnd($HWnd)
ControlClick($HWnd, '', '[CLASS:Button; INSTANCE:3]')
BlockInput(0)

tubaba

这样编的好处就是鼠标和键盘基本不会对安装过程有影响，为了预防万一，我在开头结尾还加了禁止输入的语句，其实这个不加，影响也不大，每出现一个新的窗口，用探测工具把控件的class，instance找到，controlclick这个按钮就可以了

yunqiu216

回复 3# yunqiu216
实在感谢！

yunqiu216

回复 5# tubaba
谢谢您的分享，我学学基础的，然后再学习自己编。

ak47gglllk

学习了，来露个脸。感谢

wangms

学习。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

nqawen

来学习了，，找知识 了

dncsk

没有目标软件 没法看 写了个简单的例子 仅供参考

WinWait("PKPM","立即重新")
WinActivate("PKPM","立即重新")
WinWaitActive("PKPM","立即重新")
Send("{DOWN}")
Send("!{F4}");关闭窗口