Question

VB6如何判断电脑上是否安装了.net framework

检测所有已安装的.net framework，并把检测到的.net framework版本列在列表框中。
用vb.net写的程序没.net framework不行，想用VB6做向导。

Answer 1

VB6本身不是.NET架构的，要检测是否安装.NET框架，需得VB.NET，代码如下：
'WMI检查本机是否安装了.NET Framework
Public Function IsMSFrameworkInstalled() As Boolean
On Error Resume Next
Dim objWMIService
Dim colItems
Dim objItem
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Product")
For Each objItem In colItems
If InStr(objItem.Name, "Microsoft .NET Framework") > 0 Then
IsMSFrameworkInstalled = True
End If
Next
End Function

'调用：
MsgBox IsMSFrameworkInstalled()

追问

几个问题：
既然还要用VB.Net检测，那么如果没安装，还检测个什么？程序都打不开！
你的代码怎么是VB6的代码？到底是VB.Net的还是VB6的？
你的代码只能检测电脑上是否安装了Microsoft .NET Framework，但无法检测是哪个版本的。低版本不兼容高版本，会出错的。希望能检测出版本。
谢谢！

追答

这个代码即可以在vb6，又可以在vb.net运行，不过在vb6运行，需要等待很长时间。
版本。。。不知道怎么弄。。。

追问

我自己搞定了。
.net framework都安装在\windows\microsoft.net\framework下，过滤下，查询里面的文件夹名就知道版本号了。要是出错就没有安装。

Answer 2

读注册表

追问

读注册表里面的什么东西呢？