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

jim1013

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

VBProFan

楼上的这个问题问得好！

VBProFan

还是像找病毒那样来找吧~~~

DreamonII

说的也是啊~~
那怎么办？遍历所有盘找QQ.exe？
我见过把QQ放在ABC目录而且QQ的执行文件也不叫QQ.exe的

[ 本帖最后由 DreamonII 于 2007-9-6 14:09 编辑 ]

hzfox

只要执行过QQ注册表应该会留下点东西，个人猜测

VBProFan

不是找文件名，而是找特征码

icecept

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

[ 本帖最后由 icecept 于 2007-9-6 21:18 编辑 ]

VBProFan

要是某人用安全工具禁止了QQ对注册表的访问呢？

icecept

VBProFan，多谢提醒，我还要写上一句解锁注册表的代码，在判断ＱＱ是否存在之前先执行：
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 编辑 ]

icecept

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