RealPlayer 11安装脚本 但是后期的有些不对
本帖最后由 icq224639289 于 2009-4-27 12:06 编辑自己从下午两点做到七点还是没有把最后的部分做完
颈椎有犯病了,受不了,哪但可以帮我下,帮我把它完成吗!Run("RealPlayer.exe")
$bt1="RealPlayer 安装向导"
$bt2="RealPlayer"
$bt3="首选项"
$bt4="Real 消息中心"
$bt5="取消安装 -- 网页对话框"
WinClose("正在准备安装 RealPlayer")
WinWaitActive($bt1,"最终用户许可协议")
WinMove($bt1,"",0,0)
MouseClick("",439,448,1)
Sleep(3000)
MouseClick("",254,321,1)
MouseClick("",436,444,1)
Sleep(3000)
MouseClick("",34,158,1)
MouseClick("",34,174,1)
MouseClick("",35,190,1)
MouseClick("",24,276,1)
MouseClick("",433,446,1)
Sleep(3000)
MouseClick("",25,154,1)
MouseClick("",437,448,1)
WinWaitClose($bt1)
While WinWait($bt2,"")=0
MsgBox(64,"起亚科技电脑中心 温馨提示","程序启动请稍等",1)
WEnd
Sleep(1000)
Send("{ESC}")
Sleep(1000)
While WinWait($bt2,"")=0
MsgBox(64,"起亚科技电脑中心 温馨提示","请稍等RealPlayer主程序的运行",2)
WEnd
Sleep(1000)
Call("file1")
While WinWait($bt3,"")<>1
Call("file1")
WEnd
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","常规")
ControlCommand($bt3,"类别(&Y)","ComboBox1","SetCurrentSelection",4)
Sleep(1000)
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","连接")
ControlCommand($bt3,"假定我在线上(&O)","Button20","check")
Sleep(1000)
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","连接|Internet/隐私")
ControlCommand($bt3,"向 RealServers","Button23","uncheck")
ControlCommand($bt3,"连接到技术支持时发送配置信","Button25","uncheck")
Sleep(1000)
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","自动服务")
ControlClick($bt3,"配置消息中心(&M)...","Button33")
WinWaitActive($bt4,"")
WinMove($bt4,"",0,0)
WinMove($bt4,"",0,0)
MouseClick("",31,182,1)
MouseClick("",45,273,1)
MouseClick("",44,356,1)
Sleep(1000)
MouseClick("",355,397,1)
WinWaitActive($bt4,"您已选择关闭消息检查")
ControlClick($bt4,"是(&Y)","Button1")
Sleep(3000)
WinClose($bt4)
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","自动服务|自动更新")
ControlCommand($bt3,"自动下载和安装重要更新(&A)。","Button41","uncheck")
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","自动服务")
ControlCommand($bt3,"当有新版本的 RealPlayer 时提醒我。","Button35","uncheck")
ControlClick($bt3,"确定","Button47")
Sleep(5000)
WinClose($bt2)
Func file1()
WinActivate($bt2)
WinMove($bt2,"",0,0)
MouseClick("",165,74,1)
MouseClick("",421,12,1)
MouseClick("",471,247,1)
EndFunc
下面一个是RealPlayer后期的设置$bt2="RealPlayer"
$bt3="首选项"
$bt4="Real 消息中心"
While WinWait($bt2,"")=0
MsgBox(64,"起亚科技电脑中心 温馨提示","程序启动请稍等",1)
WEnd
Sleep(1000)
Send("{ESC}")
Sleep(1000)
While WinWait($bt2,"")=0
MsgBox(64,"起亚科技电脑中心 温馨提示","请稍等RealPlayer主程序的运行",2)
WEnd
Sleep(1000)
Call("file1")
While WinWait($bt3,"")<>1
Call("file1")
WEnd
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","常规")
ControlCommand($bt3,"类别(&Y)","ComboBox1","SetCurrentSelection",4)
Sleep(1000)
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","连接")
ControlCommand($bt3,"假定我在线上(&O)","Button20","check")
Sleep(1000)
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","连接|Internet/隐私")
ControlClick($bt3,"向 RealServers","Button23")
ControlClick($bt3,"连接到技术支持时发送配置信","Button25")
Sleep(1000)
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","自动服务")
ControlClick($bt3,"配置消息中心(&M)...","Button33")
WinWaitActive($bt4,"")
WinMove($bt4,"",0,0)
WinMove($bt4,"",0,0)
MouseClick("",31,182,1)
MouseClick("",45,273,1)
MouseClick("",44,356,1)
Sleep(1000)
MouseClick("",355,397,1)
WinWaitActive($bt4,"您已选择关闭消息检查")
ControlClick($bt4,"是(&Y)","Button1")
Sleep(3000)
WinClose($bt4)
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","自动服务|自动更新")
ControlCommand($bt3,"自动下载和安装重要更新(&A)。","Button41","uncheck")
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","自动服务")
ControlCommand($bt3,"当有新版本的 RealPlayer 时提醒我。","Button35","uncheck")
ControlClick($bt3,"确定","Button47")
Sleep(5000)
WinClose($bt2)
Func file1()
WinActivate($bt2)
WinMove($bt2,"",0,0)
MouseClick("",165,74,1)
MouseClick("",421,12,1)
MouseClick("",471,247,1)
EndFunc
为什么没人理我呢!
帮帮我吧,我的颈椎实在是受不了了
要是能受的了,我就不麻烦大家了! 辛苦楼主了。 理解初学的难处
只不过自动安装还是别用太多模拟鼠标了
另外别到处开新贴了
http://www.autoitx.com/forum.php?mod=viewthread&tid=6733
既然解决了
就在原帖编辑下就可以了
并把标题分类为已解决 4# lynfr8
谢谢提醒啊，那个时间刚刚来论坛不明白规矩的！ 模拟鼠标动作太多了吧！是不是尽量考虑用键盘操作呢？ 学习一下啊，不错的的教程
页:
[1]