VB中判断.NET3.5是否安装

发布时间：2020-12-17 08:04:32 所属栏目：百科来源：网络整理

导读：Option Explicit Dim hR As Long Private Const HKEY_LOCAL_MACHINE=H80000002 Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" ( ByVal hKey As Long , ByVal lpSubKey As String ,phkResult As Long ) As Long Private Decla

OptionExplicit

DimhRAsLong

PrivateConstHKEY_LOCAL_MACHINE=&H80000002

PrivateDeclareFunctionRegOpenKeyLib"advapi32.dll"Alias"RegOpenKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString,phkResultAsLong)AsLong

PrivateDeclareFunctionRegQueryValueExLib"advapi32.dll"Alias"RegQueryValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByVallpReservedAsLong,lpTypeAsLong,lpDataAsAny,lpcbDataAsLong)AsLong'NotethatifyoudeclarethelpDataparameterasString,youmustpassitByValue.

PrivateSubCommand1_Click()

RegOpenKeyHKEY_LOCAL_MACHINE,"SOFTWARE/Microsoft/.NETFramework/v2.0.50727/NGENService/ListenedState",hR'这里是项名

DimrAsLong

r=RegQueryValueEx(hR,"RootstoreDirty",0)

Ifr=2Then

MsgBox"不存在"

Else

MsgBox"存在"

EndIf

EndSub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!