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

ddly · 发表于 2010-6-18 23:24:32

#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 · 发表于 2010-6-19 10:34:37

不太明白，标记一下

pangzhiqing · 发表于 2010-6-21 10:22:22

做个EXE出来啊!!!!

309058207 · 发表于 2010-8-24 19:46:24

做个EXE出来啊!!!!

whwjxb · 发表于 2010-9-11 22:53:22

谢谢楼主的分享！！！

duoaini · 发表于 2010-9-12 14:29:01

谢谢分享。

yaozele · 发表于 2010-10-20 16:23:54

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

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

[原创] 自动安装maxdos8脚本 绝对免费 猪猪编

[原创] 自动安装maxdos8脚本绝对免费猪猪编