RealPlayer安装脚本
没有人帮我做,那我就自己做了今天又花了不少的时候,我总算把它给弄成了
颈椎现在痛的都快不行了!
Run("RealPlayer.exe")
$bt1="RealPlayer 安装向导"
$bt2="RealPlayer"
$bt3="首选项"
$bt4="Real 消息中心"
$bt5="取消安装 -- 网页对话框"
$lj="C:\Program Files\Real\RealPlayer\realplay.exe"
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
WinActivate($bt2,"")
WinKill($bt2)
Run($lj)
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","连接|Internet/隐私")
Send("!D")
Sleep(1000)
send("!S")
Sleep(1000)
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","自动服务")
Send("!M")
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(1000)
WinKill($bt4,"")
Sleep(1000)
WinMove($bt3,"",0,0)
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","自动服务|自动更新")
Send("!A")
ControlTreeView($bt3,"类别(&Y)","SysTreeView321","Select","自动服务")
MouseClick("",277,224,1)
MouseClick("",463,436,1)
Sleep(5000)
WinClose($bt2)
Func file1()
WinActivate($bt2)
WinMove($bt2,"",0,0)
Send("!T")
Send("{UP}")
Send("{ENTER}")
EndFunc
这么好的东西为什么没有人回复我呢
弄的我都没有信心再做下去了
不会都是些只复制了我的源代码不回帖的家伙吧！ 我来回贴。。。虽然不用。。现在都用暴风影音的。。。 汗，楼主应该多学习下别人怎么做的，多用键盘，不要用鼠标取点。 同楼上意见
多谢借鉴别人的自动安装脚本
不是很难学的 另外
虽然理解你颈椎疼痛难忍
不过这里是技术论坛
大家都是以事论事想帮就帮
想学东西当自强 感觉不是很好哦！
页:
[1]