VB如何读取QQ2009路径

'返回QQ2009安装路径
Public Function GetQQ2009Path()
Dim Path As String
On Error Resume Next
Path = CreateObject("Wscript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ2009\Install") + "\bin\" & "QQ.exe"
GetQQ2009Path = Path
End Function

MsgBox _
CreateObject("WScript.Shell") _
.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ\Install")

你想自动获取QQ路径对吧,也可以用api函数实现自动搜索.

小子，搞破坏呀