找回密码
 加入
搜索
查看: 6108|回复: 13

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

  [复制链接]
发表于 2009-8-16 13:12:31 | 显示全部楼层 |阅读模式
本帖最后由 131738 于 2009-8-22 12:19 编辑

[code]#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[0] + $TNewCheckListBoxArray[0]
$Height =  $WinPosArray[1] + $TNewCheckListBoxArray[1]
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[0] + $TNewCheckListBoxArray[0]
$Height =  $WinPosArray[1] + $TNewCheckListBoxArray[1]
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 ... &extra=page%3D1

评分

参与人数 1贡献 +5 收起 理由
lynfr8 + 5

查看全部评分

发表于 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" )


这个序列号可以一次粘贴的吧!
 楼主| 发表于 2009-8-18 18:15:11 | 显示全部楼层
2# bsplin

手动可以!自动就不行了!控件类名不同!
发表于 2009-8-18 22:11:48 | 显示全部楼层
看不懂啊,还要努力 学习呀!
发表于 2009-8-19 11:49:44 | 显示全部楼层
也在努力学习中。
发表于 2010-1-21 17:40:30 | 显示全部楼层
支持 顶上去
发表于 2010-1-25 15:29:52 | 显示全部楼层
东西是好东西,但总是下载到一半断掉
发表于 2010-6-21 15:58:27 | 显示全部楼层
看看好用吗。。。。。。....
发表于 2010-6-21 18:04:39 | 显示全部楼层
东西是好东西,但总是下载到一半断掉

评分

参与人数 1金钱 -10 收起 理由
afan -10

查看全部评分

发表于 2012-8-1 01:44:52 | 显示全部楼层
地址打不开
发表于 2014-10-29 19:47:05 | 显示全部楼层
sofa,好东西啊。。
发表于 2016-10-7 22:06:16 | 显示全部楼层
干嘛用的 什么源码
发表于 2016-10-16 20:13:01 | 显示全部楼层
努力学习中。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-9-28 23:36 , Processed in 0.121268 second(s), 26 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表