كود في vb 6.0 للتأكد من أن Netframework مثبت أم لا

[عنـ الشوق ـاد]

كود في vb 6.0 للتأكد من أن Netframework مثبت أم لا

Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Const HKEY_LOCAL_MACHINE = &H80000002
Const ERROR_SUCCESS = 0
'Const REG_SZ = 1 ' Unicode nul terminated string
'Const REG_DWORD = 4
Private Sub Command1_Click()
' Dim hKey As Long

If RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\.NETFramework\Policy\", 0, 1, hKey) = ERROR_SUCCESS Then
'KeyExists = True

MsgBox "You have the framework"

Else
MsgBox "Missing the framework"

'KeyExists = False
End If
End Sub

[الـــدانـــة]

اللــــه يعطيــــك العافيـــة أخــــوي عنـــاد
جهـــــــود تشكــــــــر عليهــــــا
دمت ودام عطائـــــك