[已解决]关于AdlibRegister的用法。

panjunkan · 发表于 2010-9-23 16:08:04

本帖最后由 panjunkan 于 2010-9-24 08:39 编辑

我有一个安装文件是Setup.exe的程序，如先前已安装本程序，再次运行Setup.exe，会提示已安装本程序，按回车退出。
现在要用autoit编一个程序，如果先前已安装Setup.exe则把程序卸载，再重装一遍。
如先前无安装Setup.exe则直接安装Setup.exe。

AdlibRegister("end")
Func end()
If WinExists("已安装本程序", "内容") Then
Send("{ENTER}")
Exit
EndIf
EndFunc
Run("c:\Setup.exe")
AdlibUnRegister()

不知道有没有说明白。

netegg · 发表于 2010-9-23 17:43:19

把代码整理好再问

转角遇到囜 · 发表于 2010-9-23 17:46:48

好乱，先把代码整好

auhj887 · 发表于 2010-9-23 21:24:25

我也想学习。。。。。。。。。。

lixiaolong · 发表于 2010-9-23 21:57:28

WinExists = 检查指定的窗口是否存在.
WinExists ( "窗口标题" [, "窗口文本"] )

FileExists = 检查指定文件或目录是否存在.
FileExists ( "路径" )

不需要AdlibRegister把？

If FileExists("D:\Program Files\Thunder Network\Thunder\uninst.exe") Then ;检查指定文件或目录是否存在
        Run('"D:\Program Files\Thunder Network\Thunder\uninst.exe"') ;如果有，实行uninst.exe卸载
Else
        Run("c:\Setup.exe") ;如果没有，实行Setup.exe开始安装
EndIf

panjunkan · 发表于 2010-9-24 07:55:04

回复 5# lixiaolong

因为程序的安装目录不是一定的，以前都是随便装的，所以这个方法行不通，最后用批处理解决了。多谢。

lixiaolong · 发表于 2010-9-24 08:00:32

解决就好

		自动登录	找回密码
密码			加入

[AU3基础] [已解决]关于AdlibRegister的用法。

评分

相关帖子

评分

评分