fashuai 发表于 2009-4-12 18:37:16

小发第一个程序，网维大师自动安装（适合所有网吧）带卸载

学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 编辑 ]

yangkaicheng 发表于 2009-4-12 20:04:31

个人感觉不需要哪么麻烦...

fashuai 发表于 2009-4-13 13:07:52

嗯嗯

我也觉得代码多了点，但想不到哪儿还可以减少。开始写了一个是只对自己网吧的，代码少了很多。

ryanzone 发表于 2009-5-3 20:56:51

:face (21):

qinguofang 发表于 2009-6-2 03:06:19

顶下楼主
哈哈好东西

jisushizhe 发表于 2009-6-4 21:03:28

顶下楼主
哈哈好东西

zzm0163 发表于 2009-6-5 00:06:29

我写的也就几行，很少，没必要弄的那么麻烦，能实现自动安装就好了

kn007 发表于 2009-6-5 01:23:44

先顶下

。。留着

geshenggang4 发表于 2010-9-16 14:20:26

好！！1学习了！！

sngahxa851129 发表于 2011-1-20 01:47:57

啊啊好东东谢

sngahxa851129 发表于 2011-1-21 13:57:14

不能自动安装嘛

sngahxa851129 发表于 2011-1-21 13:58:13

请问怎能把AU3转换成EXE

skyit 发表于 2011-4-2 08:05:49

不用那么多代码！

annybaby 发表于 2011-4-4 11:20:57

回复 12# sngahxa851129

在SCITE里面的话,工具里面有,编译下就可以了,或者用Aut2exe.exe
页: [1]
查看完整版本: 小发第一个程序，网维大师自动安装（适合所有网吧）带卸载