131738 发表于 2009-8-16 13:12:31

自动安装脚本生成器 Script_Editor_1.2 制作的脚本展示

本帖最后由 131738 于 2009-8-22 12:19 编辑

#requireadmin
#Region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_icon = G:\SP3\SoftInst\Rfw2009.exe
#AutoIt3Wrapper_outfile = Rfw2009_zd.exe
#AutoIt3Wrapper_Res_Description = 瑞星防火墙 AU3自动安装
#AutoIt3Wrapper_Res_Fileversion = 瑞星防火墙 版本: 21.00
#AutoIt3Wrapper_Res_LegalCopyright = 版权所有 (C) 2009_131738
#AutoIt3Wrapper_Res_Icon_Add = G:\SP3\SoftInst\Rfw2009.exe
#AutoIt3Wrapper_Res_Language = 2052
#EndRegion AutoIt3Wrapper 预编译参数设置完成

#comments-start __________________

Au3 版本:3.3.1.1
脚本作者:131738
        Email:wang420100@yahoo.cn
        QQ/TM:909521335
脚本版本:1.0
脚本功能: 自动安装： 瑞星防火墙

#comments-end 脚本开始___________

Run ( @ScriptDir & "\Rfw2009.exe" )
$Title = "瑞星个人防火墙"
WinWaitActive( $Title, "确定(&O)" )
ControlClick( $Title, "","Button1" )
WinWaitActive( $Title, " 瑞星欢迎您" )
ControlClick( $Title, "","Button2" )
WinWaitActive( $Title, " 最终用户许可协议 " )
ControlClick( $Title, "","Button6" )
ControlClick( $Title, "","Button2" )
WinWaitActive( $Title, " 验证产品序列号和用户ID：" )
ControlClick( $Title, "","Button8" )
ControlFocus( $Title, "", "Edit2" )
Opt("SendKeyDelay", 30)
ControlSend( $Title, "", "Edit2", "******" )
ControlFocus( $Title, "", "Edit3" )
Opt("SendKeyDelay", 30)
ControlSend( $Title, "", "Edit3", "******" )
ControlFocus( $Title, "", "Edit4" )
Opt("SendKeyDelay", 30)
ControlSend( $Title, "", "Edit4", "******" )
ControlFocus( $Title, "", "Edit5" )
Opt("SendKeyDelay", 30)
ControlSend( $Title, "", "Edit5", "******" )
ControlFocus( $Title, "", "Edit6" )
Opt("SendKeyDelay", 30)
ControlSend( $Title, "", "Edit6", "************" )
ControlClick( $Title, "","Button2" )
WinWaitActive( $Title, " 定制安装 " )
ControlClick( $Title, "","SysTreeView321" )

$WinPosArray = WinGetPos ( $Title )
$TNewCheckListBoxArray = ControlGetPos ( $Title, "", "SysTreeView321" )
$Width = $WinPosArray + $TNewCheckListBoxArray
$Height =$WinPosArray + $TNewCheckListBoxArray
MouseClick ( "left", $Width + 35 , $Height + 70)
MouseClick ( "left", $Width + 35, $Height + 86)
ControlClick( $Title, "","Button2" )
WinWaitActive( $Title, " 选择目标文件夹" )
ControlClick( $Title, "","Button2" )
WinWaitActive( $Title, " 选择开始菜单文件夹" )
ControlClick( $Title, "","Button2" )
WinWaitActive( $Title, " 安装信息 " )
ControlClick( $Title, "","Button2" )
WinWaitActive( "瑞星网络程序设置", "瑞星个人防火墙向导" )
ControlClick( "瑞星网络程序设置", "","Button1" )
WinWaitActive( "瑞星安装程序 ", "确定" )
ControlClick( "瑞星安装程序 ", "","Button1" )
WinWait ( $title,"" )
If Not WinActivate ( $title,"" ) Then WinActivate ( $title,"" )
WinWaitActive( $Title, " 结束 " )
ControlClick( $Title, "","SysListView322" )

$WinPosArray = WinGetPos ( $Title )
$TNewCheckListBoxArray = ControlGetPos ( $Title, "", "SysListView322" )
$Width = $WinPosArray + $TNewCheckListBoxArray
$Height =$WinPosArray + $TNewCheckListBoxArray
MouseClick ( "left", $Width + 137, $Height + 71)
ControlClick( $Title, "","Button3" )
WinWaitActive( "瑞星个人防火墙向导", "“云安全”（Cloud Security）计划" )
ControlClick( "瑞星个人防火墙向导", "","Button8" )
WinWaitActive( "瑞星个人防火墙向导", "        系统检测到本机配置了如下 IP 地址，请确认哪些地址可以添加到可信区，可信区是相对安全的网络，对于没有直接联入互联网的局域网地址，可以将地址加入到可信区：" )
ControlClick( "瑞星个人防火墙向导", "","Button9" )
WinWaitActive( "瑞星个人防火墙向导", "        系统检测到如下网关及其 MAC 地址，请确认是否将网关及其 MAC 地址做静态绑定，绑定后的地址将添加到 ARP 静态规则里，这可以让你避免受到 ARP 欺骗攻击：" )
ControlClick( "瑞星个人防火墙向导", "","Button11" )
WinWaitActive( "瑞星个人防火墙向导", "瑞星密码" )
ControlClick( "瑞星个人防火墙向导", "","Button24" )

SplashTextOn ( "自动安装", "已完成 瑞星防火墙 的自动安装. ", 250, 70, -1, -1, 0, "", 14 )
Sleep ( 2000 )

工具下载：

http://autoitx.com/forum.php?mod=viewthread&tid=9276&extra=page%3D1

bsplin 发表于 2009-8-16 19:28:21

ControlSend( $Title, "", "Edit2", "******" )
ControlFocus( $Title, "", "Edit3" )
Opt("SendKeyDelay", 30)
ControlSend( $Title, "", "Edit3", "******" )
ControlFocus( $Title, "", "Edit4" )
Opt("SendKeyDelay", 30)
ControlSend( $Title, "", "Edit4", "******" )
ControlFocus( $Title, "", "Edit5" )
Opt("SendKeyDelay", 30)
ControlSend( $Title, "", "Edit5", "******" )
ControlFocus( $Title, "", "Edit6" )


这个序列号可以一次粘贴的吧！

131738 发表于 2009-8-18 18:15:11

2# bsplin

手动可以！自动就不行了！控件类名不同！

cxd 发表于 2009-8-18 22:11:48

看不懂啊，还要努力 学习呀！

tjjt 发表于 2009-8-19 11:49:44

也在努力学习中。

l411126683 发表于 2010-1-21 17:40:30

支持 顶上去

ndyndy 发表于 2010-1-25 15:29:52

东西是好东西，但总是下载到一半断掉

nicky_926 发表于 2010-6-21 15:58:27

看看好用吗。。。。。。....

nicky_926 发表于 2010-6-21 18:04:39

东西是好东西，但总是下载到一半断掉

kuku645 发表于 2012-8-1 01:44:52

地址打不开

605284 发表于 2014-10-29 19:47:05

sofa,好东西啊。。

老鹰系统盘 发表于 2016-10-7 22:06:16

干嘛用的 什么源码

tcehome 发表于 2016-10-16 20:13:01

努力学习中。
页: [1]
查看完整版本: 自动安装脚本生成器 Script_Editor_1.2 制作的脚本展示