能不能帮忙写一个最新的迅雷安装AU3源码

hack087

能不能帮忙写一个最新的迅雷安装AU3源码  把里面的迅雷看看 其他东西都去掉
也不要开机启动/谢谢勒.

番茄

迅雷(Thunder) V5.8.6.600Ayu 去广告纯净安装版   

SplashTextOn("迅雷 v5.8.6.600-Ayu全自动安装程序","自动安装过程中请勿进行键盘与鼠标的操作！",550,50,-1,100,32, "楷体_GB2312",18)

Run(@ScriptDir&"\Thunder.v5.8.6.600.NoAD-Ayu.exe")

WinWait("迅雷 5.8.6.600 安装","欢迎使用“迅雷 5.8.6.600”安装向导")
WinWaitActive("迅雷 5.8.6.600 安装","欢迎使用“迅雷 5.8.6.600”安装向导")
Send("!N")

WinWait("迅雷 5.8.6.600 安装","许可证协议")
WinWaitActive("迅雷 5.8.6.600 安装","许可证协议")
Send("!I") 

WinWait("迅雷 5.8.6.600 安装","选择组件")
WinWaitActive("迅雷 5.8.6.600 安装","选择组件")
Send("{down 3}{SPACE}")                                             ;去掉勾选“软件助手”
Send("{down}{SPACE}")                                                ;去掉勾选“自动更新”
Send("{down 3}{SPACE}")                                            ;去掉勾选“快捷方式  桌面”
Send("!N") 

WinWait("迅雷 5.8.6.600 安装","选择安装位置")
WinWaitActive("迅雷 5.8.6.600 安装","选择安装位置")
Send("D:\Program Files\Thunder")
Send("!I")

WinWait("迅雷 5.8.6.600 安装","正在完成“迅雷 5.8.6.600”安装向导")
WinWaitActive("迅雷 5.8.6.600 安装","正在完成“迅雷 5.8.6.600”安装向导")
Send("!F") 

Sleep(300)
if winactive("Windows 安全警报") Then
   Send("!U")
EndIf 

FileDelete (@SystemDir & "\cid_store.dat")                                   ;删除迅雷安装时在你系统System32文件下产生cid_store.dat文件 （迅雷自动上传）
DirCreate  (@SystemDir & "\cid_store.dat")                                   ;新建系统System32文件中的cid_store.dat文件夹   （阻止迅雷自动上传）

WinWait("迅雷扩展设置","IE加载项管理")
WinWaitActive("迅雷扩展设置","IE加载项管理")
ControlClick ("迅雷扩展设置","关闭热门推荐", "Button5")
ControlClick ("迅雷扩展设置","关闭热门推荐", "Button13")
ControlClick ("迅雷扩展设置","关闭热门推荐", "Button11")
ControlClick ("迅雷扩展设置","关闭热门推荐", "Button10")
ControlClick ("迅雷扩展设置","关闭热门推荐", "Button1")

[ 本帖最后由 番茄 于 2008-9-24 20:14 编辑 ]

a_wind

楼主是说迅雷6吗？

a_wind

仿照2楼兄弟的些就OK了，注意：能用键盘模拟的尽量用键盘模拟，不要用鼠标模拟

a_wind

;迅雷6自动安装程序
Run("Thunder6.0.1.98Beta.exe")
WinWaitActive("迅雷6: 用户使用协议","欢迎使用")
Send("!y")
WinWaitActive("迅雷6: 安装选项","选择附加任务")
Send("{TAB}")
Send("C:\Program Files\Thunder")
sleep("260")
Send("!i")
WinWaitActive("迅雷6: 安装完成","启动迅雷6")
Send("{TAB}")
Send("{DOWN}")
Send("{SPACE}")
Send("{DOWN}")
Send("{SPACE}")
Send("!f")
sleep("999")
ProcessClose("IEXPLORE.EXE")
;啊风作品(a_wind@yeah.net)

hack087

谢谢大家勒...   

hack087

鼠标模拟还不会用..在学习勒. 谢谢

chineseshelley

哈哈……找着啦

wangjinxian

看了楼上几位的作品，虽然有些地方恐怕只有一边安装，一边看脚本，才能看明白，但是，我觉得仍然收获很大，向楼上发脚本得朋友们表示无限敬意。

颜勇

这是老版本啦 新版是7啊