3种急速寻找exe文件路径的方法+AU3自动安装软件方法开源

℡米雷丽亚ろ

此程序源码用余 exe文件路径的方法  AU3自动安装软件方法开源  内付易语言读注册表 详解  

喜欢易语言的朋友可以加相互学习  如果有不懂的问我


实现内容是 大型软件更新文件 “ 软件自动寻找主程序exe文件路径+软件自动安装+软件注册”




自动化程序.rar (834.57 KB, 下载次数: 194)

2014-8-24 12:04 上传

点击文件名下载附件
下载积分: 精币 -2 枚

AU3自动安装源码

  

#include
Dim $Path
If Not (FileExists (@ScriptDir & "\Storm.exe")) Then
MsgBox (0+16,"错误","暴风影音安装文件 Storm.exe 未发现！")
Else
If FileExists (@ScriptDir & "\InstallPath.ini") Then
$Path=IniRead (@ScriptDir & "\InstallPath.ini","InstallPath","Path","")
Else
$Path=""
EndIf
Run (@ScriptDir & "\Storm.exe")
WinWaitActive ("暴风影音 V3","欢迎使用")
Send ("!N")
WinWaitActive ("暴风影音 V3","用户许可协议")
Send ("!I")
WinWaitActive ("暴风影音 V3","选择安装位置")
If $Path<>"" Then
Send ($Path,0)
Sleep (300)
EndIf
Send ("!I")
WinWaitActive ("暴风影音 V3","正在完成")
Send ("{Space}")
Send ("!F")
EndIf

#include <br /> Dim $Path<br /> If Not(FileExists(@ScriptDir & "\Storm.exe")) Then<br /> MsgBox(0+16,"错误","暴风影音安装文件 Storm.exe 未发现！")<br /> Else<br /> If FileExists(@ScriptDir & "\InstallPath.ini") Then<br /> $Path=IniRead(@ScriptDir & "\InstallPath.ini","InstallPath","Path","")<br /> Else<br /> $Path=""<br /> EndIf<br /> Run(@ScriptDir & "\Storm.exe")<br /> WinWaitActive("暴风影音 V3","欢迎使用")<br /> Send("!N")<br /> WinWaitActive("暴风影音 V3","用户许可协议")<br /> Send("!I")<br /> WinWaitActive("暴风影音 V3","选择安装位置")<br /> If $Path<>"" Then<br /> Send($Path,0)<br /> Sleep(300)<br /> EndIf<br /> Send("!I")<br /> WinWaitActive("暴风影音 V3","正在完成")<br /> Send("{Space}")<br /> Send("!F")<br /> EndIf

xinyukala

搜索文件部分下载了打不开

ytbihay

学习了，谢谢

wangdili1982

感谢分享！

wangdili1982

感谢分享！！！

chenxiao7

感谢楼主分享 参考参考~

慕尚网

自动化程序.e打不开啊，提示运行时出错，错误信息：未找到引发事件的窗口

慕尚网

感谢分享，看看怎样

阿布君

好东西分享一下

宇智波·佐助

好吧好吧