VB怎么样利用注册表注册信息开启QQ?

来源:百度知道 编辑:UC知道 时间:2024/06/21 01:14:59
用command打开QQ,不要用路径法(很多电脑安的路径不同),也不要文件历遍(很慢)。QQ一般都在注册表有注册,那么就利用注册表来打开QQ,代码怎么写?(如果电脑上同时安装有2008QQ和2009QQ,那如果只运行08版QQ是怎么写?)
QQ2008 版本:8.0.1300.1881
QQ2009 版本: 9.0.1000.1254

我要的是代码,答对就加分!!! 不要陈述,因为那样我也会,只是我不会写代码。

我没有装08的QQ,没有测试,你自己试一下

Private Sub Command1_Click()
Dim w As Object, s As String
Set w = CreateObject("wscript.shell")
s = w.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
Shell s & "\QQ.exe", 1
End Sub