pjydsj 发表于 2009-11-23 22:54:11

360安全卫士下载自动安装(新手试编)

InetGet('http://down.360safe.com/setup.exe',@TempDir &'\360安全卫士.exe',1,1)
While @InetGetActive
TrayTip('先等我下载完先', '等下啦，急就自己用迅雷下咯 ------ 进度:' & @InetGetBytesRead, 10,16)
Sleep(250)
Wend
Run(@TempDir &'\360安全卫士.exe')
$A=' 360安全卫士 6'
WinWaitActive($A,'这个向导将指引你完成')
ControlClick($A,'这个向导将指引你完成','Button2')
WinWaitActive($A,'最终用户授权协议')
ControlClick($A,'最终用户授权协议','Button2')
WinWaitActive($A,'请选择安装位置')
ControlSetText($A,'请选择安装位置','Edit1','C:\Program Files\360\360safe')
ControlClick($A,'请选择安装位置','Button2')
WinWaitActive($A,'360安全卫士浏览器安装设置')
ControlCommand($A,'360安全卫士浏览器安装设置','Button4','Uncheck')
ControlClick($A,'360安全卫士浏览器安装设置','Button2')
WinWaitActive($A,'已安装在你的系统')
ControlClick($A,'已安装在你的系统','Button2')
If WinWaitActive($A,'你的系统需要重新启动',1) Then
        ControlClick($A,'你的系统需要重新启动','Button2')
EndIf
FileDelete(@DesktopDir & '\修复360安全卫士.lnk')
FileDelete(@DesktopDir & '\360软件管家.lnk')
FileDelete(@DesktopDir & '\360安全卫士.lnk')
Sleep(1000)
FileDelete(@TempDir &'\360安全卫士.exe')

2140340. 发表于 2009-11-29 17:51:00

收藏参考下

s1fmark 发表于 2009-11-30 00:11:16

學習了多謝樓主奉獻

痒痒 发表于 2009-12-1 17:32:04

下载那里搞个界面带进度条，看着就爽了

村牛 发表于 2009-12-3 22:04:11

厉害谢谢了

zz999 发表于 2009-12-3 23:00:35

这代码以前见过了
不过我想问楼主你用的什么版的AU
InetGetActive还能用？

xlcwxl 发表于 2009-12-7 13:39:43

同意4楼的建议

boy-119 发表于 2009-12-29 16:34:05

不错的代码我正用360.。收藏了谢谢楼主

京少 发表于 2010-1-2 10:02:38

學習了多謝樓主

wadcap 发表于 2010-1-4 12:05:55

谢谢提供 试试看~

sunvb2009 发表于 2010-1-4 13:07:04

多谢:face (9):

nxbigdaddy 发表于 2010-1-6 16:27:57

不错的，要是可以把软件设置也做了就好了，
过去的360的补丁路径可以通过修改注册表来改，
后来的版本将那个键值监控了，无法修改啊……

我现在的做法是把注册表先导进去，然后安装，这样就可以了。

哭泣的亚当 发表于 2010-1-7 16:21:48

D:\360.au3(2,21) : ERROR: undefined macro.
While @InetGetActive
~~~~~~~~~~~~~~~~~~~~^
D:\360.au3(3,90) : ERROR: undefined macro.
TrayTip('先等我下载完先', '等下啦，急就自己用迅雷下咯 ------ 进度:' & @InetGetBytesRead,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\360.au3 - 2 error(s), 0 warning(s)
e($A,'360安全卫士浏览器安装设置')
这个错误什么意思啊？那位大哥指导下啊

mlrw923 发表于 2010-1-12 09:44:40

回复 12# nxbigdaddy

好办法~~~~顶！~~~

nxbigdaddy 发表于 2010-1-14 08:38:33

谢谢楼主分享啊！
页: [1] 2
查看完整版本: 360安全卫士下载自动安装(新手试编)