22-09-12, 06:57 PM
السلام عليكم ورحمة الله وبركاته
إليكم إخواني الأعضاء كود بلغة الفيجوال بيسك 6.0 للتأكد من أن Netframework مثبت أم لا
[b]إليكم إخواني الأعضاء كود بلغة الفيجوال بيسك 6.0 للتأكد من أن Netframework مثبت أم لا
كود :
[/b]
[align=left]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
[/align]