VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: icecept

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

[复制链接]
发表于 2007-9-6 11:48:38 | 显示全部楼层
qq直接拷贝过来就可以用,不需要安装,这样的情况注册表里会有值吗
回复 支持 反对

使用道具 举报

发表于 2007-9-6 14:05:16 | 显示全部楼层
楼上的这个问题问得好!
回复 支持 反对

使用道具 举报

发表于 2007-9-6 14:06:27 | 显示全部楼层
还是像找病毒那样来找吧~~~
回复 支持 反对

使用道具 举报

发表于 2007-9-6 14:08:01 | 显示全部楼层
说的也是啊~~
那怎么办?遍历所有盘找QQ.exe?
我见过把QQ放在ABC目录而且QQ的执行文件也不叫QQ.exe的

[ 本帖最后由 DreamonII 于 2007-9-6 14:09 编辑 ]
回复 支持 反对

使用道具 举报

发表于 2007-9-6 14:46:48 | 显示全部楼层
只要执行过QQ注册表应该会留下点东西,个人猜测
回复 支持 反对

使用道具 举报

发表于 2007-9-6 16:10:00 | 显示全部楼层

回复 #14 DreamonII 的帖子

不是找文件名,而是找特征码
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-9-6 21:03:07 | 显示全部楼层

“qq直接拷贝过来就可以用,不需要安装,这样的情况注册表里会有值吗?”的问题

炉子 ,这个问题提得很好,这个问题引起我很大关注,不过你是多虑了,
我在一个没有安装QQ的电脑上,注册表中没有任何QQ的痕迹。当运行一个复制过来的qq后(注意我这里没有安装QQ),当QQ运行后,不管你是否连网,都会在注册表中留下键值,既
HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ中的键值为
Installr
D:\Program Files\Tencent\QQ\
也就是说,QQ目录包复制到哪里,注册中Install键值就指到哪里,这是我亲自试验过的,把QQ目录包复制到桌面,注册表中的键值Install就指向C:\Documents and Settings\user\桌面\Tencent\QQ\,不信你试试.所以你是多虑了。

[ 本帖最后由 icecept 于 2007-9-6 21:18 编辑 ]
回复 支持 反对

使用道具 举报

发表于 2007-9-6 22:31:28 | 显示全部楼层
要是某人用安全工具禁止了QQ对注册表的访问呢?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-9-7 00:01:42 | 显示全部楼层
VBProFan,多谢提醒,我还要写上一句解锁注册表的代码,在判断QQ是否存在之前先执行:
dim iw1
set iw1=wscript.CreateObject("WSCRIPT.SHELL") '击活WScript.Shell对象                         
'解锁注册表
iw1.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"

[ 本帖最后由 icecept 于 2007-9-7 00:27 编辑 ]
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-26 16:00:54 | 显示全部楼层

已经解决

Option Explicit
'需要首先在引用对话框中加载Windows Script Host Object Modle
Dim iw1 As New WshShell    '访问注册表等操作

'调用外部程序。而且还要暂停VB程序的执行,等待外部程序执行完毕后,在继续执行VB程序
'执行Windows下的记事本程序并使当前程序等待直到记事本程序关闭再执行下面的语句,
'如果不需要等待,将Run语句中的第三个参数从True改为False就可以了。

Private Sub Label1_Click()
    On Error Resume Next
    If getQQpath = "" Then
       MsgBox "你没有安装QQ,请先安装QQ", vbOKOnly Or vbInformation, Me.Caption
       Exit Sub
    Else
       iw1.run "tencent://Message/?Uin=543375508"
    End If
End Sub

'判断是否安装QQ

Public Function getQQpath() As String
    getQQpath = iw1.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
End Function
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2019-12-12 19:23

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