VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 6508|回复: 27

如何探测电脑中有没有安装QQ,仅当QQ没有运行时<已经解决>

[复制链接]
 楼主| 发表于 2007-8-27 21:10:06 | 显示全部楼层 |阅读模式
当qq没有运行时,如何探测电脑中有没有安装QQ?
当qq已经运行时,我是这样做到的: shell "tencent://Message/?Uin=543375508"

[ 本帖最后由 icecept 于 2009-4-30 11:23 编辑 ]
发表于 2007-8-27 23:02:12 | 显示全部楼层
没有运行的话。。

1 查控制面板的 添加删除程序列表

2 搜QQ.exe(不一定准确。。)

具体怎么实现就要请高手来了。。。
回复 支持 反对

使用道具 举报

发表于 2007-8-27 23:11:15 | 显示全部楼层
HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ

回复 支持 反对

使用道具 举报

发表于 2007-8-27 23:55:09 | 显示全部楼层
原帖由 炉子 于 2007-8-27 23:11 发表
HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ



不错的想法,不知道卸载QQ后这些东西会删除吗?
回复 支持 反对

使用道具 举报

发表于 2007-8-28 00:01:10 | 显示全部楼层
去检查那里边的Install项所指向的文件存在与否就可以
回复 支持 反对

使用道具 举报

发表于 2007-8-28 03:11:43 | 显示全部楼层
没安装的qq?照样能用
回复 支持 反对

使用道具 举报

发表于 2007-8-28 09:03:57 | 显示全部楼层
Private Sub Command1_Click()
    if getQQpath="" then msgbox "没有装qq" else msgbox "你已经装了qq了"
End Sub

Public Function getQQpath() As String
    Dim objShell As Object
    Set objShell = CreateObject("WScript.Shell")

    getQQpath = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
End Function
如果是简单的判断 这样就可以了!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-8-28 19:06:15 | 显示全部楼层
魔灵谢谢lyjun_311 了
回复 支持 反对

使用道具 举报

发表于 2007-8-28 21:16:35 | 显示全部楼层
学习学习。
回复 支持 反对

使用道具 举报

发表于 2007-8-28 23:53:22 | 显示全部楼层
简单就是最好的, 7楼的回复不错,学习ing
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-11-22 20:25

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表