0
点赞
收藏
分享

微信扫一扫

用 VB6 检查Windows上有没有安装 .NET Framework


'检查函数
'若安装了.NET Framework,返回:True

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

'示例

 

Private Sub Command1_Click()
MsgBox IsMSFrameworkInstalled()
End Sub

 

 

举报

相关推荐

0 条评论