广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 5759 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
ddrtaco
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x0
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[软体单键安装][提问] AntiVir小红伞可以做出一键安装吗??
小弟用AUTOIT ..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容



献花 x0 回到顶端 [楼 主] From:台湾TWNIC-TW | Posted:2008-05-27 13:18 |
q0821
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x4 鲜花 x29
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

我是用autoit用的

下面是我的code

=========================================================
; ----------------------------------------------------------------------------
; Set up our defaults/Variables
; ----------------------------------------------------------------------------
AutoItSetOption("WinTitleMatchMode", 1)
$SF= "Setup.exe"                        ;安装档案
; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------

Run($SF)

WinWaitActive("Avira AntiVir Personal - Free Antivirus")
sleep(500)
ControlClick("Avira AntiVir Personal - Free Antivirus","","Button1")

DO

WinSetOnTop("Avira AntiVir Personal – Free Antivirus","",1)

$SPPB=ControlGetText("Avira AntiVir Personal – Free Antivirus","","Button2")

Until $SPPB = "下一步(&N) >"


WinActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
Send("!n")

WinActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
Send("!n")

WinWaitActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
Send("!a")
sleep(500)
Send("!n")

WinWaitActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
ControlClick("Avira AntiVir Personal – Free Antivirus","","Button1")
sleep(500)
ControlClick("Avira AntiVir Personal – Free Antivirus","","Button4")

WinActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
Send("!n")

WinActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
Send("!n")


DO

WinSetOnTop("Avira AntiVir Personal – Free Antivirus","",1)

$SPPB=ControlGetText("Avira AntiVir Personal – Free Antivirus","","Button12")

Until $SPPB = "完成"


WinWaitActive("Avira AntiVir Personal – Free Antivirus")
sleep(500)
Send("{space}")
sleep(500)
ControlClick("Avira AntiVir Personal – Free Antivirus","","Button12")

WinWaitActive("Setup of Avira AntiVir Personal – Free Antivirus")
sleep(500)
ControlClick("Setup of Avira AntiVir Personal – Free Antivirus","","Button2")

DO

WinSetOnTop("Luke Filewalker","",1)

$SPPB=ControlGetText("Luke Filewalker","","Button2")

Until $SPPB = "&End"

WinWaitActive("Luke Filewalker")
sleep(500)
ControlClick("Luke Filewalker","","Button2")


=========================================================


献花 x0 回到顶端 [1 楼] From:未知地址 | Posted:2008-05-28 14:12 |
ddrtaco
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x0
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

谢谢大大帮忙 表情 表情


献花 x0 回到顶端 [2 楼] From:台湾 | Posted:2008-05-28 21:50 |
norikoy2
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x0 鲜花 x20
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

感谢分享..不知是否可以简单教一下怎么做呢...
尤其是AutoItSetOption("WinTitleMatchMode", 1)..不太懂哩


献花 x0 回到顶端 [3 楼] From:台湾 | Posted:2008-07-22 07:25 |
smallwhites
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x1
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片



献花 x0 回到顶端 [4 楼] From:台湾 | Posted:2008-07-29 22:03 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.043677 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言