自动安装maxdos8脚本 绝对免费 猪猪编

ddly

#requireadmin
#Region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_icon=ico.ico
#AutoIt3Wrapper_outfile=自动安装.exe
#EndRegion AutoIt3Wrapper 预编译参数设置完成

traytip(" 文仪通提示您","自动安装期间为了避免操作失败，请勿移动键盘和鼠标",15,4)

Opt("MouseCoordMode", 0);相对激活窗口的坐标
Opt("WinTitleMatchMode", 2);标题的任意子串皆可匹配
Dim $dizhi = ""
Dim $rjlj = IniRead("soft.ini", "设置", "软件路径", @WorkingDir)
Dim $txt1 = "设置百度为首页及百度IE纠错插件。"
Dim $bt = "MaxDOS 安装程序"

Run("MaxDos8.exe")
WinWait("MaxDOS 8 安装程序","下一步(&N) >")
ControlClick("MaxDOS 8 安装程序","下一步(&N) >","Button3")
WinWait("MaxDOS 安装程序","下一步(&N) >")
ControlClick("MaxDOS 安装程序","下一步(&N) >","Button3")
ControlClick("MaxDOS 安装程序","下一步(&N) >","Button1")
WinWait("MaxDOS 安装程序","将 MaxDOS 安装至 BOOT.INI 或者 BOOTMGR。")
ControlClick("MaxDOS 安装程序","将 MaxDOS 安装至 BOOT.INI 或者 BOOTMGR。","Button1")
WinWait("MaxDOS 安装程序","下一步(&N) >")
ControlFocus("MaxDOS 安装程序","下一步(&N) >","Edit1")
Sleep(1000)
Send("1")
Send("!n")
WinWait("MaxDOS 安装程序","创建一个用于存放备份镜像的文件夹在")
ControlFocus("MaxDOS 安装程序","创建一个用于存放备份镜像的文件夹在","Button1")
Send("!n")
WinWaitActive($bt, $txt1)
ControlClick($bt, $txt1, "Button34")
Send("!n")
WinWait(" MaxDOS 8 已经安装成功。","完成(&F)")
ControlClick(" MaxDOS 8 已经安装成功。","完成(&F)","Button1")

Exit

yejier1983

不太明白，标记一下

pangzhiqing

做个EXE出来啊!!!!

309058207

做个EXE出来啊!!!!

whwjxb

谢谢楼主的分享！！！

duoaini

谢谢分享。

yaozele

学习，收下，不知道有没源码学习下！