Board logo

标题: 用vbs自动把QQ影音安装到D盘 [打印本页]
作者: 来网    时间: 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    时间: 2011-1-20 14:04

兄弟你来错地方了
作者: 来网    时间: 2011-1-20 14:07

哪里错了啊
作者: 来网    时间: 2011-1-20 14:07

去哪里呢？
作者: 来网    时间: 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改更高些，
就会自动安装了
在安装是不要动键盘和鼠标， 因为是用的脚本模拟按键，如果操作其他作业，导致模拟按键失效不能自动安装。



欢迎光临 『家电维修论坛 163DZ.COM』 (http://xn--www-ryc87f.163dz.com/bbs/) Powered by Discuz! 7.0.0