183712314 发表于 2010-12-16 20:36:18

au3自动安装如何写一个判断语句

如:一个软件重装时会提示是否覆盖安装,如果出现这个情况则做一个动作;如果没有出现这个提示则做另一个动作!请问这个语句怎么写啊!就是防止重装时这个脚本失效.谢谢!

yinbinly 发表于 2010-12-16 21:16:25

源码发上啊？

dearmb 发表于 2010-12-16 21:43:33

……
上一个界面and操作
Do
    Sleep(10)
   if WinExists   中间可能出现的界面then
   ControlClick   中间可能出现的界面操作
EndIf
Until WinExists(下一个界面)   =True
下一个界面and操作

仿造一下，不知道你能否看懂

183712314 发表于 2010-12-16 22:16:46

谢谢...成功了...真的太谢谢了!上源码..是FoxitReader4.3的安装

Opt("MouseCoordMode", 0);相对激活窗口的坐标
Opt("WinTitleMatchMode", 2);标题的任意子串皆可匹配
Dim $bt = "福昕阅读器安装向导"
Dim $txt1 = "否(&N)"
Dim $txt2 = "PDF文档"
Dim $txt3 = "许可协议"
Dim $txt4 = "选择您需要的安装方式"
Dim $txt5 = "安装位置"
Dim $txt6 = "安装Firefox插"
Dim $txt7 = "通过设置安全阅读模式"
Dim $txt8 = "百度工具栏"
Dim $txt9 = "安装佳印名片设计器"
Dim $txt10 = "目标位置:"
Dim $txt11 = "查看新特性"

If Not FileExists(@ScriptDir&"\FoxitReader4.3.exe") Then
TrayTip("错误！！","安装文件未找到!"&@CRLF&"5秒后自动退出", 15, 4)
Sleep(5000)
Exit
EndIf
ProcessClose("360tray.exe")
Run(@ScriptDir&"\FoxitReader4.3.exe");运行软件
TrayTip("温馨提示", "自动安装期间为避免操作失败，请勿动键盘鼠标", 15, 4)
Sleep(1000)
Do
        Sleep(1000)
If WinExists($bt,$txt1)Then
        WinWaitActive($bt,$txt1)
        ControlClick($bt,$txt1, "Button1")
EndIf
Until WinExists($bt, $txt2)
       
        WinWaitActive($bt, $txt2)
        ControlClick($bt, $txt2, "Button2")
        ControlClick($bt, $txt2, "Button2")

        WinWaitActive($bt, $txt3)
        ControlClick($bt, $txt3, "Button1")
        ControlClick($bt, $txt3, "Button3")

        WinWaitActive($bt, $txt4)
        ControlClick($bt, $txt4, "Button3")

        WinWaitActive($bt, $txt5)
        ControlClick($bt, $txt5, "Button8")
        ControlClick($bt, $txt5, "Button8")

        WinWaitActive($bt, $txt6)
        ControlClick($bt, $txt6, "Button4")
        ControlClick($bt, $txt6, "Button6")
        ControlClick($bt, $txt6, "Button15")

        WinWaitActive($bt, $txt7)
        ControlClick($bt, $txt7, "Button17")

        WinWaitActive($bt, $txt8)
        ControlClick($bt, $txt8, "Button1")
        ControlClick($bt, $txt8, "Button18")

        WinWaitActive($bt, $txt9)
        ControlClick($bt, $txt9, "Button1")
        ControlClick($bt, $txt9, "Button19")

        WinWaitActive($bt, $txt10)
        ControlClick($bt, $txt10, "Button19")

        WinWaitActive($bt, $txt11)
        ControlClick($bt, $txt11, "Button1")
        ControlClick($bt, $txt11, "Button5")
        ControlClick($bt, $txt11, "Button26")
        TrayTip(" 恭喜！", "已经安装完成，谢谢使用", 5, 4)
        Sleep(2000)
                ProcessExists("360chrome.exe")
                ProcessClose("iexplore.exe")
                ProcessClose("115br.exe")
                ProcessClose("360se.exe")
Exit

dhwc 发表于 2010-12-17 16:01:05

看代码，学习

硕民4 发表于 2011-1-23 23:01:37

经常听说家里蹲大学，真的有这所大学吗，学校地址在哪里？

steppe_w0lf 发表于 2011-1-28 14:48:11

上上上楼的够强啊！！

myang 发表于 2011-2-13 13:38:46

看代码，学习

liujiasoso 发表于 2011-2-18 22:39:31

怎么看不见远吗啊

yhn6537 发表于 2011-2-22 20:34:58

同样的问题
我也去实施这个答案

myang 发表于 2011-2-27 00:19:25

我也去实施这个答案

qq37202695 发表于 2011-2-28 21:41:11

学习了 原来代码可以这样写茅塞顿开 哈哈~~{:face (356):}

dorissu 发表于 2011-3-2 16:32:30

頂 ~~~
感謝樓主分享
學習拉
{:1_195:}
页: [1]
查看完整版本: au3自动安装如何写一个判断语句