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

183712314

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

yinbinly

源码发上啊？

dearmb

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

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

183712314

谢谢...成功了...真的太谢谢了!  上源码..是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

看代码，学习

硕民4

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

steppe_w0lf

上上上楼的够强啊！！

myang

看代码，学习

liujiasoso

怎么看不见远吗啊

yhn6537

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

myang

我也去实施这个答案

qq37202695

学习了 原来代码可以这样写  茅塞顿开 哈哈~~

dorissu

頂 ~~~
感謝樓主分享
學習拉