找回密码  加入

AUTOIT CN

搜索
查看: 17311|回复: 58

[原创] f&n安装脚本生产器0.048发布在一楼,0.049界面与功能预览,内测中。。。

[复制链接]
发表于 2010-8-29 16:15:10 | 显示全部楼层 |阅读模式
本帖最后由 23070205 于 2012-6-10 17:09 编辑

afan超版的窗口探测0.3真是伟大的作品!在发布期间,正值我也要写一些安装脚本。好好理解了afan脚本的程序后,配合写了一个小程序,做了一个配套录像。感觉真是不错。提供上来大家拍砖吧!
那个路径问题,现在还没有解决,不是没有太多的时间吗?!留下以后再说吧。呵呵。

当然配合autoit打包文件中的Au3Info,也是可以的,只是没有afan超版的用的顺手和简便了。
提醒:要用到窗口探测0.3的界面坐标,就是鼠标要点击下窗口坐标后,变成界面坐标。
大家认真看录像即可,发现我是怎么做的。

afan超版的窗口探测0.3已经打包进我的这个程序。在此,对afan超版,表示感谢!

小程序和录像上传网盘中。到底好用否,有待大家的检测!
上传一个打包的程序和录像上来,不过好像论坛是要收费的吧。呵呵
内附4个文件,一个是安装脚本生产器,一个qqflash程序和生成的脚本,一个是录像文件。



网盘免费下载
http://cid-073201fe454c8e34.offi ... %ae%89%e8%a3%85.rar



微软网盘下载0.047最新版  md5 CDB6B5F52314A8186945D0213950C6B7



0.047内测版,加入了判断,避免因二次编译重复写代码的问题。
继续完善,下一步,计划和afan超版的程序更加配套。可以支持控件id+控件坐标。更加强大!呵呵


[url]https://skydrive.live.com/?cid=073201fe454c8e34&sc=documents&id=73201FE454C8E34%21154[/url]


游客,如果您要查看本帖隐藏内容请回复



版本介绍
0.01版,就是现在上传的这个版本。不能自行选择安装路径
0.02版,内测版本,未发布。支持选择安装路径。
0.03版,内测版本,未发布。增加了控件的坐标输入框到6个,支持mouseclick与controlclick双重写脚本。已发布录像。程序没有对外发布。带autoit自带的编译功能。加入tooltip和f11热键终止功能。
0.04版,内测版本,未发布。改变autoit自带的编译功能为命令行编译,同时自动提取说制作程序的ico为自动安装脚本的ico。同时支持编写后自动运行当前页的安装。便于查找问题。
0.041版,内测版本,未发布。改善提取ico的处理。
0.042版,内测版本,未发布。增加了对ie的处理。加入了几行代码,默认屏蔽。
0.043版,完善版本,准备发布。写了帮助文件,测试通过。
下面是最新的0.043版本的help和界面预览。做最后的测试后,这个版本对外发布。
0.044内测版,未对外发布。加入撤销代码到上一界面,更新为窗口探测0.52.完善关闭ie的代码。总标题可以二次输入。
0.045内测版,未对外发布。加入send热键功能。实现3版合一。
0.046内测版。加入了总标题、子标题的清除。在对付有些不能获取总标题的,则可以保持空白。总标题自动填写为[active],此项在首页不能使用。支持编译后2次打开程序。程序支持exe和msi。编译后5秒钟,删除本次垃圾文件。只保留au3文件。
0.047内测版,加入了判断,避免因二次编译重复写代码的问题。
0.047内测版,加入了判断,避免因二次编译重复写代码的问题。
0.048完善版,支持无子标题程序,比如傲游2或傲游3等。
f&n安装脚本生产器三版合一0.049 内测版本 暂未发布
2010-10-16 06:50
1.界面加入运行au3.方便没有安装autoit的,可以运行au3文件,用于测试。
2.原来是程序名加au3,现在原名前加install。格式为install_程序.au3
3.原来的自动脚本为install_程序.exe改变为install_auto_程序.exe
以上的2.3点,主要为了防止在手动编译时,自动编译为同名au3的exe会覆盖源程序。  


最新版0.048及帮助文件下载



afan超版窗口探测已更新到0.5.请朋友们到下面链接下载吧。支持afan超版带来的好作品。下载后请放到F&n安装脚本生产器的同一目录即可使用最新的窗口探测0.5.
更新提示:
[增加] 在“控件类”栏目上点击右键将复制首个有效的控件文本(如果有)行到剪贴板;
afan超版专门为本程序定制的这样功能,请大家速更新。哈哈!
http://www.autoitx.com/forum.php ... p;extra=&page=9




本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x

评分

2

查看全部评分

发表于 2010-8-29 17:31:07 | 显示全部楼层
回复 1# 23070205

没有源,下载失败。。。。
发表于 2010-8-29 17:40:11 | 显示全部楼层
回复 1# 23070205

还行。。。。继续努力!!!!!!!!!!!
 楼主| 发表于 2010-8-29 18:05:42 | 显示全部楼层
回复 3# 131738


    谢谢鼓励。回头有空再完善路径等问题。
发表于 2010-8-30 22:49:19 | 显示全部楼层
呵呵,不错~ 很清晰的操作~
 楼主| 发表于 2010-8-30 23:52:27 | 显示全部楼层
最新版0.03已经上图,更新如下 1.支持路径的处理。2.带au3自动打包程序。3.支持msi程序和exe程序的启动。4.细节处理。5.退出清理垃圾文件。6.增加了F11强制终止脚本。7.加入tooltip提示

贴一个生成的qq2010 sp1的脚本,程序接着内测。

  1. #requireadmin
  2. Opt("MouseCoordMode", 2)
  3. ;这个自动安装脚本由f&n安装脚本生产器生成。

  4. HotKeySet("{f11}", "stop")

  5. Run (@ScriptDir& "\QQ2010SP1.exe")

  6. ToolTip("正在为你进行QQ2010SP1 安装,请不要移动鼠标和键盘!"&@CR&"F11可以终止安装脚本!", @DesktopWidth - 360, @DesktopHeight - 120)
  7. WinWait ( "腾讯QQ2010 安装向导","欢迎使用腾讯QQ2010" )
  8. WinActivate( "腾讯QQ2010 安装向导","欢迎使用腾讯QQ2010" )
  9. MouseClick ( "left",198, 313, 1 )
  10. MouseClick ( "left",442, 372, 1 )
  11. WinWait ( "腾讯QQ2010 安装向导","请选择自定义安装选项与快捷方式选项" )
  12. WinActivate( "腾讯QQ2010 安装向导","请选择自定义安装选项与快捷方式选项" )
  13. MouseClick ( "left",101, 147, 1 )
  14. MouseClick ( "left",107, 168, 1 )
  15. MouseClick ( "left",117, 192, 1 )
  16. MouseClick ( "left",125, 286, 1 )
  17. MouseClick ( "left",433, 374, 1 )

  18. WinWait ( "腾讯QQ2010 安装向导","请选择安装路径" )
  19. WinActivate( "腾讯QQ2010 安装向导","请选择安装路径" )
  20. ControlSetText("腾讯QQ2010 安装向导","请选择安装路径","Edit1","C:\Tencent\QQ")
  21. MouseClick ( "left",446, 372, 1 )

  22. WinWait ( "腾讯QQ2010 安装向导","安装完成" )
  23. WinActivate( "腾讯QQ2010 安装向导","安装完成" )
  24. MouseClick ( "left",224, 96, 1 )
  25. MouseClick ( "left",207, 117, 1 )
  26. MouseClick ( "left",222, 136, 1 )
  27. MouseClick ( "left",226, 160, 1 )
  28. MouseClick ( "left",516, 372, 1 )


  29. ToolTip("QQ2010SP1安装完毕!",@DesktopWidth - 360, @DesktopHeight - 120)

  30. Func stop()
  31. Exit
  32. EndFunc
复制代码
 楼主| 发表于 2010-9-1 13:25:09 | 显示全部楼层
新版脚本演示真在上传中,给大家两个对比的脚本。mouseclick vs controlclick。
#requireadmin
Opt("MouseCoordMode", 2)
;这个自动安装脚本由f&n安装脚本生产器生成。

HotKeySet("{f11}", "stop")

Run (@ScriptDir& "\PPTV网络电视_V2.5.5.0019.exe")

ToolTip("正在为你进行PPTV网络电视_V2.5.5.0019 安装,请不要移动鼠标和键盘!"&@CR&"F11可以终止安装脚本!", @DesktopWidth - 360, @DesktopHeight - 120)
WinWait ( "PPTV网络电视 V2.5.5.0019 安装","下一步(&N) >" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","下一步(&N) >" )
ControlClick( "PPTV网络电视 V2.5.5.0019 安装","下一步(&N) >","TNewButton1")

WinWait ( "PPTV网络电视 V2.5.5.0019 安装","请仔细阅读下列许可协议。您在继续安装前必须同意这些协议条款。" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","请仔细阅读下列许可协议。您在继续安装前必须同意这些协议条款。" )
ControlClick( "PPTV网络电视 V2.5.5.0019 安装","请仔细阅读下列许可协议。您在继续安装前必须同意这些协议条款。","TNewButton2")

WinWait ( "PPTV网络电视 V2.5.5.0019 安装","单击“下一步”继续。如果您想选择其它文件夹,单击“浏览”。" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","单击“下一步”继续。如果您想选择其它文件夹,单击“浏览”。" )
ControlSetText("PPTV网络电视 V2.5.5.0019 安装","单击“下一步”继续。如果您想选择其它文件夹,单击“浏览”。","TEdit1","C:\PPLive\PPTV")
ControlClick( "PPTV网络电视 V2.5.5.0019 安装","单击“下一步”继续。如果您想选择其它文件夹,单击“浏览”。","TNewButton3")

WinWait ( "PPTV网络电视 V2.5.5.0019 安装","安装程序现在将在下列开始菜单文件夹中创建程序的快捷方式。" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","安装程序现在将在下列开始菜单文件夹中创建程序的快捷方式。" )
ControlClick( "PPTV网络电视 V2.5.5.0019 安装","安装程序现在将在下列开始菜单文件夹中创建程序的快捷方式。","TNewButton4")

WinWait ( "PPTV网络电视 V2.5.5.0019 安装","选择您想要安装程序在安装 PPTV网络电视 V2.5.5.0019 时执行的附加任务,然后单击“下一步”。" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","选择您想要安装程序在安装 PPTV网络电视 V2.5.5.0019 时执行的附加任务,然后单击“下一步”。" )
MouseClick ( "left",51, 170, 1 )
ControlClick( "PPTV网络电视 V2.5.5.0019 安装","选择您想要安装程序在安装 PPTV网络电视 V2.5.5.0019 时执行的附加任务,然后单击“下一步”。","TNewButton4")

WinWait ( "PPTV网络电视 V2.5.5.0019 安装","单击“安装”继续此安装程序。如果您想要回滚或改变设置,请单击“上一步”。" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","单击“安装”继续此安装程序。如果您想要回滚或改变设置,请单击“上一步”。" )
ControlClick( "PPTV网络电视 V2.5.5.0019 安装","单击“安装”继续此安装程序。如果您想要回滚或改变设置,请单击“上一步”。","TNewButton4")

WinWait ( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视 已经安装到你的计算机。" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视 已经安装到你的计算机。" )
MouseClick ( "left",188, 107, 1 )
;MouseClick ( "left",244, 118, 1 );就是这个鼠标位置的问题。这样就应该没有问题了,这里就不宰演示了。呵呵,演示到此结束
ControlClick( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视 已经安装到你的计算机。","TNewButton4")
;下面演示这个controlclick版的安装。很简洁了。呵呵,由于最后的鼠标的界面坐标不够准确,就造成了脚本有些漏洞了。只是演示,大家可以点击最后的那个页面再进行修改即可。
ToolTip("PPTV网络电视_V2.5.5.0019安装完毕!",@DesktopWidth - 360, @DesktopHeight - 120)

Func stop()
Exit
EndFunc

下为mousec版本
#requireadmin
Opt("MouseCoordMode", 2)
;这个自动安装脚本由f&n安装脚本生产器生成。

HotKeySet("{f11}", "stop")

Run (@ScriptDir& "\PPTV网络电视_V2.5.5.0019.exe")

ToolTip("正在为你进行PPTV网络电视_V2.5.5.0019 安装,请不要移动鼠标和键盘!"&@CR&"F11可以终止安装脚本!", @DesktopWidth - 360, @DesktopHeight - 120)
WinWait ( "PPTV网络电视 V2.5.5.0019 安装","关于(&A)" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","关于(&A)" )
MouseClick ( "left",336, 313, 1 )

WinWait ( "PPTV网络电视 V2.5.5.0019 安装","请仔细阅读下列许可协议。您在继续安装前必须同意这些协议条款。" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","请仔细阅读下列许可协议。您在继续安装前必须同意这些协议条款。" )
MouseClick ( "left",341, 310, 1 )

WinWait ( "PPTV网络电视 V2.5.5.0019 安装","安装程序将安装 PPTV网络电视 V2.5.5.0019 到下列文件夹中。" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","安装程序将安装 PPTV网络电视 V2.5.5.0019 到下列文件夹中。" )
ControlSetText("PPTV网络电视 V2.5.5.0019 安装","安装程序将安装 PPTV网络电视 V2.5.5.0019 到下列文件夹中。","TEdit1","C:\PPLive\PPTV")
MouseClick ( "left",341, 312, 1 )

WinWait ( "PPTV网络电视 V2.5.5.0019 安装","安装程序现在将在下列开始菜单文件夹中创建程序的快捷方式。" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","安装程序现在将在下列开始菜单文件夹中创建程序的快捷方式。" )
MouseClick ( "left",347, 313, 1 )

WinWait ( "PPTV网络电视 V2.5.5.0019 安装","选择您想要安装程序在安装 PPTV网络电视 V2.5.5.0019 时执行的附加任务,然后单击“下一步”。" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","选择您想要安装程序在安装 PPTV网络电视 V2.5.5.0019 时执行的附加任务,然后单击“下一步”。" )
MouseClick ( "left",52, 172, 1 )
MouseClick ( "left",338, 312, 1 )

WinWait ( "PPTV网络电视 V2.5.5.0019 安装","单击“安装”继续此安装程序。如果您想要回滚或改变设置,请单击“上一步”。" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","单击“安装”继续此安装程序。如果您想要回滚或改变设置,请单击“上一步”。" )
MouseClick ( "left",347, 314, 1 )

WinWait ( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视 已经安装到你的计算机。" )
WinActivate( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视 已经安装到你的计算机。" )
MouseClick ( "left",188, 107, 1 )
MouseClick ( "left",337, 313, 1 )

;下面演示安装过程,hoho
ToolTip("PPTV网络电视_V2.5.5.0019安装完毕!",@DesktopWidth - 360, @DesktopHeight - 120)

Func stop()
Exit
EndFunc



作用都是相当的,只是controlclick比较简洁,无鼠标的拖地,及坐标的显示了。
在内测下,等待今晚afan超版的窗口探测0.4发布后,发布这个版本。
 楼主| 发表于 2010-9-1 13:26:45 | 显示全部楼层
发表于 2010-9-2 09:52:14 | 显示全部楼层
看了全程,很不错哦,继续加油~
发表于 2010-9-5 15:48:35 | 显示全部楼层
回复 7# 23070205

mouseclick vs controlclick
到底哪个好?哪一个受到用户干扰而不影响脚本运行?
 楼主| 发表于 2010-9-5 17:39:18 | 显示全部楼层
回复  23070205

mouseclick vs controlclick
到底哪个好?哪一个受到用户干扰而不影响脚本运行?
xlcwxl 发表于 2010-9-5 15:48



    在安装脚本时,不动鼠标和键盘,都可以做到不影响自动脚本的运行。相比较来说,controlclick很类似send热键这个操作。不带鼠标的规迹。而mouseclick则会带规迹。
 楼主| 发表于 2010-9-5 22:58:57 | 显示全部楼层
本帖最后由 23070205 于 2010-9-5 23:06 编辑

文件名:f&n安装脚本生产器双版合一0.043.rar
游客,如果您要查看本帖隐藏内容请回复

文件名:kugou2010视频录像.rar
游客,如果您要查看本帖隐藏内容请回复

f&n安装脚本生产器双版合一0.043.rar
游客,如果您要查看本帖隐藏内容请回复

kugou2010视频录像
游客,如果您要查看本帖隐藏内容请回复
 楼主| 发表于 2010-9-5 23:16:30 | 显示全部楼层
再来水水一下。怎么发布这个上面的一帖,就变成了高级会员了,高兴啊,acn论坛真的很好,我喜欢,能学到很多东东。
 楼主| 发表于 2010-9-5 23:37:43 | 显示全部楼层
本帖最后由 23070205 于 2010-9-6 11:28 编辑

已测试的程序自动安装源码发布

  1. #requireadmin
  2. Opt("MouseCoordMode", 2)
  3. ;本自动安装脚本由 f&n安装脚本生产器 配合 autoit官方中文站 afan超版的 Au3.WProbe 窗口信息探测器 生成。

  4. HotKeySet("{f11}", "stop")

  5. Run (@ScriptDir& "\kugou_1182.exe")

  6. ToolTip("正在为你进行kugou_1182 安装,请不要移动鼠标和键盘!"&@CR&"F11可以终止安装脚本!", @DesktopWidth - 460, @DesktopHeight - 120)
  7. WinWait ( "安装 - 酷狗音乐","欢迎使用 酷狗音乐 安装向导" )
  8. WinActivate( "安装 - 酷狗音乐","欢迎使用 酷狗音乐 安装向导" )
  9. ControlClick( "安装 - 酷狗音乐","欢迎使用 酷狗音乐 安装向导","TNewButton2")

  10. WinWait ( "安装 - 酷狗音乐","许可协议" )
  11. WinActivate( "安装 - 酷狗音乐","许可协议" )
  12. ControlClick( "安装 - 酷狗音乐","许可协议","TNewButton2")

  13. WinWait ( "安装 - 酷狗音乐","选择目标位置" )
  14. WinActivate( "安装 - 酷狗音乐","选择目标位置" )
  15. ControlSetText("安装 - 酷狗音乐","选择目标位置","TEdit1","C:\KuGou2010")
  16. ControlClick( "安装 - 酷狗音乐","选择目标位置","TNewButton3")

  17. WinWait ( "安装 - 酷狗音乐","准备安装" )
  18. WinActivate( "安装 - 酷狗音乐","准备安装" )
  19. ControlClick( "安装 - 酷狗音乐","准备安装","TNewButton3")

  20. WinWait ( "安装 - 酷狗音乐","酷狗音乐 安装完毕" )
  21. WinActivate( "安装 - 酷狗音乐","酷狗音乐 安装完毕" )
  22. MouseClick ( "left",218, 288, 1 )
  23. MouseClick ( "left",219, 309, 1 )
  24. MouseClick ( "left",219, 330, 1 )
  25. ControlClick( "安装 - 酷狗音乐","酷狗音乐 安装完毕","TNewButton3")
  26. ; If ProcessExists("iexplore.exe") Then;只是为了有些脚本会打开ie,而加入了下面3行。如需要可以取消前面的分号。以便代码能收效。
  27. ; ProcessClose("iexplore.exe")
  28. ;EndIf


  29. ToolTip("kugou_1182安装完毕!",@DesktopWidth - 360, @DesktopHeight - 120)

  30. Func stop()
  31. Exit
  32. EndFunc

复制代码

  1. #requireadmin
  2. Opt("MouseCoordMode", 2)
  3. ;本自动安装脚本由 f&n安装脚本生产器 配合 autoit官方中文站 afan超版的 Au3.WProbe 窗口信息探测器 生成。

  4. HotKeySet("{f11}", "stop")

  5. Run (@ScriptDir& "\KuGou2010.exe")

  6. ToolTip("正在为你进行KuGou2010 安装,请不要移动鼠标和键盘!"&@CR&"F11可以终止安装脚本!", @DesktopWidth - 460, @DesktopHeight - 120)
  7. WinWait ( "安装 - 酷狗音乐","欢迎使用 酷狗音乐 安装向导" )
  8. WinActivate( "安装 - 酷狗音乐","欢迎使用 酷狗音乐 安装向导" )
  9. ControlClick( "安装 - 酷狗音乐","欢迎使用 酷狗音乐 安装向导","TNewButton2")

  10. WinWait ( "安装 - 酷狗音乐","许可协议" )
  11. WinActivate( "安装 - 酷狗音乐","许可协议" )
  12. ControlClick( "安装 - 酷狗音乐","许可协议","TNewButton2")

  13. WinWait ( "安装 - 酷狗音乐","酷狗音乐 要安装到哪里?" )
  14. WinActivate( "安装 - 酷狗音乐","酷狗音乐 要安装到哪里?" )
  15. ControlSetText("安装 - 酷狗音乐","酷狗音乐 要安装到哪里?","TEdit1","C:\KuGou2010")
  16. ControlClick( "安装 - 酷狗音乐","酷狗音乐 要安装到哪里?","TNewButton3")

  17. WinWait ( "安装 - 酷狗音乐","准备安装" )
  18. WinActivate( "安装 - 酷狗音乐","准备安装" )
  19. ControlClick( "安装 - 酷狗音乐","准备安装","TNewButton3")

  20. WinWait ( "安装 - 酷狗音乐","酷狗音乐推荐安装软件" )
  21. WinActivate( "安装 - 酷狗音乐","酷狗音乐推荐安装软件" )
  22. MouseClick ( "left",60, 114, 1 )
  23. ControlClick( "安装 - 酷狗音乐","酷狗音乐推荐安装软件","TNewButton3")

  24. WinWait ( "安装 - 酷狗音乐","酷狗音乐 安装完毕" )
  25. WinActivate( "安装 - 酷狗音乐","酷狗音乐 安装完毕" )
  26. MouseClick ( "left",216, 286, 1 )
  27. MouseClick ( "left",218, 310, 1 )
  28. MouseClick ( "left",219, 332, 1 )
  29. ControlClick( "安装 - 酷狗音乐","酷狗音乐 安装完毕","TNewButton3")
  30. ; If ProcessExists("iexplore.exe") Then;只是为了有些脚本会打开ie,而加入了下面3行。如需要可以取消前面的分号。以便代码能收效。
  31. ; ProcessClose("iexplore.exe")
  32. ;EndIf


  33. ToolTip("KuGou2010安装完毕!",@DesktopWidth - 360, @DesktopHeight - 120)

  34. Func stop()
  35. Exit
  36. EndFunc

复制代码

  1. #requireadmin
  2. Opt("MouseCoordMode", 2)
  3. ;本自动安装脚本由 f&n安装脚本生产器 配合 autoit官方中文站 afan超版的 Au3.WProbe 窗口信息探测器 生成。

  4. HotKeySet("{f11}", "stop")

  5. Run (@ScriptDir& "\ppstream_2.7.0.1118.exe")

  6. ToolTip("正在为你进行ppstream_2.7.0.1118 安装,请不要移动鼠标和键盘!"&@CR&"F11可以终止安装脚本!", @DesktopWidth - 460, @DesktopHeight - 120)
  7. WinWait ( "PPS影音 V2.7.0.1118 正式版","PPS影音 安装向导" )
  8. WinActivate( "PPS影音 V2.7.0.1118 正式版","PPS影音 安装向导" )
  9. ControlClick( "PPS影音 V2.7.0.1118 正式版","PPS影音 安装向导","Button2")

  10. WinWait ( "PPS影音 V2.7.0.1118 正式版","下一步(&N) >" )
  11. WinActivate( "PPS影音 V2.7.0.1118 正式版","下一步(&N) >" )
  12. ControlSetText("PPS影音 V2.7.0.1118 正式版","下一步(&N) >","Edit1","C:\PPStream")
  13. MouseClick ( "left",53, 162, 1 )
  14. MouseClick ( "left",52, 188, 1 )
  15. MouseClick ( "left",53, 223, 1 )
  16. ControlClick( "PPS影音 V2.7.0.1118 正式版","下一步(&N) >","Button2")

  17. WinWait ( "安装 Google 工具栏","Google搜索覆盖过百亿网页,整合搜索准确全面。" )
  18. WinActivate( "安装 Google 工具栏","Google搜索覆盖过百亿网页,整合搜索准确全面。" )
  19. MouseClick ( "left",39, 239, 1 )

  20. ControlClick( "安装 Google 工具栏","Google搜索覆盖过百亿网页,整合搜索准确全面。","Button2")

  21. WinWait ( "PPS影音 V2.7.0.1118 正式版","PPS影音 完成安装" )
  22. WinActivate( "PPS影音 V2.7.0.1118 正式版","PPS影音 完成安装" )
  23. MouseClick ( "left",186, 155, 1 )
  24. ControlClick( "PPS影音 V2.7.0.1118 正式版","PPS影音 完成安装","Button2")
  25. Sleep(1000)
  26. If ProcessExists("iexplore.exe") Then;只是为了有些脚本会打开ie,而加入了下面3行。如需要可以取消前面的分号。以便代码能收效。
  27. ProcessClose("iexplore.exe")
  28. EndIf

  29. ToolTip("ppstream_2.7.0.1118安装完毕!",@DesktopWidth - 360, @DesktopHeight - 120)

  30. Func stop()
  31. Exit
  32. EndFunc
  33. ;Sleep(1000)
  34. ;If ProcessExists("iexplore.exe") Then;只是为了有些脚本会打开ie,而加入了下面3行。如需要可以取消前面的分号。以便代码能收效。
  35. ;ProcessClose("iexplore.exe")
  36. ;EndIf

  37. ToolTip("ppstream_2.7.0.1118安装完毕!",@DesktopWidth - 360, @DesktopHeight - 120)

  38. Func stop()
  39. Exit
  40. EndFunc

复制代码

  1. #requireadmin
  2. Opt("MouseCoordMode", 2)
  3. ;本自动安装脚本由 f&n安装脚本生产器 配合 autoit官方中文站 afan超版的 Au3.WProbe 窗口信息探测器 生成。

  4. HotKeySet("{f11}", "stop")

  5. Run (@ScriptDir& "\PPTV网络电视_2.5.5.19.exe")

  6. ToolTip("正在为你进行PPTV网络电视_2.5.5.19 安装,请不要移动鼠标和键盘!"&@CR&"F11可以终止安装脚本!", @DesktopWidth - 460, @DesktopHeight - 120)
  7. WinWait ( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视是PPLive旗下全球最大的网络电视平台。" )
  8. WinActivate( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视是PPLive旗下全球最大的网络电视平台。" )
  9. ControlClick( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视是PPLive旗下全球最大的网络电视平台。","Button2")

  10. WinWait ( "PPTV网络电视 V2.5.5.0019 安装","按 [PgDn] 阅读“用户协议”的其余部分。" )
  11. WinActivate( "PPTV网络电视 V2.5.5.0019 安装","按 [PgDn] 阅读“用户协议”的其余部分。" )
  12. ControlClick( "PPTV网络电视 V2.5.5.0019 安装","按 [PgDn] 阅读“用户协议”的其余部分。","Button2")

  13. WinWait ( "PPTV网络电视 V2.5.5.0019 安装","“安装向导”将安装 PPTV网络电视 2.5.5 在下列文件夹。" )
  14. WinActivate( "PPTV网络电视 V2.5.5.0019 安装","“安装向导”将安装 PPTV网络电视 2.5.5 在下列文件夹。" )
  15. ControlSetText("PPTV网络电视 V2.5.5.0019 安装","“安装向导”将安装 PPTV网络电视 2.5.5 在下列文件夹。","Edit1","C:\PPLive\PPTV")
  16. ControlClick( "PPTV网络电视 V2.5.5.0019 安装","“安装向导”将安装 PPTV网络电视 2.5.5 在下列文件夹。","Button2")

  17. WinWait ( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视将与您的本地媒体文件建立关联,以便您用PPTV客户端打开本地文件" )
  18. WinActivate( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视将与您的本地媒体文件建立关联,以便您用PPTV客户端打开本地文件" )
  19. ControlClick( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视将与您的本地媒体文件建立关联,以便您用PPTV客户端打开本地文件","Button4")
  20. ControlClick( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视将与您的本地媒体文件建立关联,以便您用PPTV客户端打开本地文件","Button2")

  21. WinWait ( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视 已成功安装到你的计算机。" )
  22. WinActivate( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视 已成功安装到你的计算机。" )
  23. ControlClick( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视 已成功安装到你的计算机。","Button4")
  24. ControlClick( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视 已成功安装到你的计算机。","Button5")
  25. ControlClick( "PPTV网络电视 V2.5.5.0019 安装","PPTV网络电视 已成功安装到你的计算机。","Button2")
  26. Sleep(500)
  27. If ProcessExists("iexplore.exe") Then;只是为了有些脚本会打开ie,而加入了下面3行。如需要可以取消前面的分号。以便代码能收效。
  28. ProcessClose("iexplore.exe")
  29. EndIf


  30. ToolTip("PPTV网络电视_2.5.5.19安装完毕!",@DesktopWidth - 360, @DesktopHeight - 120)

  31. Func stop()
  32. Exit
  33. EndFunc

复制代码
发表于 2010-9-6 08:20:47 | 显示全部楼层
没有源,下载失败。。。。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2018-12-16 12:40 , Processed in 0.119314 second(s), 20 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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