返回列表 回复 发帖
来网

中级技工

Rank: 3Rank: 3

UID
134707 
帖子
71 
积分
96 
威望
67  
金币
2173  
贡献
29  
职业
维修国产电视 
来自
濮阳 
注册时间
2008-5-22 
最后登录
2011-12-23 
1#
打印
tT
发表于 2011-1-20 13:15 | 只看该作者

用vbs自动把QQ影音安装到D盘

本帖最后由 来网 于 2011-1-21 10:31 编辑

Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "QQPlayer.exe"      
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 6000   
WshShell.SendKeys "n"
WScript.Sleep 300      
WshShell.SendKeys "%i"      
WScript.Sleep 300
WshShell.SendKeys "%n"
WScript.Sleep 300
WshShell.SendKeys "%i"      
WScript.Sleep 20000
WshShell.SendKeys "{ENTER}"
这是默认安装到C盘的 VBS ,
收藏 分享 评分
多学知识
回复 引用

订阅 顶部

jinyu086

项目经理

Rank: 7Rank: 7Rank: 7

UID
79331 
帖子
905 
积分
1213 
威望
989  
金币
1070176  
贡献
224  
职业
无 
来自
辽宁.锦州 
注册时间
2006-12-30 
最后登录
2012-1-7 
2#
发表于 2011-1-20 14:04 | 只看该作者
兄弟你来错地方了
回复 引用

顶部

来网

中级技工

Rank: 3Rank: 3

UID
134707 
帖子
71 
积分
96 
威望
67  
金币
2173  
贡献
29  
职业
维修国产电视 
来自
濮阳 
注册时间
2008-5-22 
最后登录
2011-12-23 
3#
发表于 2011-1-20 14:07 | 只看该作者
哪里错了啊
多学知识
回复 引用

顶部

来网

中级技工

Rank: 3Rank: 3

UID
134707 
帖子
71 
积分
96 
威望
67  
金币
2173  
贡献
29  
职业
维修国产电视 
来自
濮阳 
注册时间
2008-5-22 
最后登录
2011-12-23 
4#
发表于 2011-1-20 14:07 | 只看该作者
去哪里呢？
多学知识
回复 引用

顶部

来网

中级技工

Rank: 3Rank: 3

UID
134707 
帖子
71 
积分
96 
威望
67  
金币
2173  
贡献
29  
职业
维修国产电视 
来自
濮阳 
注册时间
2008-5-22 
最后登录
2011-12-23 
5#
发表于 2011-1-21 10:25 | 只看该作者
本帖最后由 来网 于 2011-1-21 10:35 编辑

Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "QQPlayer.exe"      
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 6000   
WshShell.SendKeys "n"
WScript.Sleep 300      
WshShell.SendKeys "%i"      
WScript.Sleep 300
WshShell.SendKeys "%n"
WshShell.SendKeys "d:\Program Files\Tencent\QQyingyin"
WScript.Sleep 300
WshShell.SendKeys "%i"
WScript.Sleep 15000
WshShell.SendKeys " "      
WScript.Sleep 300
WshShell.SendKeys "{ENTER}"
把上面的复制到记事本里 然后另存为 QQPlayer.vbs
把QQPlayer.vbs这个文件和下载好的QQPlayer.exe 放在一个文件夹里，然后双击QQPlayer.vbs
就是自动安装QQPlayer到D盘了。
电脑跟电脑配置不同，所以时间等待不一样 ，配置低的电脑可能就不会自动安装了，只能更改WScript.Sleep 6000 把6000改更高些，
就会自动安装了
在安装是不要动键盘和鼠标， 因为是用的脚本模拟按键，如果操作其他作业，导致模拟按键失效不能自动安装。
多学知识
回复 引用

顶部

返回列表