学AU3也有半个月啦，昨天给网吧做了个母盘，节省每台机安装的时间，就用AU3写出来啦，代码：
Dim $a,$b,$c,$d,$e,$f,$g,$h,$j,$k,$i,$o ;定义变量
$a=IniRead("setup.ini","服务器IP","IP","") ;从setup.ini文件中读取输入并赋予给变量a，下面同理（同理的只解释1遍哦）
$b=IniRead("setup.ini","客户端路径","path","")
$c=IniRead("setup.ini","客户端参数设置","子网","")
$d=IniRead("setup.ini","客户端参数设置","网关","")
$e=IniRead("setup.ini","客户端参数设置","DNS","")
$f=IniRead("setup.ini","客户端参数设置","DNS2","")
$g=IniRead("setup.ini","客户端参数设置","是否还原","")
$h=IniRead("setup.ini","客户端参数设置","是否重启","")
$i=IniRead("setup.ini","客户端参数设置","前段机器名","")
$o=IniRead("setup.ini","客户端参数设置","前段IP","")
$j=InputBox("输入机器名","输入后段机器名","","",10,10)
$k=InputBox("输入IP地址","输入后段IP","","",10,10)
Run($b) ;运行客户端
WinWaitActive("WinRAR 自解压文件","安装进度");等待并激活窗口
ControlSetText("WinRAR 自解压文件","安装进度","Edit1","C:\Documents and Settings\Administrator");向窗口文本控件发送解压路径
Send("{enter}");发送回车键
If WinWaitActive("确认文件替换","你是否确实要将已经存在的文件") Then ;如果出现文件已存在，则运行下面的代码，否则跳过
Send("!a")
EndIf
Sleep(1000);暂停1秒
run("C:\Documents and Settings\Administrator\顺网客户端安装包.exe")
WinWaitActive("网维大师客户机安装检测","检测完毕，请看下面的检测结果")
Send("{RIGHT}")
Send("{enter}")
sleep(7000)
If WinExists("网维大师(ICafe) 娱乐平台--安装","修改、修复或删除程序") Then
WinWaitActive("网维大师(ICafe) 娱乐平台--安装","修改、修复或删除程序")
Send("!r")
Send("!n")
WinWaitActive("网维大师(ICafe) 娱乐平台--安装","是否要完全除去所选应用程序及其所有功能")
Send("!y")
WinWaitActive("网维大师(ICafe) 娱乐平台--安装","卸载完成")
Send("{enter}")
run("C:\Documents and Settings\Administrator\顺网客户端安装包.exe")
WinWaitActive("网维大师客户机安装检测","检测完毕，请看下面的检测结果")
Send("{RIGHT}")
Send("{enter}")
EndIf
WinWaitActive("网维大师(ICafe) 娱乐平台--安装","Wizard 将在计算机中安装")
Send("!n")
WinWaitActive("网维大师提醒您","D盘数据会被清空")
Send("!y")
WinWaitActive("网维大师(ICafe) 娱乐平台--安装","顺网软件最终用户许可协议")
Send("!y")
WinWaitActive("网维大师(ICafe) 娱乐平台--安装","InstallShield Wizard 完成")
Send("{enter}")
WinWaitActive("客户端安装类型选择","系统管理的大小")
ControlSetText("客户端安装类型选择","系统管理的大小","Edit3",$a);把变量A的值发送到文本输入框中，变量A是从INI文件中读取的
Send("!n")
WinWaitActive("手动设置机器名与IP","客户机将在重启后处于还原保护状态")
ControlSetText("手动设置机器名与IP","客户机将在重启后处于还原保护状态","Edit1",$i&$j)
ControlSetText("手动设置机器名与IP","客户机将在重启后处于还原保护状态","Edit2",$o&"."&$k);用&来连接两个字符串
ControlSetText("手动设置机器名与IP","客户机将在重启后处于还原保护状态","Edit3",$c)
ControlSetText("手动设置机器名与IP","客户机将在重启后处于还原保护状态","Edit4",$d)
ControlSetText("手动设置机器名与IP","客户机将在重启后处于还原保护状态","Edit5",$e)
ControlSetText("手动设置机器名与IP","客户机将在重启后处于还原保护状态","Edit6",$f)
If $g=0 Then
Send("!r")
EndIf
Send("!o")
WinWaitActive("提示","客户端安装完成，是否重启系统")
If $h=0 Then
Send("!n")
WinActive("手动设置机器名与IP","客户机将在重启后处于还原保护状态")
Send("!c")
Else
Send("!y")
EndIf
setup.inii文件内容：
[客户端路径]
path=
[服务器IP]
IP=192.168.1.230
[客户端参数设置]
前段机器名=
前段IP=
子网=
网关=
DNS=
DNS2=
是否还原=
是否重启=
；还原=1 不还原=0 重启=1 不重启=0
看到了AU3有这么方便强大的功能才学的，现在果然用上啦，用自己写的来安装感觉就是不同，出了问题也一下就能检测出来。
[ 本帖最后由 fashuai 于 2009-4-12 18:49 编辑 ] |
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2009-4-12 18:37:16
.gif)
发表于 2009-6-5 01:23:44