帮转换成自动安装

小军218

这个软软我用多种软件试了都无法转换成自动安装.总到了是否重启或稍候重启停止了.(我选的是稍候重启).
谢谢!






AU3脚本如下:
#region --- ScriptWriter generated code Start ---
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('E:\88\soft\cbpf\C盘保护.exe')
WinWait("Returnil Virtual System Personal Edition 安装向导","TabWelcome")
If Not WinActive("Returnil Virtual System Personal Edition 安装向导","TabWelcome") Then WinActivate("Returnil Virtual System Personal Edition 安装向导","TabWelcome")
WinWaitActive("Returnil Virtual System Personal Edition 安装向导","TabWelcome")
MouseMove(376,375)
MouseDown("left")
MouseMove(375,376)
MouseUp("left")
WinWait("Returnil Virtual System Personal Edition 安装向导","在桌面显示快捷工具栏")
If Not WinActive("Returnil Virtual System Personal Edition 安装向导","在桌面显示快捷工具栏") Then WinActivate("Returnil Virtual System Personal Edition 安装向导","在桌面显示快捷工具栏")
WinWaitActive("Returnil Virtual System Personal Edition 安装向导","在桌面显示快捷工具栏")
MouseMove(375,375)
MouseDown("left")
MouseUp("left")
WinWait("Returnil Virtual System Personal Edition 安装向导","C:\Program files\Ret")
If Not WinActive("Returnil Virtual System Personal Edition 安装向导","C:\Program files\Ret") Then WinActivate("Returnil Virtual System Personal Edition 安装向导","C:\Program files\Ret")
WinWaitActive("Returnil Virtual System Personal Edition 安装向导","C:\Program files\Ret")
MouseDown("left")
MouseUp("left")
WinWait("Returnil Virtual System Personal Edition 安装向导","31303745464642423738")
If Not WinActive("Returnil Virtual System Personal Edition 安装向导","31303745464642423738") Then WinActivate("Returnil Virtual System Personal Edition 安装向导","31303745464642423738")
WinWaitActive("Returnil Virtual System Personal Edition 安装向导","31303745464642423738")
MouseDown("left")
MouseUp("left")
WinWait("Returnil Virtual System Personal Edition 安装向导","在桌面显示快捷工具栏")
If Not WinActive("Returnil Virtual System Personal Edition 安装向导","在桌面显示快捷工具栏") Then WinActivate("Returnil Virtual System Personal Edition 安装向导","在桌面显示快捷工具栏")
WinWaitActive("Returnil Virtual System Personal Edition 安装向导","在桌面显示快捷工具栏")
MouseMove(122,129)
MouseDown("left")
MouseUp("left")
MouseMove(204,161)
MouseDown("left")
MouseUp("left")
Send("123456")
MouseMove(212,189)
MouseDown("left")
MouseUp("left")
Send("123456")
MouseMove(164,244)
MouseDown("left")
MouseUp("left")
MouseMove(99,309)
MouseDown("left")
MouseUp("left")
MouseMove(356,379)
MouseDown("left")
MouseUp("left")
MouseMove(359,379)
MouseDown("left")
MouseUp("left")
MouseMove(241,259)
MouseDown("left")
MouseUp("left")
MouseMove(470,375)
MouseDown("left")
MouseUp("left")
#endregion --- ScriptWriter generated code End ---

adsen2009

调试和环境有关，有时开着杀软的时候和没开的时候都不一样

水木子

天哪！看你写这么多，有这么复杂吗？
有空我试试。。。

水木子

顺便说下，你是不是模式鼠标按键太多了？
建议尽量键盘操作.

小军218

是模式鼠标按键记录的，因我不会编脚本。

小军218

#RequireAdmin
#NoTrayIcon
Run("C盘保护.exe")
$title="Returnil Virtual System Personal Edition 安装向导"
WinWait($title,"欢迎使用Returnil Virtual System Personal Edition 安装向导")
WinActivate($title,"欢迎使用Returnil Virtual System Personal Edition 安装向导")
ControlClick($title,"Returnil Virtual System Personal Edition 安装向导","TButton3")
WinWait($title,"用户授权协议")
WinActivate($title,"用户授权协议")
ControlClick($title,"用户授权协议","TButton2")
WinWait($title,"请选择安装路径")
WinActivate($title,"请选择安装路径")
ControlSetText($title,"请选择安装路径","Edit1","C:\Program Files\Returnil")
ControlClick($title,"请选择安装路径","TButton2")
WinWait($title,"注册与购买")
WinActivate($title,"注册与购买")
ControlClick($title,"注册与购买","TButton2")
WinWait($title,"参数设置")
WinActivate($title,"参数设置")
ControlClick($title,"参数设置","TCheckBox4")
ControlSetText($title,"参数设置","Edit1","213654")
ControlSetText($title,"参数设置","Edit2","213654")
ControlClick($title,"参数设置","TCheckBox3")
ControlClick($title,"参数设置","TCheckBox1")
ControlClick($title,"参数设置","TButton2")
WinWait($title,"开始安装")
WinActivate($title,"开始安装")
ControlClick($title,"开始安装","TButton2")
WinWait($title,"安装完成")
WinActivate($title,"安装完成")
ControlClick($title,"安装完成","TRadiloButton1")
ControlClick($title,"安装完成","TButton1")
exit





以上脚本是仿高手制作其他软件编制而成,但启动后就不会继续了.请高手们帮我看看是什么原因呢?

ahkang

希望人家帮助还要扣除金钱5块, 老兄这是何意?

ahkang

6# 小军218


回复楼上: 你的窗口文本部分有问题!

ahkang

#RequireAdmin
#NoTrayIcon
Run("C盘保护.exe")
$title="Returnil Virtual System Personal Edition 安装向导"
WinWait($title,"欢迎使用Returnil Virtual System Personal Edition 安装向导")
WinActivate($ti ...
小军218 发表于 2009-7-4 14:05

顺便公开下本人的源代码:

#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

Opt('WinTitleMatchMode',4)
Opt('TrayIconDeBug',1)

$Title = 'Returnil Virtual System Personal Edition 安装向导'
Run('C盘保护.eXe')

Winwait($Title,'使用帮助')
ControlClick($Title,'使用帮助','[Text:下一步 >]')

WinWait($Title,'TabLicense')
ControlClick($Title,'TabLicense','[Text:接受]')

$Path = 'D:\Program files\Returnil\' ; 用户指定程序安装路径
WinWait($Title,'TabDirectory')
WinActivate($Title,'TabDirectory')
$TagDir = ControlgetText($Title,'TabDirectory','TEdit1')
If FileExists($TagDir) Then DirRemove($TagDir,1)
; ControlSetText($Title,'TabDirectory','TEdit1',$Path)
ControlClick($Title,'TabDirectory','[Text:下一步 >]')

$SerialNum = 'D53A1A0C7A426B8EBC95AFF7B1B79D7B' ; 如果还有其他序列号的话, 请在此指定
WinWait($Title,'TabRegister')
WinActivate($Title,'TabRegister')
; ControlSetText($Title,'TabRegister',$SerialNum)
ControlClick($Title,'TabRegister','[Text:下一步 >]')

$PwdMsg = MsgBox(308+262144,'    需要输入密码保护吗?','如果需要设置密码, 请点【是】,否则请单击【否】',8)

If $PwdMsg = 7 Or $PwdMsg = -1 Then
        _Next()
Else
        $Pwd = InputBox('请输入密码','请输入您想要的密码','','*',12,35)
While 1
        If $Pwd <> '' Then
                MsgBox(64+262144,'您的密码是:','您设置的密码是: '&@Cr&$Pwd&@Cr& '请牢牢记住啦!')
                _PwdNext()
                ExitLoop
        Else
                If MsgBox(36+262144,'您还没有输入密码:','您还没有输入密码! 是否返回重新输入...',5) = 7 Then
                        _Next()
                        ExitLoop
                Else
                        $Pwd = InputBox('请输入密码','请输入您想要设置的密码','','*',12,35)
                EndIf
        EndIf
WEnd
EndIf

Func _PwdNext()
        WinWait($Title,'TabAddition')
        WinActivate($Title,'TabAddition')
        ControlCommand($Title,'TabAddition','[Text:使用密码来保护程序]','Check')
        WinActivate($Title,'TabAddition')
        ControlSetText($Title,'TabAddition','TEdit1',$Pwd)
        WinActivate($Title,'TabAddition')
        ControlSetText($Title,'TabAddition','TEdit2',$Pwd)
        WinActivate($Title,'TabAddition')
        ControlCommand($Title,'TabAddition','[Text:设置对系统分区 C: 的工作状态为保护]','Check')
        ControlClick($Title,'TabAddition','[Text:下一步 >]')
EndFunc
       
Func _Next()
        WinWait($Title,'TabAddition')
        WinActivate($Title,'TabAddition')
        ControlCommand($Title,'TabAddition','[Text:使用密码来保护程序]','UnCheck')
        WinActivate($Title,'TabAddition')
        ControlCommand($Title,'TabAddition','[Text:设置对系统分区 C: 的工作状态为保护]','Check')
        ControlClick($Title,'TabAddition','[Text:下一步 >]')
EndFunc

WinWait($Title,'TabCopy')
ControlClick($Title,'TabCopy','[Text:安装]')

WinWait($Title,'TabReboot')
WinActivate($Title,'TabReboot')
ControlCommand($Title,'TabReboot','[Text:稍后再重新启动.]','Check')
ControlClick($Title,'TabReboot','[Text:完成]')
; 说明: 本人使用了单击按钮文本的方法, 就是说不管按钮的 ID 如何变化, 只要文本不变就行!
; 以上代码经测试可行(测试环境: Windows XP SP3 中文版, 其他操作系统没试过...)

小军218

高手真是厉害！
感谢以上各位高手的帮助，帮我解决了问题。

lidenpan

9#高手呀。。学习了