急呀！VB中怎么可以打开QQ？

来源：百度知道 编辑：UC知道 时间：2024/06/27 11:24:32
用command打开QQ，不要用路径法（很多电脑路径不一样，网吧的路径就更不相同了），也不要文件历遍(很慢)。QQ一般都在注册表有注册，那么就利用注册表来打开QQ，代码怎么写？（如果电脑上同时安装有2008QQ和2009QQ，那只运行一个版本的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

如果需要与某QQ会话的话，只要
在通用中声明：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

然后在需要的地方，例如按钮的Click事件中，添加代码
ShellExecute 0&, vbNullString, "tencent://message/?uin=QQ号码", vbNullString, vbNullString, vbNormalFocus